Непонятка при инсерте записи в таблицу 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)};"
Объясните такой конфуз. Из макроса 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д