+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] كود البحث بتاريخ اليوم (/showthread.php?tid=11391)
كود البحث بتاريخ اليوم - larbihamri - 10-02-15
ممكن كود البحث بتاريخ اليوم عن طريق اداة adodc
RE: كود البحث بتاريخ اليوم - السيد الغالي - 10-02-15
(10-02-15, 09:47 PM)larbihamri كتب : ممكن كود البحث بتاريخ اليوم عن طريق اداة adodc
السلام عليكم
تفضل اخي العزيز
كود :
On Error Resume Next
Dim x As String
x = DTPicker1
Adodc1.RecordSource = " select * from Sheet1 where date like '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.RefreshRE: كود البحث بتاريخ اليوم - larbihamri - 10-02-15
استاذ السيد الغالي
شكرا على ردك لكن
جربت هذا الكود لكن لم يفلح معي لا ادري لماذا رغم انني اعرف هذا الكود صحيح
المشكله ان الداتا قريد عندما اضغط على زر البحث يطلع فارغ
RE: كود البحث بتاريخ اليوم - السيد الغالي - 10-02-15
السلام عليكم
ممكن ارفاق المشروع