+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة بتعديل على كود بحث (ربط بكود) (/showthread.php?tid=3471)
مساعدة بتعديل على كود بحث (ربط بكود) - DeSSaR - 14-07-14
السلام عليكم ورحمة الله وبركاته
اخواني الله يعطيكم الصحة والعافية ابي تعديل على كود للبحث
حيث ان الكود يبحث عن نص فقط واريده ان يقوم بالبحث عن نص ورقم ورقم بكسور
مثال اريد ان ابحث عن (صادر 4/5 وارد) اريده ان يبحث عن النص او النص والرقم او الرقم بالكسر ويكون الناتج بجدول
اتمني انكم فهمتو علي
الكود:
كود :
If TextBox1.Text.Trim = "*" Then
Call LoadData()
Exit Sub
Else
ds.Clear()
DataGridView1.DataSource = Nothing
Dim da As New OleDb.OleDbDataAdapter("select ID,Sader_Wared,num from Fj where Sader_Wared like '%" & TextBox1.Text & "%' ", con)
da.Fill(ds, "T_Tel")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Fj"
End If
DataGridView1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End Sub
[/align]- حيث (sader_wared) حقل بالقاعدة التي اريد البحث بها
- حيث (Fj) قاعدة البيانات
واشكركم مقدما ^^"
RE: مساعدة بتعديل على كود بحث (ربط بكود) - DeSSaR - 14-07-14
تم حل المشكلة بحمدالله
