Appli VB6 avec accés SQL Server 2000

[Résolu]
Signaler
Messages postés
63
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
26 novembre 2012
-
Messages postés
63
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
26 novembre 2012
-
Bonjour à tous...

Je suis actuellement en stage, et je dois créer une appli qui se connecte à un serveur SQL. Je n'arrive pas à effectuer la connexion. J'ai beau utiliser les sources publiées sur ce site mais à achaque fois, j'ai un message d'erreur du genre, soit qui parle du driver non trouvé, ou que l'appli n'a pu se connecter au serveur.

Quelqu'un pourrait m'écrire cette partie de code, sinon je sens que je vais m'arracher les cheveux ( déjà qu'il m'en reste peut ). J'ai oublié de préciser que j'ai un dsn appelé ESSSE1

Merci d'avance.

Kcin

3 réponses

Messages postés
63
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
26 novembre 2012

Je te remercie Joe mais j'ai trouvé la solution. Voici le code correct :

Private Sub LoginCmd1_Click()


Dim Rs As ADODB.Recordset
Dim Connexion As ADODB.Connection
Dim StrSQL As String


On Error GoTo ErreurIden


Set Connexion = New ADODB.Connection
Connexion.ConnectionString = "Provider=SqlOleDB;SERVER=Ghost\ESSSE1;Database=" & "Promo 2002-2005" & ";User ID=" & LoginText1 & ";Password=" & LoginText2 & ""
Connexion.Open


Unload Login
Accueil.Show


Exit Sub


ErreurIden:
MsgBox "Mauvais login ou mot de passe !!"


End Sub

Kcin
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
63
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
26 novembre 2012

Voici le bout de code où je fais appel à la connexion :

LoginCmd1 est un bouton, qui vérifie le login et pass de l'utilisateur

Private Sub LoginCmd1_Click()


Dim Rs As ADODB.Recordset
Dim Connexion As ADODB.Connection
Dim StrSQL As String


Set Connexion = New ADODB.Connection
Connexion.ConnectionString = "Provider=SqlOleDB;Server=ESSSE1;Database=Mdp;" & _
"User ID=sa;Password=corentin"
Connexion.Open < C'est là que ça plante : Serveur existe pas ou accès refusé >


Set Rs = New ADODB.RecordsetStrSQL ("SELECT Login,Password FROM Login WHERE Login '" & LoginText1 & "' AND password = '" & LoginText2 & "'")


Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open StrSQL, Connexion, adOpenStatic, adLockReadOnly

If Rs.RecordCount <> 1 Then
MsgBox "Mauvais login ou mot de passe !!"
Else
Unload Login
Accueil.Show
End If



End Sub

Bye

Kcin
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008

Global Const connStr = "Driver=SQL Server;Server=NomServeursql;Database=NomDatabase"

Public objConn As New ADODB.Connection

objConn.Open connStr

Apres quoi il te reste a ouvrir tes recordets avec la connexion objConn

J'ai mit le tout global mais ce n'est pas necessaire.

http://www.joepatent.com