I am trying to insert a record to a Oracle DB but keep getting the following error:
Run-time error '3251'
Object or Provider is not capable of performing requested operation.
Does anyone know how to correct this. My code is below:
Dim cnMaximo As ADODB.Connection 'Maximo connection object
Dim sConnect As String
Set cnMaximo = New ADODB.Connection
sConnect = "Provider=MSDAORA.1;Password=maxglobe;User ID=maxglobe;Data Source=maxdev;Persist Security Info=True"
cnMaximpen sConnect
Dim rsEqTrans As ADODB.Recordset
Set rsEqTrans = New ADODB.Recordset
rsEqTrans.CursorLocation = adUseServer
rsEqTrans.CursorType = adOpenKeyset
rsEqTrans.LockType = adLockOptimistic
rsEqTrans.ActiveConnection = cnMaximo
rsEqTrans.Open "eqtrans"
rsEqTrans.AddNew
rsEqTrans!eqnum = rsMaxLoc!eqnum
rsEqTrans!DATEMOVED = MYrs!Date
rsEqTrans!FROMLOC = rsMaxLoc!Location
rsEqTrans!TRANSDATE = Now()
rsEqTrans!ENTERBY = MYrs!UserInitial
rsEqTrans!Memo = "via Physical Inventory"
rsEqTrans.Update
Thanks,
James
Run-time error '3251'
Object or Provider is not capable of performing requested operation.
Does anyone know how to correct this. My code is below:
Dim cnMaximo As ADODB.Connection 'Maximo connection object
Dim sConnect As String
Set cnMaximo = New ADODB.Connection
sConnect = "Provider=MSDAORA.1;Password=maxglobe;User ID=maxglobe;Data Source=maxdev;Persist Security Info=True"
cnMaximpen sConnect
Dim rsEqTrans As ADODB.Recordset
Set rsEqTrans = New ADODB.Recordset
rsEqTrans.CursorLocation = adUseServer
rsEqTrans.CursorType = adOpenKeyset
rsEqTrans.LockType = adLockOptimistic
rsEqTrans.ActiveConnection = cnMaximo
rsEqTrans.Open "eqtrans"
rsEqTrans.AddNew
rsEqTrans!eqnum = rsMaxLoc!eqnum
rsEqTrans!DATEMOVED = MYrs!Date
rsEqTrans!FROMLOC = rsMaxLoc!Location
rsEqTrans!TRANSDATE = Now()
rsEqTrans!ENTERBY = MYrs!UserInitial
rsEqTrans!Memo = "via Physical Inventory"
rsEqTrans.Update
Thanks,
James