Could someone help me with this, please.
This error occurs when the Command Object attempts to execute the stored procedure
Run-time error '-2147217900(80040e14)':
Internal OLE Automation Error
Here's the code:
Dim cmd As ADODB.Command
Dim cnObj As ADODB.Connection
Dim strConnection As String
Dim rs As ADODB.Recordset
Dim intRSCount As Long
strConnection = "Provider=Microsoft.jet.OLEdb.4.0;Data source= l:\desk_top.qa\coroma\data\coroma.mdb;"
Set cnObj = New ADODB.Connection
cnObj.CursorLocation = adUseClient
cnObj.Open strConnection
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnObj
'.CommandText = "sp_Role"
.CommandText = "spUpdateRoleOne"
.CommandType = adCmdStoredProc
.Execute
End With
'Set rs = cmd.Execute
'intRSCount = rs.RecordCount
This error occurs when the Command Object attempts to execute the stored procedure
Run-time error '-2147217900(80040e14)':
Internal OLE Automation Error
Here's the code:
Dim cmd As ADODB.Command
Dim cnObj As ADODB.Connection
Dim strConnection As String
Dim rs As ADODB.Recordset
Dim intRSCount As Long
strConnection = "Provider=Microsoft.jet.OLEdb.4.0;Data source= l:\desk_top.qa\coroma\data\coroma.mdb;"
Set cnObj = New ADODB.Connection
cnObj.CursorLocation = adUseClient
cnObj.Open strConnection
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnObj
'.CommandText = "sp_Role"
.CommandText = "spUpdateRoleOne"
.CommandType = adCmdStoredProc
.Execute
End With
'Set rs = cmd.Execute
'intRSCount = rs.RecordCount
