Membuat Pencarian Data Pada TextBox ( Otomatis Menampilkan Data Dari Database Ke Object Di VB.Net )
Sebelum melanjutkan membuat pencarian data harap baca terlebih dahulu mengenai :
- Koneksi ke database
- Membuatt database
Bagi yang udah paham langsung aja .
Pada gambar di atas pada textbox ID ADM saya double klik lalu pastikan pada EVENT "TextChanged"
Copas kode di bawah ini :
Try
Using Conn As New SqlConnection(dinas_penduduukan_pencatatan_sipil.My.Settings.db1ConnectionString)
Conn.Open()
Using sql As New SqlClient.SqlCommand("Select * from adm where id_adm='" & TextBox1.Text & "'", Conn)
Using dr As SqlClient.SqlDataReader = sql.ExecuteReader()
Using dt As New DataTable
dt.Load(dr)
If dt.Rows.Count <> 1 Then
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
Button1.Enabled = True
Button3.Enabled = False
Button4.Enabled = False
Else
Dim row As DataRow = dt.Rows(0)
TextBox2.Text = row(1)
ComboBox1.Text = row(2)
DateTimePicker1.Value = row(3)
TextBox3.Text = row(4)
Button1.Enabled = False
Button3.Enabled = True
Button4.Enabled = False
End If
End Using
End Using
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
Terima kasih
semoga bermanfaat
0 comments:
Post a Comment