البحث فى قاعدة البيانات عن طريق التاريخ

Private Sub Command1_Click(

MSFG.Visible = True

With MSFG

.Rows = 1

.Cols = 2

.ColWidth(0) = 600

.ColWidth(1) = 1200

For i = 0 To .Cols - 1

.ColAlignment(i) = 0

Next i

.TextArray(0) = "name"

.TextArray(1) = "date"

dd = text1.text

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=mydb.mdb;"

Set adoPrimaryRS = New Recordset

adoPrimaryRS.Open "SHAPE {select * from table1 where mydate = " & dd & " } AS ChildCMD ", db, adOpenStatic, adLockOptimistic

If adoPrimaryRS.EOF = True Then

MsgBox "no data exist"

Else

If adoPrimaryRS(0) <= 0 Then

MsgBox "no entry"

adoPrimaryRS.MoveNext

Else

While Not adoPrimaryRS.EOF

.AddItem adoPrimaryRS(0) & vbTab & adoPrimaryRS(1)

adoPrimaryRS.MoveNext

Wend

End If

End If

End With

End Sub

زمزمة ارجو ان ينفعك هذا الكود

dd

هو المتغير الذى سيأخذ التاريخ من على الشاشة

MSFG

هو اسم MSFLIXGRID

وانا افضلها فى الاستخدام عن

DBGRID

لو عندك اى سؤال انا فى الخدمة

ودة مثال شبيه لما تريد ايضا

ٌّي‏é_لêيïيï_َىل_ِمن_مىçل_êçٌيî_مْين.zip

بسم الله الرحمن الرحيم

أخي يمكنك البحث عن التاريخ المطلوب بإستخدام عبارة sql ولتسهيل كتابها

يمكنك عبر الاكسس بعد تحديد الجدول المطلوب ثم اختر sql جديد ثم اختر الحقول وأكتب تحت حقل التاريخ متغير ثم قص التعبير الاسكيوإل وضعة ضمن الكود

:o

الف شكر للاخوة الاعضاء