' 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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question