none
Вставка строк в таблицу Access из Excel (VBA) RRS feed

  • Вопрос

  • Здравствуйте,

    Существует код завязаный на CommandButton в Excel:

        Dim accapp As Access.Application
        Set accapp = CreateObject("Access.Application")
        accapp.OpenCurrentDatabase "c:\base.mdb", True
        sqltext = "insert into MyTable (field1, field2) values (1,'abc')"    
        accapp.DoCmd.RunSQL (sqltext)
        MsgBox "Results submitted!"

    При нажатии кнопки, запускается Access, проходит буквально полсекунды и выводится сообщение "Results submitted". Но при открытии базы в Access запись в таблице не появляется.

    Где порыться на предмет грабель?

    Спасибо заранее.

    18 декабря 2006 г. 14:56

Ответы

Все ответы

  •  accapp.DoCmd.RunSQL (sqltext)
    Эта строка выдаёт ошибку, но вы её не отлавливаете. Вплоть до установленной где-то выше on error resume next

    Ошибка, вероятно, в том что забыли таблицу создать

    18 декабря 2006 г. 22:38
  • в посте у меня упрощенный вариант запроса, на самом деле он сложнее, и когда в нем была ошибка, я получал ее в виде error message, так что если сейчас ничего не выдается, то значит и ошибки access в запросе не находит.

    тем более что нет у меня ни выше, ни ниже директив on error resume next. там только процедура для обработки нажатия кнопки.

    может какие-нить другие соображения?

    19 декабря 2006 г. 6:40
  • В общем не стал я мучаться с этим проблемным и некрасивым методом и вставил строки простенько - через ADODB.
    Всем спасибо.
    26 декабря 2006 г. 11:48