+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كود البحث عن رقم (/showthread.php?tid=5545)
كود البحث عن رقم - Ahmed Abdulla - 12-10-12
السلام عليكم
أخواني الكرام اذا كنت استخدم الكودالتالي في البحث عن اسم فماذا يكون كود
البحث عن رقم
Adodc1.RecordSource = "Select * From T Where Name= '" & Trim(Text1.Text) & "'" Adodc1.Refresh
كود البحث عن رقم - TaHeR - 12-10-12
Adodc1.RecordSource = "Select * From T Where Name= '" & Text1.Text & "'" Adodc1.Refresh
او
Adodc1.RecordSource = "Select * From T Where Name= '" & val(Text1.Text) & "'" Adodc1.Refresh
كود البحث عن رقم - Ahmed Abdulla - 12-10-12
جزاك الله كل خير أخي الكريم
كود البحث عن رقم - Ahmed Abdulla - 12-10-12
أخي الكريم حدثت مشكلة أخري لأن حقل الرقم من النوع Long
كود البحث عن رقم - أبو أسامة - 12-10-12
أخى الكريم
هذا مثال صغير على البحث بواسطة الرقم والإسم
ولكن بالأكواد دون استخدام أداة adodc وهذه الطريقة أفضل من استخدام هذه الأداة
المثال فى المرفقات
كود البحث عن رقم - Ahmed Abdulla - 12-10-12
جزاك الله خيرا
كود البحث عن رقم - magdy - 22-10-12
PHP كود :
'للبحث بالاسم
Adodc1.RecordSource = " select * from TB1 where Name = '" & Text1.Text & "' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
'للبحث بالرقم
Adodc1.RecordSource = " select * from TB1 where NO= " & Text1.Text & " "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
'للبحث بجزء من الاسم
Adodc1.RecordSource = " select * from TB1 where Name like '" & Text1.Text &"*" & "' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
'للبحث بجزء من الرقم
Adodc1.RecordSource = " select * from TB1 where NO like " & Text1.Text & "*" & " "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
'طريقه أخرى
للبحث بالحرف
set cn = new adodb.connection
cn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\db1.mdb"
If RS.State = 1 Then RS.state= close
RS.Open " select * from t1 where name like '" & text1.text & "*" & "' " , cn , adopenkeyset, adlockoptimistic