Непонятка при инсерте записи в таблицу Access из Excel!!! - VB

Узнай цену своей работы

Формулировка задачи:

Всем доброго времени суток!
Объясните такой конфуз. Из макроса MS Excel вставит запись в таблицу gCurrTable (структура - поле id (счетчик) и поле name (тестовое)). делаю:
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open gCurrTable, db, , , adCmdTable
rs.AddNew
rs("name").Value = "111"
Set rs = Nothing
И ничего не вижу. Но когда блок AddNew повторяю два раза - всё отображается:
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open gCurrTable, db, , , adCmdTable
rs.AddNew
rs("name").Value = "111"
rs.AddNew
rs("name").Value = "111"
Set rs = Nothing
Объясните, пожалуйста, в чем дело? не могу понять...
Спасибо.
p.s.: db.ConnectionString = "DBQ=" & file_mdb & ";UID=admin;PWD=" & Password & ";DRIVER={Microsoft Access Driver (*.mdb)};"

Решение задачи: «Непонятка при инсерте записи в таблицу Access из Excel!!!»

textual
Листинг программы
rs.AddNew
rs(<font color="teal">"name"</font>).Value = <font color="teal">"111"</font>

rs.Update

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы