+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (https://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (https://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (https://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : البحث عن اي كلمة في مربع النص (/showthread.php?tid=6373)
البحث عن اي كلمة في مربع النص - RaggiTech - 17-10-12
كاتب الموضوع : سعود
اضف مربع نص وزر امر واداة شبيكة البياناتالتعريفات العامة توضع بمنطقة التصريحات العامة
كود :
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"