mamad174
چهارشنبه 27 مرداد 1389, 23:11 عصر
با سلام ن با این کد جستجو می کنم مشکلی هم ندارم فقط می خوام بدونم چطور میشه اگر مورد پیدا نشد یا پیدا شد من متوجه بشم تا پیغام مناسب رو به کاربر نشون بدم
کد:
DataGridView1.AutoGenerateColumns = True
DataGridView1.DataBindings.Clear()
Dim s1, s2 As String
Dim ds As DataSet = New DataSet
s1 = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=E:\DIC\e.mdb"
Dim con As OleDbConnection = New OleDbConnection(s1)
con.Open()
s2 = "select * from e where estelah=" + "'" + TextBox1.Text + "'"
Dim da As OleDbDataAdapter = New OleDbDataAdapter(s2, con)
da.Fill(ds, "e")
DataGridView1.DataBindings.add(New Binding("DataSource", ds, "estelah"))
کد:
DataGridView1.AutoGenerateColumns = True
DataGridView1.DataBindings.Clear()
Dim s1, s2 As String
Dim ds As DataSet = New DataSet
s1 = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=E:\DIC\e.mdb"
Dim con As OleDbConnection = New OleDbConnection(s1)
con.Open()
s2 = "select * from e where estelah=" + "'" + TextBox1.Text + "'"
Dim da As OleDbDataAdapter = New OleDbDataAdapter(s2, con)
da.Fill(ds, "e")
DataGridView1.DataBindings.add(New Binding("DataSource", ds, "estelah"))