General information
Title:
ADO Connection to Access97 won't AddNew record
Please help...
I get an error message when I use an ADO Connection object and Recordset Object and attempt an 'AddNew' to an Access 97 Database... the message is :
'ADODB.Recordset error '800a0cb3' The operation requested by the application
is not supported by the provider. /ifcsiteX/ImportAllFiles.asp, line 155 '
I can read from the database, but not write. The code is like this...
'Function Import(sFileName)
'Dim oConn
'dim sLainFaulknerDbPath
'sLainFaulknerDbPath = 'W:\Personal\NetPropeller.com\LainFaulkner\LainFaulkner.mdb'
'
'Open a connection to the database and tmp table
'Dim oLainFaulknerDB
'dim oTempImportTblRS
'Set oLainFaulknerDB = Server.CreateObject("'ADODB.Connection')
'Set oTempImportTblRS = Server.CreateObject('ADODB.Recordset')
'oLainFaulknerDB.Open 'provider=microsoft.jet.oledb.4.0; data source=' & sLainFaulknerDbPath
'oTempImportTblRS.Open 'select * From tmpImporttbl', oLainFaulknerDB, adOpenDynamic
' oTempImportTblRS.ActiveConnection = oLainFaulknerDB
' oTempImportTblRS.CursorLocation = adUseClient
' oTempImportTblRS.CursorType = adOpenKeyset
' oTempImportTblRS.LockType = adLockOptimistic
' oTempImportTblRS.Source = "select * From tbltmpImport"
' oTempImportTblRS.Open
'
'
' with oTempImportTblRS
' .movefirst
' .addnew
' .fields("Claim Number") = '123'
' .fields("Case Number") = '111'
' .Update
'oTempImportTblRS.Close
'Set oTempImportTblRS = Nothing
'oLainFaulknerDB.Close
'Set oLainFaulknerDB = Nothing
'End Function
Thanks if you can help,
Barry Thomas
Houston, TX
PS... I had to change all of my double quotes to single quotes to send this message
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only