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
|
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
'-----------------------------------------------
If cnx.State <> adStateClosed Then cnx.Close
'-----------------------------------------------
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'-----------------------------------------------
If rst.State <> adStateClosed Then rst.Close
'initialisation de l'itérateur
Dim NomUtilisateur, MotDePasse As String
Dim NomServeur, NomBaseDeDonnees As String
'Connection param
NomUtilisateur = "ereader"
MotDePasse = "pass" (fonctionne seulement si pas de mot de passe)
NomServeur = "10.10.0.249"
NomBaseDeDonnees = "callcenter"
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" & NomUtilisateur & ";PWD=" _
& MotDePasse & ";" _
& "DRIVER={SQL Server};Server=" _
& NomServeur & ";Database=" & NomBaseDeDonnees & ";"
'Ouverture de la base de données
cnx.Open |
Partager