Не работает "Insert into" из VBA

@MaximKr · Регистрация: 02.10.2010

Студворк — интернет-сервис помощи студентам

Друзья, почему появляется сообщении об ошибке "Application-defined or object-defined error"

PureBasic

Sub Addrecords()
Dim conn As New ADODB.Connection
conn.Execute ("Insert into c:\qqqq.dbf (Pole1, Pole2) values('asdasdas', 'sddfdsfdsd')")
End Sub

Библиотека ActiveX Data Objects 6.1 Library подключена
Файл c:\qqqq.dbf с соответствующими полями присутствует

~~dev.Free~~ · 17.06.2013, 07:05

Сообщение от MaximKr

ActiveX Data Objects 6.1

2.8 версия и почитайте внимательно вот это: https://www.cyberforum.ru/post4111728.html

@MaximKr · 18.06.2013, 02:29 **[ТС]**

Спасибо! Воспользовался примером.
Вот так заработало:

Visual Basic

1	Public CONN As New ADODB.Connection

Visual Basic

Sub Addrecords()
Set CONN = Nothing
Set CONN = New ADODB.Connection
CONN = "Driver={Microsoft dBase Driver (*.dbf)};Dbq=C:\;Uid=Admin;Pwd=;"
CONN.Open
CONN.Execute ("Insert into qqqq.dbf (Pole1, Pole2) values('asdasdas', 'sddfdsfdsd')")
End Sub

~~dev.Free~~ Заблокирован
	17.06.2013, 07:05	2
	Сообщение от MaximKr ActiveX Data Objects 6.1 2.8 версия и почитайте внимательно вот это: https://www.cyberforum.ru/post4111728.html 1

Опции темы