Discussion :

[napegadie]

J'ai fait les declarations suivantes

Code :

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

1
2
3
4
5
6
7
8
Public DB                   As ADODB.Connection
Public RcClient             As New ADODB.Recordset
Set DB = New ADODB.Connection
DB.Open "Provider=sqloledb;Data Source=" & ConServer & ";Initial Catalog=" & ConBase & ";Integrated Security=SSPI;"
Set RcClient = New ADODB.Recordset
RcClient.Open "Matable", DB
 
Do While Not RsClient.EOF

Mais j'ai un message d'erreur sur la

Code :

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

RsClient.EOF

comme quoi l'ojet n'est pas défini
Ma Base de données est sous SqlServer.

[Megaxel]

Hello!
c'est peut-être une question bête, mais elle est où, la requête dont le résultat doit se trouver dans le RecordSet?

[napegadie]

Code :

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

RcClient.Open "Matable", DB

C'est les enregistrements de Matable qui doivent se retrouver dans le recordset

[Megaxel]

Et ça devrait marcher, ça? Je n'ai rien sous la main pour tester, mais il ne faut pas mettre plutôt la requête complète

Code :

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

1
2
 
MaRequete = "SELECT * FROM " & NomTable

[napegadie]

Je pense qu'on ne se comprend pas encore.
Les données de "Matable" sont recupérée dans le recordset RcClient
et c'est ces enregistrement qu'on doit parcourir avec

Code :

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

Do While Not RcClient.EOF

.
Je ne sais pas si c'est le EOF qui n'est pas reconnu par le recordset. Sinon ce n'est pas un problème de requête.

[Megaxel]

Ok, d'acc.
Mais si, pourtant, ça marche, .EOF et .BOF sur un ResultSet.
Si tu mets

Code :

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

1
2
 
RcClient.MoveFirst

avant ton "Do While..." ?

[napegadie]

Merci Megaxel. L'erreur venait de moi.

[Megaxel]

Ha ben... Bon, d'accord...
Et JOYEUX NOËL !!!