منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
البحث بالكومبوبوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : البحث بالكومبوبوكس (/showthread.php?tid=30376)

البحث بالكومبوبوكس - princeofislam - 18-07-19

سلام عليكم ورحمه الله وبركاته

عندي الكود التالي 
كود :
If Not Combo3.Text = "Çáßá" Then Adodc1.RecordSource = "select * from kaf where  mynat ='" & Combo1.Text & "' and mystat='" & Combo2.Text & "'and mysex ='" & Combo3.Text & "'and myage Between " & Text121.Text & " AND " & Text131.Text & " Order By myage"

واريد ان احولة الى كود برمجي اخر يعطي نفس الشي كنت استخدم اداة  ادودك 
اريد ان يكون  على طريقة الربط بدون ادوات يعني مثلا
كود :
 rs.Filter = "xnum LIKE '" & Me.Text1.Text & "*'"

يعني استاذة كنت استخدم ادوات الربط الان اصبحت استخدم مكتبة 2.8
هذا الكود مش زابط معي والله

If Not Combo1.Text = "الكل" Then rs.Filter = "xnat LIKE '" & Combo1.Text & "'and xstat='" & Combo2.Text & "'and xsex='" & Combo3.Text & "'and xage Between " & Text121.Text & " AND " & Text131.Text & " Order By myage" * ""

Set DataGrid1.DataSource = rs

RE: البحث بالكومبوبوكس - princeofislam - 18-07-19

كود :
 If Not Combo1.Text = "الكل" Then rs.Filter = "xnat LIKE '" & Combo1.Text & "'and xstat='" & Combo2.Text & "'and xsex='" & Combo3.Text & "'"

 Set DataGrid1.DataSource = rs

 
هذا الكود شغال لاكن عندما اضع مع البحث البحث عن العمر بين رقمين ما بيزبط
age = xage filed
between text121 and text 131

RE: البحث بالكومبوبوكس - princeofislam - 18-07-19

تفضل استاذي الغالي امير 

الاستعلامات التي اريد هي باللون الاصفر
استاذ امير في مربعين تيكست لونهم اصفر عشان فلترة العمر من كذا الى كذا

RE: البحث بالكومبوبوكس - princeofislam - 18-07-19

اشكرك استاذي الغالي
انا عملت بنصيحتك واستخدم الفيجوال الان بدون ادوات ... ادعيلي

RE: البحث بالكومبوبوكس - princeofislam - 19-07-19

تلميذك استاذي