Senin, 04 Desember 2017

Membuat Fungsi Pencarian Data dengan Visual Basic .Net

Salimware , Tidak ada komentar:
Sebuah sistem hendaknya dibangun dengan konsep User Friendly atau mudah digunakan. Aktifitas yang biasa dilakukan pengguna adalah mencari data - data yang telah lalu dengan tujuan mungkin untuk analisa data dan sebagainya. Untuk menambahkan fungsi pencarian data pada program ikuti langkah - langkah dibawah ini :

1. Buat sebuah projek pada Visual Basic .Net dengan nama Pencarian.sln.
2. Desain antar muka seperti dibawah ini.
3. Buat sebuah SubRoutin dengan nama Pencarian, kemudian ketikkan listing berikut
Private Sub Pencarian()
  Dim CnnDb As New OleDbConnection(My.Settings.Koneksi)
  CnnDb.Open()

  Dim str As String = "SELECT Orders.OrderID, Orders.OrderDate,Customers.CompanyName," & _
  "Products.ProductName, [Order Details].UnitPrice, [Order Details].Quantity " & _
  "FROM Products INNER JOIN ((Customers INNER JOIN Orders " & _
  "ON Customers.CustomerID = Orders.CustomerID) INNER JOIN [Order Details] " & _
  "ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID " & _
  "WHERE (((Customers.CompanyName) Like '%" & Me.txtCari.Text &  "%'))"
  Dim adp As New OleDbDataAdapter(str, CnnDb)
  Dim dt As New DataTable
  adp.Fill(dt)
  Me.grid.DataSource = dt
End Sub

4. Klik dua kali pada kontrol textbox dan ketikkan SubRoutin Pencarian yang telah dibuat tadi.

 Baca juga : Mengintip Password pada Database MS Access Menggunakan Visual Basic .Net

Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged
   Me.Pencarian()
End Sub

ketikkan juga listing dibawah ini ke dalam routin event klik pada tombol Clear

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
   Me.txtCari.Text = ""
   Me.Pencarian()
End Sub
5. Jalankan program kemudian ketikkan keyword atau kata kunci yang akan dicari.
Pada gambar diatas saya masukkan kata kunci 'carnes' sehingga data yang muncul hanyalah data yang berisi kata 'carnes' berdasarkan pencarian pada field CompanyName. Anda bisa mengganti parameter pencarian berdasarkan field yang diinginkan atau bisa juga dengan kombinasi semua field yang ada. Demikian tutorial singkat kali ini dan semoga membantu.
,

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)