كتابة التاريخ في جملة ال sql

كتبت هذا الكود وكتبت فيه جملة ال SQL بأكثر من أسلوب

وفى كل مرة يقبل الجملة اذا كان التاريخ فبها مقدار ثابت

ويعترض على الجملة اذا كان التاريخ فبها متغير

Dim dateACT As String
Dim MMSG As String
Dim db As ADODB.Connection
Dim RS As ADODB.Recordset


Private Sub Command1_Click()
      dateACT = TextDATE.Text
    Set RS = New ADODB.Recordset
    RS.Open "select * from TABLE1 where (dateACT  BETWEEN  date1  AND  date2 )  ", db, adOpenStatic, adLockReadOnly

      MMSG = RS.Fields(2)
     Print "MMSG = "; MMSG

End Sub

Private Sub Form_Load()
Set db = New ADODB.Connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=; Data Source=" & App.Path & "\INGINEER.mdb"

End Sub

فحين كتبت الكود السابق وقمت بعمل الRUN اعترض على جملة الSQL

وحين حذفت متغير التاريخ dateACT من جملة الSQL واستبدلته بأى تاريخ ثابت فكتبتهاهكذا لم يعترض ونفذ الكود تنفيذآ صحيحآ

RS.Open "select * from TABLE1 where (#22/4/2011#  BETWEEN  date1  AND  date2 )  ", db, adOpenStatic, adLockReadOnly

وأعدت كتابة جملة الSQL بأسلوب آخر

فحين كتبتها هكذا اعترض علبها

RS.Open "select * from TABLE1 where (dateACT >= date1) And (" & dateACT & " < date2)", db, adOpenStatic, adLockReadOnly

RS.Open "select * from TABLE1 where (#22/4/2011# >= date1) And ( #22/4/2011# < date2)", db, adOpenStatic, adLockReadOnly

فكيف حل هذه المشكلة

ولكم ألف شكر

كتابة التاريخ في جملة ال sql

مواضيع مشابهة