[اسلام الكبابى]

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

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

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

PHP كود :

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 واستبدلته بأى تاريخ ثابت فكتبتهاهكذا لم يعترض ونفذ الكود تنفيذآ صحيحآ

PHP كود :

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


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

PHP كود :

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


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

PHP كود :

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


فكيف حل هذه المشكلة
ولكم ألف شكر