Discussion :

[sehing7]

salut tlmd

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

merci d'avance..

[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

[250rgv]

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

[sehing7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[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...

[ProgElecT]

Quelque chose comme çà

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
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

[sehing7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

cnx.Open

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

rmq : si j'enleve

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cnx.Open

ca marche

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
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

[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.

[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

[Overcrash]

Coucou,

Par la peut être : BDD Faq

[sehing7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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