cs_kcin
Messages postés63Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention26 novembre 2012
-
7 févr. 2005 à 15:48
cs_kcin
Messages postés63Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention26 novembre 2012
-
8 févr. 2005 à 15:04
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
cs_kcin
Messages postés63Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention26 novembre 2012 7 févr. 2005 à 16:08
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