connexion à une base de données oracle ou Mysql

Declaration des varables de connexion a la base
Dim DSN as String
Dim Server as string
Dim DataBase as string
Dim Login as string
Dim Pass as string

' Server MySQL
Server = "MonServerMySQL" ' ou 192.168.200.9
' Nom de la base
DataBase = "BaseDeTeste"
' Utilisateur pour la connexion
Login = "Testeur"
' Mot de passe de l'utilisateur
Pass = "hadock"
' Création de la chaine de connexion a la base
DSN = "driver={MySql};server=" & Server & ";db=" & DataBase & ";UID=" & Login & ";pwd=" & Pass & ";option=2048"

' Instantiation des objets d'utilisation de la base
Set Db = CreateObject("ADODB.Connection")

' Parametrage de la connexion base
Db.ConnectionTimeout = 30
Db.CommandTimeout = 30

' Connexion a la base
Db.Open DSN