- Код: Выделить всё
Dim db1 As Database
Dim rs1 As Recordset
Dim strSQL1 As String
strSQL1 = "select * from data where data_date='" & Date & "'"
Set db1 = OpenDatabase(Name:="", Connect:="DNS=;UID=sa;PWD=")
Set rs1 = db1.OpenRecordset(strSQL1, dbOpenSnapshot)
...
Тип данных поля data_date в SQL - datetime. На открытии рекордсета в последней строке выдаёт ошибку:
Run-time error '3464'
Несоответствие типов данных в выражении условия отбора.
Посоветуйте как корректно передавать дату в условие отбора, т.к. без условия работает отлично.