View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
urkec urkec is offline
external usenet poster
 
Posts: 131
Default 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