connexion sql server avec authentification windows

Version imprimable

18/04/2010, 16h19
sehing7

connexion vb6 avec sql server

salut tlmd

comment faire pour acceder a ma base de données sql server express 2005 via le vb6...

merci d'avance..
19/04/2010, 10h03
Overcrash

Bonjour,

Voici le lien de la faq ou tu pourra avoir des éléments de réponse.
http://vb.developpez.com/faq/

Cdt
Over
19/04/2010, 14h40
250rgv

ici et ici aussi pour ce qui est des chaînes de connexion.

Outils de developpement : VB6
Sgbd : sql server express
Serveur : server \ SQLEXPRESS
Authentification : authentification windows
BDD : test

j'ai installer le sql server express avec le " entreprise manager", ensuite j'ai crée la base de donnés " test" , l'acces au serveur est par authentification windows ( sans nom d'utilisateur et mot de passe)
ensuite j'ai utiliser la chaine de connexion suivante

Sgbd : sql server express
Serveur : server \ SQLEXPRESS
Authentification : authentification windows
BDD : test
Code:

1 2 3 4 5 6 7 8 9 10 11 'Déclaration de la variable de connexion Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection 'Définition de la chaîne de connexion cnx.ConnectionString = "UID=" & NomUtilisateur &";PWD=" & MotDePasse & ";" & "DRIVER={SQL Server};Server=" & server \ SQLEXPRESS& ";Database=" & test & ";" 'Ouverture de la base de données cnx.Open
--> Que dois je mettre pour le UID et PWD lorsque j'ai une authentification windows

merci d'avance.

20/04/2010, 12h26
Overcrash

Bonjour,

Heu il faut que tu mette le login et mdp pour accéder a la base de données non?

Ou alors j'ai pas compris la question :s
20/04/2010, 12h32
sehing7

salut

pour acceder a sql server ya deux facons :
authentification windows ou
authentification sql server

dans mon cas j'ai choissisi authentification windows ou je n'ai pas mis ni user ni mdp...

Quelque chose comme çà

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim NomUtilisateur As String, MotDePasse As String, NomDuServeur As String, BDtest As String
Dim ReqConnectionString As String
 
NomUtilisateur = "MOI"
MotDePasse = "TrucMachin123"
NomDuServeur = "SQLEXPRESS"
BDtest = "Lecteur\cheminComplet\BFTest.MDB"
 
ReqConnectionString = "UID=" & NomUtilisateur & _
                    "; PWD=" & MotDePasse & _
                    "; DRIVER={SQL Server}" & _
                    "; Server=" & NomDuServeur & _
                    "; Database=" & BDtest & ";"
 
'cnx.ConnectionString = ReqConnectionString
MsgBox ReqConnectionString

A éviter un maximum, la coloration ou autres balises dans la partie CODE, on n'y comprend plus rien, les balises code serve justement à colorier synthétiquement 8-)

1. maintenant j'ai pu regler le probleme de connexion à sql server, c'etait un pb de sql server express , sol ---->"j'ai pas decocher l'authentification mixte dans les propriété du serveur"

2. j'ai recopié votre code, j'ai compilé , mais il s'arrete a derniere ligne

Code:

cnx.Open

avec le message d'erreur :
"ce serveur n'existe pas ou son accées est refusé"

rmq : si j'enleve

Code:

cnx.Open

ca marche
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection Dim NomUtilisateur As String, MotDePasse As String, NomDuServeur As String, BDtest As String Dim ReqConnectionString As String NomUtilisateur = "kamil" MotDePasse = "123" NomDuServeur = "SQLEXPRESS" BDtest = "test" ReqConnectionString = "UID=" & NomUtilisateur & _ "; PWD=" & MotDePasse & _ "; DRIVER={SQL Server}" & _ "; Server=" & NomDuServeur & _ "; Database=" & BDtest & ";" cnx.ConnectionString = ReqConnectionString 'Ouverture de la base de données cnx.Open

20/04/2010, 13h46
250rgv

Normal que cela fonctionne sans le "cnx.Open" : c'est la ligne de code qui se connecte a ton serveur.
La ligne "cnx.ConnectionString = ReqConnectionString" n'est qu'une affectation de chaine, elle ne fait rien d'autre.

Quand au nom de ton serveur, tout dépends du nom de l'instance. De mémoire si il n'y a qu'une instance de démarrée sur ton poste, le nom "localhost" suffit, sinon tu dois mettre quelque chose comme "monposte\moninstance", "monposte" a remplacer par le nom de ton pc et "moninstance" par celui de ton instance, soit "SQLEXPRESS" pour ton exemple.

Attention, tout ceci est de mémoire, je n'ai pas la possibilité de tester en ce moment.
20/04/2010, 15h54
sehing7

c'est réglé , j'ai ajouter le nom de mon poste et ca marche...
pouvez me orienter à des liens pour la manupilation de la base de données, enregistrement, supp, modif..etc
21/04/2010, 09h43
Overcrash

Coucou,

Par la peut être : BDD Faq

je vous remercie infiniment....
j'ai pu réglé mon problème mais cette fois ci avaec les composants data et via l'odbc...

voici quelques exemples...

connexion via l'odbc

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
Rem Connexion à la base de données Via ODBC
Data1.Connect = "ODBC;driver={SQL Server};" & _
    "Server=monposte\SQLEXPRESS;" & _
    "Database=test;" & _
    "UID=kamil;PWD=123;"
Rem Déclaration de la requête de l'objet Data
Data1.RecordSource = "SELECT * FROM client ; "
Data1.Refresh
End Sub

insertion

Code:

1
2
3
4
5
6
Data1.Recordset.AddNew
Data1.Recordset("code") = Text1.Text
Data1.Recordset("nom") = Text2.Text
Data1.Recordset("prenom") = Text3.Text
Data1.Recordset.Update
Data1.Refresh

modification

Code:

1
2
3
4
5
  Data1.Recordset.Edit
Data1.Recordset("code") = Text1.Text
Data1.Recordset("nom") = Text2.Text
Data1.Recordset("prenom") = Text3.Text
Data1.Recordset.Update

merci