Добавление записи в базу данных Access, используя ADO и SQL

[MAGRAV]

Добры день форумчане. Пытаюсь формировать небольшую базу в Access из источников *.CSV или *.XLS(...).
При попытке воспроизвести SQL-запрос выдаёт синтаксическую ошибку. Причём дело не в длине запроса. У меня подобный же сборник работает с другими подобными источниками и длина SQL-запроса порой превышает 1000 символов. А здесь вроде всё тоже самое, но ни в какую.
Проверял так же на не совпадение с системными именами.
Теряюсь в догадка в чем же всё таки дело?
Мне кажется я где то строгость синтаксиса при формировании величин для заполнения не учёл.
Пример базы с исходными данными прикладываю. Обсуждаемая реализация запускается с кнопки на форме.

[ger_kar]

Скачал файлы, но к сожалению файл базы оказался не mdb, а accdb. У меня Access 2003 и базы нового формата он не поддерживает. По поводу возможных проблем могу посоветовать вот что (опять же только на для Access 2003, хотя и в новых версиях такая настройка может быть). Так вот, в Access можно включить расширенную версию языка запросов. Включается она в настройках параметров базы данных на вкладке Таблицы и Запросы. Вот скрин

Настройки Access 2003

mdb.png (46.68 Кб) Просмотров: 1977

Возможно включение этого режима поможет решить проблему.
Если не поможет, то может как то возможно сохранить базу в старом формате и выложить сюда. Тогда будем решать дальше.

[MAGRAV]

ger_kar, Попробовал поменять эти настройки. Не получилось. Сохранил в формате 2002-2003. Лежит в первом сообщении. Заранее спасибо за участие!

[HandKot]

Теряюсь в догадка в чем же всё таки дело?
Мне кажется я где то строгость синтаксиса при формировании величин для заполнения не учёл.
Пример базы с исходными данными прикладываю. Обсуждаемая реализация запускается с кнопки на форме.

ошибка в том, что Вы открываете базу, которая уже открыта в процедуре DB_Insert_via_ADOSQL3
замените

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

    cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & dbPath & ";"

на

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

    Set cnt = CurrentProject.Connection

Ошибка 2 (при удалении): в таблице mrx нет полей DAYS и DATE. Скорее всего опечатка, т.к есть поля DAYSIS и DATES

[MAGRAV]

HandKot, Попробовал реализовать ваши рекомендации. По прежнему одна и та же ошибка: "Отсутствует значение для одного или нескольких требуемых параметров."

[HandKot]

Поставьте брэекпоинт на строке формирования команды удаления и пришлите что она сформирует

[ger_kar]

Ошибка 2 (при удалении): в таблице mrx нет полей DAYS и DATE. Скорее всего опечатка, т.к есть поля DAYSIS и DATES

HandKot, Попробовал реализовать ваши рекомендации. По прежнему одна и та же ошибка: "Отсутствует значение для одного или нескольких требуемых параметров."

В модуле AddDate в Sub DB_Insert_via_ADOSQL3
Поменял

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

rst.Open "DELETE FROM " & tblName & " WHERE Код NOT IN (SELECT MIN(Код) FROM  " & tblName & "  GROUP BY ShortFileName, WGNAMES, DAYS, DATE)"

На

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

rst.Open "DELETE FROM " & tblName & " WHERE Код NOT IN (SELECT MIN(Код) FROM  " & tblName & "  GROUP BY ShortFileName, WGNAMES, DAYSIS, DATES)"

И все работает без ошибок.

[MAGRAV]

ger_kar, Спасибо! Вы во всём правы. Сам же упомянул что нельзя названиям полей давать имена совпадающие с системными, в данном случае DATE, а сам не строго этому правилу следовал. Разве что текущий вид запроса не является оптимальным судя по всему. 2000 записей придётся ждать до пенси)))
Не подскажите в каком направлении двигаться?
Вместо запроса INSERT INTO ... VALUES ... лучше открыть Recordset на нужной таблице и добавить запись туда? Это и проще, и надежней, и наглядней?