Набор записей в Excel VBA ничего не возвращает, пока данные присутствуют в БД Access - PullRequest
Новая
       43

Набор записей в Excel VBA ничего не возвращает, пока данные присутствуют в БД Access

0 голосов
/ 04 июня 2019

Я использую свой код VBA в Excel, который подключается и извлекает набор записей из Access. У меня есть запрос, который делает выбор на основе даты и идентификатора. Я знаю, что запись присутствует в таблице, но похоже, что когда я добавляю свое условие даты, набор записей выходит пустым.

Я просматривал этот веб-сайт, и каждое предложение, которое я видел, я пытался, но мой набор записей все еще пуст

Вот код, который я использую: 

'Here is the query

currentday = Format(Date, "dd-mm-yyyy")
extrct = "select * from Table1 where badge_ID=" & Me.BadgeInput & " " & "and date_pres=" & "#" & currentday & "#"
conn.Open (strconn)

rs3.Open extrct, conn, adOpenKeyset, adLockOptimistic, adCmdText

'This is where I check for any value is the recordset
If rs3.EOF And rs3.BOF Then -- This is coming out as True (no record)
GoTo 1
Else
GoTo 2
End If

Я думаю, что в состоянии даты что-то не так, но я не могу понять, что, учитывая, что я перепробовал все, что знаю

Заранее спасибо за помощь

1 Ответ

2 голосов
/ 05 июня 2019

Поскольку вы живете в Европе, обязательно использовать правильный формат для выражения значения даты: 

currentday = Format(Date, "yyyy\/mm\/dd")

Если это не просто пример, и вы всегда будете использовать сегодняшнюю дату, просто используйте: 

extrct = "select * from Table1 where badge_ID = " & Me.BadgeInput & " and date_pres = Date()"

Если вы сохранили компонент времени: 

extrct = "select * from Table1 where badge_ID = " & Me.BadgeInput & " and Fix(date_pres) = Date()"
...