![]() |
|
البحث بالكومبوبوكس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 & "'"age = xage filed between text121 and text 131 RE: البحث بالكومبوبوكس - princeofislam - 18-07-19 تفضل استاذي الغالي امير الاستعلامات التي اريد هي باللون الاصفر استاذ امير في مربعين تيكست لونهم اصفر عشان فلترة العمر من كذا الى كذا RE: البحث بالكومبوبوكس - princeofislam - 18-07-19 اشكرك استاذي الغالي انا عملت بنصيحتك واستخدم الفيجوال الان بدون ادوات ... ادعيلي RE: البحث بالكومبوبوكس - princeofislam - 19-07-19 تلميذك استاذي |