CONNEXION À UNE BASE DE DONNÉES DISTANTE

Dim dbs As Database
Dim enreg As Variant
Dim cmd As Variant
Dim strAttributs As String
Dim nomBase, nomServeur, nomUt, mdp As String

nomBase = "x"	'Nom de la base (Data source name de la source ODBC)
nomServeur = "y"	'Nom du serveur (Service name de la source ODBC)
nomUt = "z"		'Nom d'utilisateur de connexion à la base
mdp = "t"		'Mot de passe de l'utilisateur pour la connexion

'Déclaration de la source ODBC
Debug.Print vbCr + "-----------------------------------"
Debug.Print "Déclaration source ODBC : " + CStr(Now)
strAttributs = "Database=" + nomBase + _
  vbCr + "Description=" + nomBase + _
  vbCr + "OemToAnsi=No" + _
  vbCr + "Server=" + nomServeur + _
  vbCr + "User=" + nomUt
DBEngine.RegisterDatabase nomBase, "Oracle ODBC Driver", True, strAttributs

'Connexion à la base de données
Debug.Print "Début connexion base : " + CStr(Now)
Set dbs = OpenDatabase( _
  nomBase, dbDriverCompleteRequired, True, _
  "ODBC;DATABASE=" + nomBase + ";DSN=" + nomBase + ";pwd=" + mdp _
)
Debug.Print "Fin connexion base : " + CStr(Now)

'Exécution de la requête
Debug.Print "Début requête : " + CStr(Now) + vbCr
cmd = "SELECT * FROM Table1;"
Set enreg = dbs.OpenRecordset(cmd)
With enreg
  While .EOF <> True
    Debug.Print CStr(.Fields("Champ1").Value) + CStr(.Fields("Champ2").Value) + _
      CStr(.Fields("Champ3").Value)
    .MoveNext
  Wend
End With
Debug.Print "Fin requête : " + CStr(Now)
dbs.Close
Unload Me
Set Form1 = Nothing
MsgBox "Traitement terminé"