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