pertama-tama,buka kembali form yang kita buat pada tutorial sebelumnya. dimana ada tombol ubah dan cari. setelah itu double klik tombol cari dan masukkan coding sebagai berikut ini :
Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnCari.Click
Cari = InputBox("Masukkan NPM yang ingin dicari")
Conn.Open()
Perintah.Connection = Conn
Perintah.CommandType = CommandType.Text
Perintah.CommandText = "SELECT * FROM tbMhs WHERE NPM = '" & Cari & "'"
Bacadata = Perintah.ExecuteReader
Bacadata.Read()
If Bacadata.HasRows = True Then
MessageBox.Show("Data ada")
txtNPM.Text = Bacadata("NPM")
txtNPM.ReadOnly = True
txtNama.Text = Bacadata("Nama")
DateTimePicker1.Value = Bacadata("TanggalLahir")
If Bacadata("JeKel") = "Laki-Laki" Then
rboLaki.Checked = True
Else
rboPerempuan.Checked = True
End If
Else
MessageBox.Show("Tidak ada data")
txtNPM.Clear()
txtNama.Clear()
DateTimePicker1.Value = Today
rboLaki.Checked = False
rboPerempuan.Checked = False
End If
Bacadata.Close()
Conn.Close()
End Sub
Setelah itu kembali ke form dan double klik tombol EDIT. kemudian masukkan coding berikut ini :
Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click
Dim JK As String
If rboLaki.Checked = True Then
JK = "Laki-Laki"
Else
JK = "Perempuan"
End If
Conn.Open()
Perintah.Connection = Conn
Perintah.CommandType = CommandType.Text
Perintah.CommandText = "UPDATE tbMhs SET Nama = '" & txtNama.Text & "', TanggalLahir = '" & Format(DateTimePicker1.Value, "yyyy-MM-dd") & "', " & _
"JeKel = '" & JK & "' WHERE NPM = '" & txtNPM.Text & "'"
Perintah.ExecuteNonQuery()
MessageBox.Show("Data telah diubah")
Conn.Close()
End Sub
Nah, mengapa ada tombol cari? jadi fungsi dari tombol ini adalah mencari apakah data yang akan kita edit tersedia atau belum. ketika kita cari dan ternyata data ada. maka data-data lama yang ada di database akan muncul di textbox. kemudian kita bisa melakukan edit pada data-data tersebut. dan jika data tidak ada maka kita tidak bisa melakukan edit data.
kita coba cari data yang sebelumnya kita input. setelah itu kita coba edit. apabila berhasil maka akan muncul kotak pesan "Data telah Diubah".
Sebelumnya :
