(23/04/2013, 13:14)sngl07 yazdı: Merhabalar benim bir sorum olacak. Benim kolay bir kütüphane programım var. Textboxtan arama yapıp datagridde gösteremiyorum onu nasıl yapacağım? Bir de accesste link adında alan açtım onun datagridde link olarak gözükmesi için ne yapmalıyım? Şimdiden çok teşekkür ederim.
Kod:
Public Sub arama(ByVal aranan As String)
Dim baglanti = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb'")
Dim sondan_arama As String = "select * from mukellefler where firmaunvani like'%" + aranan + "'"
Dim bastan_arama As String = "select * from mukellefler where firmaunvani like'" + aranan + "'%"
Dim ortadan_arama As String = "select * from mukellefler where firmaunvani like'%" + aranan + "%'"
Dim adaptor As New OleDbDataAdapter(ortadan_arama, baglanti)
Dim tablo As New System.Data.DataTable
adaptor.Fill(tablo)
DataGridView1.DataSource = tablo
End SubKod:
Private Sub TextBox57_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox57.TextChanged
arama(TextBox57.Text)
End Sub