17-10-12, 09:55 PM
كاتب الموضوع : سعود
اضف مربع نص وزر امر واداة شبيكة البياناتالتعريفات العامة توضع بمنطقة التصريحات العامة
كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDb.OleDbConnection(str)
Dim sql As String = "select * from tb"
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter(sql, con)
كود :
ds.Clear()
DataGridView1.DataSource = Nothing
DataGridView1.DataMember = Nothing
da.Fill(ds, "tb")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "tb"
وضع بقاعدة البيانات مختارات من هذه الكلمات واضف كلمات اخرى وانظر ماذا يفعل الكود التالي تضعه بحدث النقر لزر الامر
كود :
Dim p() As String = TextBox1.Text.Split(" ")
Dim ds1 As New DataSet
For Each s In p
Dim sql1 As String = "select * from tb where tname='" & s & "'"
Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)
da1.Fill(ds1, "tb")
Next
DataGridView1.DataSource = ds1
DataGridView1.DataMember = "tb"