SQL DELETE Syntax как правильно произести обновление?

[xenomorph]

Вопрос:

Код: Выделить всё

frm_Main.ado_Messages.RecordSource = "DELETE FROM Messages WHERE DateStamp<>" & "'" & CStr(Date) & "'"

Запрос срабатывает, но вот если после этого сделать frm_Main.Refresh
Вылетает сошибкой 8-(.
Как обновить данные в БД чтоб удаление прошло корректно?
--
Заранее огомное спасибо!

[alibek]

Какая ошибка? Что нет текущей записи?

[Andrey Fedorov]

Какая ошибка? Что нет текущей записи?

Хм... А ты посмотри что он в RecordSource запихивает...
Что при этом хочет увидеть непонятно...

[alibek]

Хм... А ты посмотри что он в RecordSource запихивает...
Что при этом хочет увидеть непонятно...

И правда

xenomorph, набор данных может вернуть только SELECT-запрос. И уж конечно не так, как это сделано у тебя (заданием строковой переменной).

[xenomorph]

Меня гложат смцтные сомненья .

Как выполнить данный запрос?
?

[GSerg]

Создать ADODB.Command, присвоить CommandText и вызвать Execute.

[alibek]

Да можно и проще, cnn.Execute.
Возможно даже frm_Main.ado_Messages.RecordSource.ActiveConnection.Execute "delete ...", в зависимости от того, что такое ado_Messages

[xenomorph]

2 Alibek: ADODC.

[alibek]

Не юзал никогда ADODC, попробуй. Если не получится, то выполняй <connection>.Execute, а после него обновляй форму.