Dim con As New MySqlConnection
Dim cmd As New MySqlCommand
con.ConnectionString = "Data Source=localhost;Initial Catalog=lamberto;User id =lamberto;password=rahasia"
con.Open()
cmd.Connection = con
cmd.CommandText = "UPDATE tbl_data_pegawai SET nip = @nip, nama_pegawai = @nama_pegawai, tempat_lahir = @tempat_lahir, tanggal_lahir = @tanggal_lahir, jenis_kelamin = @jenis_kelamin, usia = @usia, status_pegawai = @status_pegawai, tanggal_pengangkatan_cpns = @tanggal_pengangkatan_cpns, alamat = @alamat WHERE nip = + @nip"
cmd.Parameters.AddWithValue("@nip", TextBox1.Text)
cmd.Parameters.AddWithValue("@nama_pegawai", TextBox2.Text)
cmd.Parameters.AddWithValue("@tempat_lahir", TextBox3.Text)
cmd.Parameters.AddWithValue("@tanggal_lahir", TextBox4.Text)
cmd.Parameters.AddWithValue("@jenis_kelamin", TextBox5.Text)
cmd.Parameters.AddWithValue("@usia", TextBox6.Text)
cmd.Parameters.AddWithValue("@status_pegawai", TextBox7.Text)
cmd.Parameters.AddWithValue("@tanggal_pengangkatan_cpns", TextBox8.Text)
cmd.Parameters.AddWithValue("@alamat", TextBox9.Text)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Data Updated")
This is my update code, but when I clicked the update, all data in my database update, not selected data. There is any solution ?
You are setting nip to @nip Where nip = + @nip... remove the setting of nip... just set all other columns and remove the + in the WHERE section.
So you have:
UPDATE tbl_data_pegawai SET nama_pegawai = @nama_pegawai, tempat_lahir = @tempat_lahir,
tanggal_lahir = @tanggal_lahir, jenis_kelamin = @jenis_kelamin, usia = @usia,
status_pegawai = @status_pegawai, tanggal_pengangkatan_cpns = @tanggal_pengangkatan_cpns,
alamat = @alamat WHERE nip = @nip
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.