Insert to Access table
"Matt" wrote:
with the error handling turned on I am getting
"Multi-Step OLE DB operation generated errors"
Looks like you also misspelled "provider":
Dim objConnection As ADODB.Connection
Dim objCommand As ADODB.Command
Dim rsData As ADODB.Recordset
Dim lRecordsAffected As Long
Dim lKey As Long
Dim sConnect As String
' On Error GoTo ErrorHandler
'connection string
sConnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data
Source=U:\intranet\pmdata.mdb; Mode=Share Exclusive"
Set objConnection = New ADODB.Connection
objConnection.Open sConnect
'command object for statements
Set objCommand = New ADODB.Command
objCommand.ActiveConnection = objConnection
'insert statement
objCommand.CommandText = "INSERT INTO table1(Test1, Test2) VALUES('test456',
'test4567');"
'execute statement
objCommand.Execute 'RecordsAffected:=lRecordsAffected,Options:=adCmdT xt Or
adExecuteNoRecords
--
urkec
|