Ada 2 versi yaitu
versi 1
Sub cari()
Call Koneksi()
Tampil = New MySqlCommand("select * from ms_pegawai where id_pegawai='" _
& idpegawai.Text & "'", Database)
Tampilkan = Tampil.ExecuteReader
Tampilkan.Read()
If Tampilkan.HasRows Then
idpegawai.Text = Tampilkan.Item("id_pegawai")
nama.Text = Tampilkan.Item("nama_pegawai")
ttl.Text = Tampilkan.Item("ttl_pegawai")
ComboBox1.Text = Tampilkan.Item("jenis_kelamin")
alamat.Text = Tampilkan.Item("alamat_pegawai")
notelp.Text = Tampilkan.Item("no_telp_hp")
pangkat.Text = Tampilkan.Item("pangkat_pegawai")
jabatan.Text = Tampilkan.Item("jabatan_pegawai")
perguruan.Text = Tampilkan.Item("perguruan_tinggi")
username.Text = Tampilkan.Item("username")
password.Text = Tampilkan.Item("password")
ComboBox2.Text = Tampilkan.Item("keterangan")
Else
idpegawai.Text = ""
nama.Text = ""
ttl.Text = ""
ComboBox1.Text = "Pilih"
alamat.Text = ""
notelp.Text = ""
pangkat.Text = ""
jabatan.Text = ""
perguruan.Text = ""
username.Text = ""
password.Text = ""
ComboBox2.Text = "Pilih"
End If
Database.Close()
End Sub
------------------------------------------------------------------------------------------------------
versi 2
Dim id_pegawai = InputBox("Silahkan Masukan Id Pegawai")
Try
Ds.Tables(0).PrimaryKey = New DataColumn() {Ds.Tables(0).Columns("id_pegawai")}
Dim row As DataRow
row = Ds.Tables(0).Rows.Find(id_pegawai)
idpegawai.Text = row("id_pegawai")
nama.Text = row("nama_pegawai")
ttl.Text = row("ttl_pegawai")
ComboBox1.Text = row("jenis_kelamin")
alamat.Text = row("alamat_pegawai")
notelp.Text = row("no_telp_hp")
pangkat.Text = row("pangkat_pegawai")
jabatan.Text = row("jabatan_pegawai")
perguruan.Text = row("perguruan_tinggi")
username.Text = row("username")
password.Text = row("password")
ComboBox2.Text = row("keterangan")
MsgBox("Pencarian Sukses!")
Catch ex As Exception
MsgBox("Anda Salah Memasukkan Id Pegawai / Id Pegawai Tersebut Belum Terdaftar!")
End Try