T
Terry Holland
I have an application installed onto 50 machines (all supposedly same
build). On one of the machines I get the following error
Category Remote OLE Automation error
Source ADODB.Connection (remote)
Module modADO.bas
Procedure Property (Get) ADOConnection
Line Number 0
Error No. 196735
Description Method '~' of object '~' failed
Where
============================================================================
===============================
Const g_cstrConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist
Security Info=False;Data Source=C:\Program Files\Bids_99\Contracts.mdb"
Const g_cstrUser As String = "Admin"
Const g_cstrPassword As String = ""
Public Property Get ADOConnection() As ADODB.Connection
ADOOpenConnection
With m_cnn
If .State = adStateClosed Then
.Open g_cstrConnect, g_cstrUser, g_cstrPassword
End If
End With
Set ADOConnection = m_cnn
End Property
Public Sub ADOOpenConnection()
If m_cnn Is Nothing Then
Set m_cnn = New ADODB.Connection
m_cnn.ConnectionString = g_cstrConnect
m_cnn.CursorLocation = adUseServer
m_cnn.ConnectionTimeout = 60
End If
End Sub
Any ideas on why this would happen on only one machine?
build). On one of the machines I get the following error
Category Remote OLE Automation error
Source ADODB.Connection (remote)
Module modADO.bas
Procedure Property (Get) ADOConnection
Line Number 0
Error No. 196735
Description Method '~' of object '~' failed
Where
============================================================================
===============================
Const g_cstrConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist
Security Info=False;Data Source=C:\Program Files\Bids_99\Contracts.mdb"
Const g_cstrUser As String = "Admin"
Const g_cstrPassword As String = ""
Public Property Get ADOConnection() As ADODB.Connection
ADOOpenConnection
With m_cnn
If .State = adStateClosed Then
.Open g_cstrConnect, g_cstrUser, g_cstrPassword
End If
End With
Set ADOConnection = m_cnn
End Property
Public Sub ADOOpenConnection()
If m_cnn Is Nothing Then
Set m_cnn = New ADODB.Connection
m_cnn.ConnectionString = g_cstrConnect
m_cnn.CursorLocation = adUseServer
m_cnn.ConnectionTimeout = 60
End If
End Sub
Any ideas on why this would happen on only one machine?