Discussion :

[elifqaoui]

bonjour,
j'ai une fonction qui renvoit un recordset, seulement ce recordset doit correspondre à la concaténation de deux recordsets, je me rappelle que j'avais déjà vu un sujet similaire il y a bien longtemps, je l'ai trouvé, mais sans solution
http://www.developpez.net/forums/vie...ght=recordsets
je relance le débat
merci

[bidou]

il y a plusieurs approche selon ce que tu veux faire.
Tu veux obtenir un recordset en partant de deux :
Si oui, est ce par ajout de ligne ou par mélange de colonne. :
Si c'est un mélange de colonne, il y a t il une colonne commune qui permette de faire la synchro :
etc.....

Bref cher maitre, pourrais tu developper la question

[SpaceFrog]

Allez un coup d'intuition de la grenouille...
y'aurait pas une instruction merge associée aux recordset ?

[bidou]

not ma grenouille, il faut l'écrire

[elifqaoui]

il y a plusieurs approche selon ce que tu veux faire.
Tu veux obtenir un recordset en partant de deux :
Si oui, est ce par ajout de ligne ou par mélange de colonne. :
Si c'est un mélange de colonne, il y a t il une colonne commune qui permette de faire la synchro :
etc.....

Bref cher maitre, pourrais tu developper la question

salut bidou,
je veux récupérer un recordset par mélange de tous les enregistrements renvoyé par les deux recordsets (biensur c le meme champ).
un peu de code pour que ca soit plus clair

Code :

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

1
2
3
4
5
6
7
8
 
Public Function ReturnRecordset() As Recordset
Dim Req as String
Req = "SELECT element FROM Table1 WHERE ...."
Ado.Open Req,Base
Req = "Select (Sous_Element) as Element FROM Table2 WHERE ..."
Ado1.Open Req, Base
Set ReturnRecordset = Ado

là la function ne renvoit que le premier recordset, or moi je veux qu'elle renvoit un Recordset qui soit le mélange (en enregistrements) des deux recordsets.
j'espère que c clair bidou
merci

[elifqaoui]

autre chose, ce Recordset ne doit en aucun cas modifier la base de données, ce recordset c juste pour faire des traitements sur ces enregistrements.

[elifqaoui]

la concaténation des deux recordsets se fera seulement sur le seul champ Element, j'ai déjà entendu parler d'un recordset non-lié, comment puis-je l'utiliser? et est ce qu'il répondera à mes besoins.
merci

[bidou]

dans ce cas tu peut soit créer un recordset.

Code :

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

1
2
3
4
5
6
7
8
9
Dim Req As ADODB.Recordset
Set Req = New ADODB.Recordset
With Req
.Fields.Append "NomChamp1", adInteger 'numerique
.Fields.Append "NomChamp2", adBSTR, 255 'Chaine
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With

et ensuite travailler dessus avec des addnew,
soit utiliser le premier recordset, et ajouter dessus les enregistrements du second. Attention de travailler côté client pour ne pas modifier ta base.

[elifqaoui]

dans ce cas tu peut soit créer un recordset.

Code :

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

1
2
3
4
5
6
7
8
9
Dim Req As ADODB.Recordset
Set Req = New ADODB.Recordset
With Req
.Fields.Append "NomChamp1", adInteger 'numerique
.Fields.Append "NomChamp2", adBSTR, 255 'Chaine
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With

et ensuite travailler dessus avec des addnew,
soit utiliser le premier recordset, et ajouter dessus les enregistrements du second. Attention de travailler côté client pour ne pas modifier ta base.

j'ai peur de ne pas avoir bien compris , ou bien j'ai mal expliqué, je reprends :
dans l'exemple en haut, je selectionne dans chaque Recordset un champ que j'ai appelé par le meme nom (Element) pour faciliter la concaténation des deux recordsets, le recordset que je veux retourner dans la function c le total des enregistrements des deux recordsets, je veux en aucun cas que ca modifie la base, puisque je veux seulement parcourir ces enregistrements pour faire des tests après.
j'espère que c clair à présent
merci de bien détailler bidou

[bidou]

le recordset créé dans l'exemple que je t'ai donné n'est lié à aucune base, donc pas de danger de modification.
De même, si tu travaille sur un recordset client déconnecté (ActiveConnection = Nothing) tu peux lui ajouter des enregistrements sans risques.

Reprenons

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
Public Function ReturnRecordset() As Recordset 
Dim NouvReq As ADODB.Recordset,  Req As ADODB.Recordset 
 
Set Req = New ADODB.Recordset 
Req.Open "SELECT element FROM Table1 WHERE ...." ,Base 
Set NouvReq = New ADODB.Recordset 
With NouvReq 
    .Fields.Append "Element", adBSTR, 50 'Chaine 
    .CursorType = adOpenStatic 
    .LockType = adLockReadOnly
    .Open 
     while not Req.EOF
         .AddNew "Element", Req!Element
          Req.MoveNext
     Wend
     .......'pareil avec le deuxième recordset
End With

Tu va obtenir un recordset contenant les enregistrements des deux tables et lié a aucune base.

[elifqaoui]

oups! je comprends mieux maintenant, j'essayerai ca demain .
merci encore bidou
a+