Dim cnnSqlServer As ADODB.Connection ' Dans ma procédure de connexion : With cnnSqlServer ' Referme si déjà ouverte If .State <> adStateClosed Then .Close ' Paramétrage connexion .ConnectionTimeout = 25 .Provider = "sqloledb" .Properties("Data Source").Value = ServerName .Properties("Initial Catalog").Value = DBName .Properties("Locale Identifier").Value = 1033 ' Anglais .Properties("User ID").Value = sUserID .Properties("Password").Value = sPassword ' Connexion .Open End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question