1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub ADOInitConnection()
On Error GoTo Erreur
Set lADO_Connection = New ADODB.Connection
SysCmd acSysCmdSetStatus, "Connecting ..."
If cSTR_BASE = "DEV" Then
lADO_Connection.ConnectionString = "Driver={SQL Server};server= ....;UID=" & cSTR_UID & ";PWD=" & cSTR_PWD & ";database=" & cSTR_DATABASE & cSTR_BASE
Else
lADO_Connection.ConnectionString = "Driver={SQL Server};server=....;UID=" & cSTR_UID & ";PWD=" & cSTR_PWD & ";database=" & cSTR_DATABASE & cSTR_BASE
End If
lADO_Connection.ConnectionTimeout = 10
lADO_Connection.CommandTimeout = 10000
lADO_Connection.Open
SysCmd acSysCmdSetStatus, "Connection OK."
Exit Sub
Erreur:
SysCmd acSysCmdSetStatus, Now & " - Connection KO. Attente de " & cINT_NB_MINUTES_ATTENTE_AVANT_TEST_RECONNECTION & " minutes avant nouveau test de connexion."
'Debug.Print Now & " - " & Err.Number & " - " & Err.Description
Attendre 60 * cINT_NB_MINUTES_ATTENTE_AVANT_TEST_RECONNECTION
SysCmd acSysCmdSetStatus, " "
ADOInitConnection
End Sub |
Partager