Has something changed in the API lately?
The code below has been working flawlessly for months and months. It has not been modified. Suddenly it stopped working. Am thinking maybe a recent Commit app update changed something.
The failure is on the CmtInitDbQryDll line. Status code = 0, no further info.
CommitAPI_AppName = "CSPBilling"
C_DBPath = "\\edc-commitcrm\CommitCRM\Db"
On Error Resume Next
Dim status As Integer
Dim bufError As String * C_ErrorDescSize
Call CmtInitDbQryDll(CommitAPI_AppName, C_DBPath, status)
If status <> C_Ok Then
Call CmtGetDescriptionByStatus(status, C_ErrorDescSize, bufError)
MsgBox "Commit Query Init failed. Status Error code: " _
& status & Chr(13) & Chr(10) & bufError
Exit Sub
Else
Call CmtInitDbEngDll(CommitAPI_AppName, C_DBPath, status)
If status <> C_Ok Then
Call CmtGetDescriptionByStatus(status, C_ErrorDescSize, bufError)
MsgBox "Commit Engine Init failed. Status Error code: " _
& status & Chr(13) & Chr(10) & bufError
CmtTerminateDbQryDll
Exit Sub
End If
End If
(Sorry for the bad formatting, the indenting keeps getting removed.)
Any advice will be greatly appreciated!
-- Craig
The code below has been working flawlessly for months and months. It has not been modified. Suddenly it stopped working. Am thinking maybe a recent Commit app update changed something.
The failure is on the CmtInitDbQryDll line. Status code = 0, no further info.
CommitAPI_AppName = "CSPBilling"
C_DBPath = "\\edc-commitcrm\CommitCRM\Db"
On Error Resume Next
Dim status As Integer
Dim bufError As String * C_ErrorDescSize
Call CmtInitDbQryDll(CommitAPI_AppName, C_DBPath, status)
If status <> C_Ok Then
Call CmtGetDescriptionByStatus(status, C_ErrorDescSize, bufError)
MsgBox "Commit Query Init failed. Status Error code: " _
& status & Chr(13) & Chr(10) & bufError
Exit Sub
Else
Call CmtInitDbEngDll(CommitAPI_AppName, C_DBPath, status)
If status <> C_Ok Then
Call CmtGetDescriptionByStatus(status, C_ErrorDescSize, bufError)
MsgBox "Commit Engine Init failed. Status Error code: " _
& status & Chr(13) & Chr(10) & bufError
CmtTerminateDbQryDll
Exit Sub
End If
End If
(Sorry for the bad formatting, the indenting keeps getting removed.)
Any advice will be greatly appreciated!
-- Craig
Comment