I have an error -244 that causes a VB app to stall.
-244:Could not do a physical-order read to fetch next row
I have read many docs and most thing point to using SET LOCK MODE TO WAIT. I interpret this as an SQL statement. Having never used this before how should I include this in the code.
Here is the ADO connection that i am using:
Public Function GetConnection() As ADODB.Connection
Dim sConnection As String 'variable for connection string
Dim lErrNo As Long 'variable for error no
Dim sErrDesc As String 'variable for error description
On Error GoTo ExecStatementErr
'check whether opened or not,adocon_connobj.state=1 means opened.
If adocon_connobj.State <> 1 Then
sConnection = GetConnectionString()
adocon_connobj.Open sConnection 'open the connection
Set GetConnection = adocon_connobj
Else
Set GetConnection = adocon_connobj
End If
Exit Function
ExecStatementErr:
lErrNo = Err.Number
sErrDesc = Err.Description
logit "Failed to open Connection for Database operations in GetConnection().ConnectionString : " & sConnection
Err.Raise lErrNo, , sErrDesc
End Function
-244:Could not do a physical-order read to fetch next row
I have read many docs and most thing point to using SET LOCK MODE TO WAIT. I interpret this as an SQL statement. Having never used this before how should I include this in the code.
Here is the ADO connection that i am using:
Public Function GetConnection() As ADODB.Connection
Dim sConnection As String 'variable for connection string
Dim lErrNo As Long 'variable for error no
Dim sErrDesc As String 'variable for error description
On Error GoTo ExecStatementErr
'check whether opened or not,adocon_connobj.state=1 means opened.
If adocon_connobj.State <> 1 Then
sConnection = GetConnectionString()
adocon_connobj.Open sConnection 'open the connection
Set GetConnection = adocon_connobj
Else
Set GetConnection = adocon_connobj
End If
Exit Function
ExecStatementErr:
lErrNo = Err.Number
sErrDesc = Err.Description
logit "Failed to open Connection for Database operations in GetConnection().ConnectionString : " & sConnection
Err.Raise lErrNo, , sErrDesc
End Function