Source code pencarian di vb.net
Source code pencarian di vb.net - masih ngulik CRUD vb.net nih. satu lagi yang ketinggalan, yaitu coding cari pada vb.net. Membuat fungsi cari/ search pada vb.net sangat dibutuhkan, karena jika coding cari/ fungsi cari tidak dibuat maka perintah edit dan hapus tidak akan berjalan. maka dari itu ayo kita buat fungsi cari pada vb.net ini. Sedikit berbeda dengan perintah sebelumnya, jika perintah coding simpan, hapus, edit diketikan pada button, kini cari tidak di ketikan pada button tapi pada textboxt. penggunaan cari pada textbox ini dilakukan agar pencarian bisa cepat tanpa harus mengkil button cari, jadi pada mengetikan keyword maka akan langsung tampil, bingung???ok langsung aja kita ke cara membuat fungsi coding cari/ search
pertama :
klik double pada textbox sebelah label cari, kemudian ketikan coding cari dibawah ini :
Call Koneksi()
DA = New OleDbDataAdapter("Select * from siswa Where nis like '" & Me.TextBox4.Text & "%' or kelas like '" & Me.TextBox4.Text & "%' or nama like '" & Me.TextBox4.Text & "%'", CONN)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "siswa")
DataGridView1.DataSource = (DS.Tables("siswa"))
Dim tampil1 As String
tampil1 = "select * from siswa where nis ='" & TextBox4.Text & "'"
CMD = New OleDbCommand(tampil1, CONN)
RD = CMD.ExecuteReader
If RD.Read Then
TextBox1.Text = RD.Item("nis")
TextBox2.Text = RD.Item("nama")
TextBox3.Text = RD.Item("kelas")
If Me.simpan.Text = "Simpan" Then
TextBox1.Enabled = False
simpan.Enabled = False
End If
End If
Bagaimana mudahkan?? dan ini hasilnya !!
ketika kita ketikan nis, maka dengan otomatis textbox1,textbox2,textbox3 akan terisi secara otomatis, jika kita ketikan nama atau kelas saja akan tampil pada datagridnya saja. Jika ingin melakukan hapus dan edit maka yang harus dicari adalah nis.
mengeriti???
pasti kawan-kawan semua mengerti
semoga bermanfaat ^_^
Kata - kata mutiaranya sungguhh menyentuh...
ReplyDelete