Discussion :

[cammipascal]

Bonjour à tous,

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

Code :

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

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...

[ThierryAIM]

Code :

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

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

c'est ca que tu cherches à faire :

sinon je ne comprends pas le sens de ta question

[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 :

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

set monRS = monRS.NextRecordset

, que je récupère les infos du 2em recordset, et ainsi de suite.

[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

[ThierryAIM]

Code :

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

set monRS = monRS.NextRecordset

et ou tu as vu que cette instruction existe

[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.

[ThierryAIM]

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 :

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

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

[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.

[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.

[ThierryAIM]

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