Appli VB6 avec accés SQL Server 2000Résolu

Question

Bonjour &#224; tous...

Je suis actuellement en stage, et je dois cr&#233;er une appli qui se connecte &#224; un serveur SQL. Je n'arrive pas &#224; effectuer la connexion. J'ai beau utiliser les sources publi&#233;es sur ce site mais &#224; achaque fois, j'ai un message d'erreur du genre, soit qui parle du driver non trouv&#233;, ou que l'appli n'a pu se connecter au serveur.

Quelqu'un pourrait m'&#233;crire cette partie de code, sinon je sens que je vais m'arracher les cheveux ( d&#233;j&#224; qu'il m'en reste peut  ). J'ai oubli&#233; de pr&#233;ciser que j'ai un dsn appel&#233; ESSSE1

Merci d'avance.

Kcin

cs_kcin · Accepted Answer

Je te remercie Joe mais j'ai trouv&#233; 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

cs_kcin · Answer

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

JoePatent · Answer

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

Appli VB6 avec accés SQL Server 2000

3 réponses

Discussions similaires