منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ممكن كود البحث بتاريخ اليوم عن طريق اداة adodc

(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.Refresh

حيث sheet1 هو اسم الجدول و ال date هو اسم الحقل اما x = DTPicker1 فيكمنك استبدال DTPicker1 ب text التاريخ مثلا

استاذ السيد الغالي
شكرا على ردك لكن
جربت هذا الكود لكن لم يفلح معي لا ادري لماذا رغم انني اعرف هذا الكود صحيح
المشكله ان الداتا قريد عندما اضغط على زر البحث يطلع فارغ

السلام عليكم
ممكن ارفاق المشروع