problème Connexion SQL Server et recordset [Résolu]

[gg9595]

Bonjour,

voilà je voudrais parcourir une table en ouvrant avec VBA une connexion avec ma base de donnée SQL Server
Mais je ne sais pas où est le problème, il me fait une boucle lors du parcours du recordset.
voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
Dim rst As Recordset
 
 
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=sa" & ";PWD=sql" & ";" & "DRIVER={SQL Server};Server=monserver" & ";Database=mabase" & ";"
 
'Ouverture de la base de données
cnx.Open
 
 
If cnx.State = 1 Then
    MsgBox ("Connection Opened")
Else
    MsgBox ("Connection Failed")
End If
 
 
 
rst.Open "SELECT * FROM matable", cnx
 
rst.MoveFirst
 
While Not (rst.EOF)
  MsgBox ("test")
  rst.MoveNext
Wend

[Philippe JOCHMANS]

Bonjour,

Quel est exactement ton problème, as-tu un message d'erreur ?

Tu dis qu'il fait une boucle, c'est normal, tu dois avoir ta msgbox autant de fois qu'il y'a d'enregistrements extraits.

Starec

[gg9595]

Envoyé par Starec

Bonjour,

Quel est exactement ton problème, as-tu un message d'erreur ?

Tu dis qu'il fait une boucle, c'est normal, tu dois avoir ta msgbox autant de fois qu'il y'a d'enregistrements extraits.

Starec

Oui mais là dans ma table il y a 5 enregistrements et la msgBox boucle sans fin.
Il n'y a aucun message d'erreur particulier, donc j'ai du mal à savoir d'où vient le problème...

[gg9595]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
' Création connexion
Set oConn = New ADODB.Connection
'oConn.Open "Driver={SQL Server}; Uid=" & tbLogin & "; Pwd=" & tbMdp & "; Server=" & tbServeurSQL & ";Database=" & tbNomBaseSQL & ";"
'ou
oConn.Open "Provider=SQLOLEDB;Data Source=" & tbServeurSQL & ";User ID=" & tbLogin & ";Password=" & tbMdp & ";Initial Catalog=" & tbNomBaseSQL & ";"
 
' Création recordset
Set oRS = New ADODB.Recordset
 
oRS.CursorLocation = adUseClient
oRS.Open "SELECT * From T_Employee_type", oConn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
 
' ou
'oRS.Open "tblTOTO", oConn, adOpenDynamic, adLockOptimistic, adCmdTableDirect
' ou
'oRS.Open "SELECT * FROM tblTOTO", oConn, adOpenStatic, adLockOptimistic, adCmdText
 
 Dim inter As Integer
 inter = oRS.RecordCount

J'ai essayé avec ce code, mais c'est pas mieux.

En fait quand je passe sur l'objet oRS en mode débugage, celà m'indiqu' qu'il n'est pas ouvert ... Quelqu'un a une idée ?