Bonjour
Voila je ne suis pas développeur perso, je me suis simplement occupé de transférer une BDD SQL 2000 vers SQL 2008 sur un nouveau serveur.

Dans VB6 pour une des anciennes applis j' ai ce code là pour la connexion. Que faut il modifier sachant que j' ai créé de nouvelles connexions à mon instance sur SQL avec identification Windows et que le serveur à changé de nom.

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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