Ini ada satu lagi, kita juga dapat melakukan suatu pencarian berdasarkan value yang kita ambil dari suatu database untuk lebih jelasnya lihat form berikut ini :


 Nah di cmbPilih kita binding nama anggota lalu kita memilihnya dan jika button di klik maka akan muncul data didatagridview berdasarkan nama anggota yang kita pilih di cmbPilih, jelas bukan ?? Nah code nya sebagai berikut :
  

   1: Imports System.Data.OleDb
   2: Public Class Form1
   3:     Private Conn As OleDbConnection
   4:     Private dr As DataRow
   5:     Private dt As DataTable
   6:     Dim ds As New DataSet
   7:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   8:  
   9:         Dim cmd As OleDbCommand
  10:         Dim Adapter As New OleDbDataAdapter
  11:         Dim Connstr As String
  12:         Connstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|Ari_TutorialDatabase.accdb"
  13:  
  14:         Dim sqlstr As String = "select * from anggota"
  15:         Try
  16:             Conn = New OleDbConnection(Connstr)
  17:             Conn.Open()
  18:  
  19:             'Mendapatkan koleksi yang menyediakan mapping antara source dan datatable
  20:             Adapter.TableMappings.Add("Table", "anggota")
  21:             cmd = New OleDbCommand(sqlstr, Conn)
  22:             cmd.CommandType = CommandType.Text
  23:             Adapter.SelectCommand = cmd
  24:             Adapter.Fill(ds)
  25:             ds.AcceptChanges()
  26:             dt = ds.Tables.Item(0)
  27:             ds.Dispose()
  28:             Conn.Close()
  29:  
  30:             'Mengosongkan item combobox
  31:             CmbPilih.Text = ""
  32:             CmbPilih.Items.Clear()
  33:             CmbPilih.BeginUpdate()
  34:             'Memasukan nama fields ke combobox
  35:             For Each dr In dt.Rows
  36:                 CmbPilih.Items.Add(dr("namaanggota").ToString)
  37:             Next
  38:             CmbPilih.EndUpdate()
  39:         Catch ex As Exception
  40:             MessageBox.Show(ex.Message)
  41:         Finally
  42:             Adapter.Dispose()
  43:         End Try
  44:     End Sub
  45:  
  46:     Private Sub CmbPilih_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbPilih.SelectedIndexChanged
  47:         Dim index As Integer
  48:         Dim firstexits As Boolean
  49:         Dim cbom As ComboBox = sender
  50:         Dim txt As String = cbom.Text
  51:         Dim posCursor As Integer = cbom.SelectionStart
  52:  
  53:         If posCursor <> 0 Then
  54:             firstexits = False
  55:             'Mencari kata yang mendekati kata kunci
  56:             For index = 0 To cbom.Items.Count - 1
  57:                 If UCase(Mid(cbom.Items(index), 1, posCursor)) = cbom.Text = cbom.SelectionStart = posCursor Then
  58:                     firstexits = True
  59:                     Exit For
  60:                 End If
  61:             Next
  62:             'Jika hurup utama tidak ada dalam item,
  63:             'mengembalikan nilai sebelumya(previous)
  64:             If Not firstexits Then
  65:                 cbom.Text = Mid(txt, 1, posCursor - 1) + Mid(txt, posCursor + 1)
  66:                 cbom.SelectionStart = posCursor - 1
  67:             End If
  68:         End If
  69:     End Sub
  70:  
  71:     Private Sub BtnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDisplay.Click
  72:         Dim dv As DataView
  73:         Dim str As String = "namaanggota = '" & CmbPilih.Text & "'"
  74:         Try
  75:             dv = dt.DefaultView
  76:             dv.RowFilter = str
  77:             DgvView.DataSource = dv
  78:         Catch ex As Exception
  79:             MessageBox.Show(ex.Message)
  80:         End Try
  81:         
  82:     End Sub
  83: End Class

 
Source codenya bisa anda dapatkan disini Sekian semoga bermanfaat :) 

SUmber : http://netvbnet.blogspot.com