[VB6]Prob avec les requêtes multiples

Version imprimable

30/03/2004, 17h27
cammipascal

[VB6]Prob avec les requêtes multiples

Bonjour à tous,

Je cherche à récupérer, dans une base Access2000, un recordset contenant plusieurs recordsets avec un code du style

Code:

monRS.open "SELECT * FROM TABLE1; SELECT * FROM TABLE2", maConnection

Je reçoit un message m'indiquant "Caractères trouvés à la fin de l'instruction SQL".
J'ai essayé les curseurs coté client et serveur, j'ai même copié l'exemple de Microsoft (en l'adaptant très peu, mais assez pour correspondre à ma base), j'ai utilisé toutes les syntaxes d'ouverture de recordset (la méthode Open du recordset, les méthodes Execute de la Command et de la Connexion)..... Rien n'y fait...
Ai-je oublié de paramétrer une propriété du Recordset pour qu'il accepte les recordsets multiples? Access2000 accepte-t'il cela?

Merci d'avance...
30/03/2004, 17h38
ThierryAIM

Code:

SELECT Table1.*, Table2.* FROM Table1, Table2

c'est ca que tu cherches à faire :?:

sinon je ne comprends pas le sens de ta question :?
30/03/2004, 17h47
cammipascal

Ce n'est pas ce que je recherche. En fait, je voudrais que mon recordset contienne plusieurs recordsets (correpondant à plusieurs instructions Select), afin de n'accéder qu'une seule fois à la base de données (économies de ressources et de temps). En imaginant que le recordset contienne 3 instructions Select, le principe est que je récupère les info du 1er recordset, et qu'ensuite je passe au suivant par l'instruction

Code:

set monRS = monRS.NextRecordset

, que je récupère les infos du 2em recordset, et ainsi de suite.
30/03/2004, 17h52
jacma

Bonjour
Il me semble que tu pourrais utiliser tout simplement un filtre, mais je n'ai pas vraiment compris ce que tu cherches à faire :)
30/03/2004, 17h53
ThierryAIM

Citation:

Envoyé par cammipascal

Code:

set monRS = monRS.NextRecordset

et ou tu as vu que cette instruction existe 8O
30/03/2004, 18h05
cammipascal

C'est une des méthodes de l'objet Recordset, elle est documentée dans l'aide de VB (pour ADO, ce que j'utilise -il existe la même méthode pour DAO ou RDO-), et j'ai même vu un exemple d'utilisation de cette méthode pour ADO.NET en faisant une recherche sur ce site (on tombe sur un article de Leduke). Non,non, je n'ai pas rèvé, cette méthode existe bien.

J'ai effectivement trouvé un exemple dans la doc ADO, mais pour SQLServer, et je ne suis pas sur que Jet accepte cette syntaxe, en tout cas je ne l'ai jamais utilisé

Pour info voila ce que j'ai trouvé :

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
 
Public Sub NextRecordsetX()
 
   Dim rstCompound As ADODB.Recordset
   Dim strCnn As String
   Dim intCount As Integer
 
   ' Ouvre un jeu d'enregistrements composé.
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set rstCompound = New ADODB.Recordset
   rstCompound.Open "SELECT * FROM authors; " & _
      "SELECT * FROM stores; " & _
      "SELECT * FROM jobs", strCnn, , , adCmdText
   ' Affiche les résultats de chaque instruction SELECT.
   intCount = 1
   Do Until rstCompound Is Nothing
      Debug.Print "Contents of recordset #" & intCount
      Do While Not rstCompound.EOF
         Debug.Print , rstCompound.Fields(0), _
         rstCompound.Fields(1)
         rstCompound.MoveNext
      Loop
      Set rstCompound = rstCompound.NextRecordset
      intCount = intCount + 1
   Loop
End Sub

mais le provider est SQLServer, pas Jet4

30/03/2004, 18h33
cammipascal

Oui, cela correspond aux exemples que j'ai trouvé et à partir desquels j'ai construit mon recordset multiple...
Je vais me connecter à une base SQL Server pour voir s'il supporte la requête, auquel cas mon problème viendrait bien du fait que Jet ne supporte pas cette méthode....
Réponse dans quelques instants...
Merci de votre aide.
30/03/2004, 18h45
cammipascal

Bon... J'ai essayé sur SQL Server, et la requête passe comme une lettre à la poste... Le problème vient donc bien du fait que Jet ne supporte pas ce style de requête.
Le plus regretable dans l'histoire, ce n'est même pas que ça ne marche pas (on peut contourner le problème en lançant plusieurs requêtes consécutives), c'est de perdre près d'une demi-journée pour rien alors que l'aide aurait pû contenir un petit mot du style "Méthode non supportée par le moteur Jet"... (auquel cas, on passe directement à une méthode supportée par la base Access)...
Merci de votre aide.
30/03/2004, 18h46
ThierryAIM

Pas de quoi, c'est une info qui peut toujours servir :lol: