Discussion :

[seba_stien]

Bonjour,

J'utilise Sql serveur pour ma base de données. Sur cette base je peux me connecter avec un utilisateur que j'ai créé sur sql serveur ou je peux utiliser la windows authentification. Comment puis-je faire dans mon code VBA pour utiliser la windows authentification à la place de Sql Serveur authentification comme j'ai mis pour exemple?

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
 
    'Connection param
    SNomUtilisateur = "user"
    SMotDePasse = "password"
    SNomServeur = "serveurname"
    NomBaseDeDonnees = "basededonneename"
 
    'Définition de la chaîne de connexion
    cnx.ConnectionString = "UID=" & SNomUtilisateur & ";PWD=" _
    & SMotDePasse & ";" _
    & "DRIVER={SQL Server};Server=" _
    & SNomServeur & ";Database=" & NomBaseDeDonnees & ";"
 
    'Ouverture de la base de données
    cnx.Open

merci d'avance

seba_stien

[seba_stien]

j'ai trouvé la réponse à ma question, elle m'avait échapé sur la MSDN:

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
' Initialize variables.
Dim cn As New ADODB.Connection
. . .
Dim ServerName As String, DatabaseName As String
 
' Put text box values into connection variables.
ServerName = txtServerName.Text
DatabaseName = txtDatabaseName.Text
 
' Specify the OLE DB provider.
cn.Provider = "sqloledb"
 
' Set SQLOLEDB connection properties.
cn.Properties("Data Source").Value = ServerName
cn.Properties("Initial Catalog").Value = DatabaseName
 
' Windows NT authentication.
cn.Properties("Integrated Security").Value = "SSPI"
 
' Open the database.
cn.Open