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 36 37
| 'Const connect_BDD = "DRIVER=SQL Server;SERVER=SERVEUR;UID=bd;" + _
" password = pro;DATABASE=CA2010;Network=DBMSSOCN;"
Const connect_BDD = "DRIVER=SQL Server;SERVER=SERVEUR;UID=bd;" + _
" password = pro;DATABASE=CA2010;Network=DBMSSOCN;"
' //Const connect_BDD = "Provider=SQLOLEDB.1;SERVER=(local);UID=bd;" + _
" password = dev;DATABASE=CA2010_TEST;Network=DBMSSOCN;"
'Const connect_BDD = "DRIVER=SQL Server;SERVER=" + Trim(strServer) + ";UID=" + Trim(strUser) + ";" + _
" password = " + Trim(strPassword) + ";DATABASE=" + Trim(Base) + ";Network=DBMSSOCN;"
Public Sub ConnecterSQL()
' ' creation d 'un espace ODBC
' SET mwrkODBC = CreateWorkspace("CDO", "", "", dbUseODBC)
' Workspaces.Append mwrkODBC
'
' 'ouverture de la connexion à la base
' SET mdatabase = mwrkODBC.OpenDatabase("CDO", dbDriverComplete, False, _
' "ODBC;DSN=CDO;")
'instanciation du composant ADODB [Connection de BDD]
Set mdatabase = CreateObject("ADODB.Connection")
'mdatabase.connectionTimeOut = 20
'ouverture de la connection à la base de données
mdatabase.open connect_BDD
End Sub
Public Sub FermerSQL()
mdatabase.Close
End Sub |
Partager