Bunu listbox nasıl yaparım ?Public
Public Class
Dim baglan As OleDbConnection
Dim komut As New OleDbCommand
Dim data As OleDbDataReaderTextbox içine yazılan kod
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & yol & "\vt1.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "insert into tablo (sekle,sanlam) values (p1)"
komut.CommandText = "select * from tablo where sekle like p1"
komut.Parameters.Add("p1", "%" & TextBox1.Text & "%")
data = komut.ExecuteReader
komut.Parameters.Clear()
Dim tablo As DataTable = New DataTable
tablo.Load(data)
DataGrid1.DataSource = tablo
data.Close()
baglan.Close()