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, alasannya kalau coding cari/ fungsi cari tidak dibentuk 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, kalau perintah coding simpan, hapus, edit diketikan pada button, sekarang cari tidak di ketikan pada button tapi pada textboxt. penggunaan cari pada textbox ini dilakukan semoga pencarian dapat cepat tanpa harus mengkil button cari, jadi pada mengetikan keyword maka akan pribadi tampil, bingung???
ok pribadi aja kita ke cara menciptakan fungsi coding cari/ search
pertama :
klik double pada textbox sebelah label cari, lalu 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 balasannya !!
saat kita ketikan nis, maka dengan otomatis textbox1,textbox2,textbox3 akan terisi secara otomatis, kalau kita ketikan nama atau kelas saja akan tampil pada datagridnya saja. Jika ingin melaksanakan hapus dan edit maka yang harus dicari yaitu nis.
mengeriti???
niscaya kawan-kawan semua mengerti
semoga bermanfaat ^_^
Sumber http://tutorial-komputertech.blogspot.com
ok pribadi aja kita ke cara menciptakan fungsi coding cari/ search
pertama :
klik double pada textbox sebelah label cari, lalu 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 balasannya !!
saat kita ketikan nis, maka dengan otomatis textbox1,textbox2,textbox3 akan terisi secara otomatis, kalau kita ketikan nama atau kelas saja akan tampil pada datagridnya saja. Jika ingin melaksanakan hapus dan edit maka yang harus dicari yaitu nis.
mengeriti???
niscaya kawan-kawan semua mengerti
semoga bermanfaat ^_^
Sumber http://tutorial-komputertech.blogspot.com
0 Response to "Source Code Pencarian Di Vb.Net"
Posting Komentar