1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Option Explicit
Dim cnxString As String
Dim cnxBase As ADODB.Connection
Public Sub Main()
On Error GoTo Main_Err
DECLARATION DES VARIABLES...
'Attente de connexion : le programme fait une pause
cnxString = "Provider=MSDAORA.1;Password=" & "****" & ";User ID=" & "****" & ";Data Source=" & "****" & ";Persist Security Info=False"
Set cnxBase = New ADODB.Connection
cnxBase.Open cnxString
While cnxBase.State = adStateConnecting
DoEvents
Wend
MON TRAITEMENT...
'Fermeture de la connexion
If cnxBase.State = adStateOpen Then
cnxBase.Close
End If
End
Main_Exit:
Exit Sub
Main_Err:
Select Case Err.Number
Case 20
Resume Main_Exit
Case Else
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erreur"
Resume Main_Exit
End Select
End Sub |
Partager