Kali ini kita akan mencoba membuat program cara mencari data di database yang telah kita buat, lansung saja kita buat form seperti berikut :

selanjutnya kita kita masukkan sintaknya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"

tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then

While tampilkan.Read()

If IsDBNull(tampilkan("kdjur")) Then

TextBox2.Text = tampilkan("nmjur")

Else

TextBox2.Text = tampilkan("nmjur")

End If

End While

End If

End Sub

End Class

Selanjutnya coba kita jalankan