[AC-2003] Recuperer les valeurs d'un recorset

[marc_o]

Bonjour à tous,

En principe j'essaie toujours de me débrouiller mais la, je sèche.

Je reprend une application Access et il y a dans le code pas mal de requetes. Certaines sont simples, mais d'autres très complexes.
Le but est d'avoir sous forme de table le résultat de ces requetes.

J'ai crée une fonction qui fabrique une table avec les champs du recordset.

******* la fonction **********
r_to_t (nom du recordset)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function r_to_t(le_record) As Object
 
    Dim la_nouvelle_table As TableDef
    Dim i
 
    CurrentDb.TableDefs.Delete ("t_record_to_table")
    Set la_nouvelle_table = CurrentDb.CreateTableDef("t_record_to_table")
    For i = 0 To le_record.Count - 1
        With la_nouvelle_table
            .Fields.Append .CreateField(le_record(i).Name, dbText)
        End With
    Next
    CurrentDb.TableDefs.Append la_nouvelle_table
 
    Set la_nouvelle_table = Nothing
 
End Function

Jusque la, pas de problème, ça marche !

Mais ce que je voudrais en plus, c'est d'incrementer la nouvelle table avec les enregistrement du recorset, et c'est la que je coince.

Si quelqu'un peu m'aider, je serai le plus heureux des hommes.

Merci à tous pour votre aide.


Cordialement

[ClaudeLELOUP]

Bonjour,

Je ne comprends pas ta manière de procéder.
Si tu transformais la requête de type sélection en requête création de table n'aurais-tu pas le résultat rechercé ?

[marc_o]

Envoyé par ClaudeLELOUP

Bonjour,

Je ne comprends pas ta manière de procéder.
Si tu transformais la requête de type sélection en requête création de table n'aurais-tu pas le résultat rechercé ?

Parce que les requetes sont du type :
************
Set Mon_Recorset = CurrentDb.OpenRecordset("select * from Ma_Table order by Date desc")
************
Dans ce cas, c'est simple effectivement, mais il y en a qui font facilement 10 lignes dans le code et je suis loin d'être un spécailiste du SQL.

Voila pourquoi je souhaite avoir le résultat de ces requetes.


Merci pour ta réponse ;-)

[ClaudeLELOUP]

Excuse-moi d'insister.
ça prend maximum 1 '.

Tu crées, avec l'assistant, une requête "création de table" avec comme input ta requête de 10 lignes de sql (on peut en mettre bien davantage !)

[marc_o]

Envoyé par ClaudeLELOUP

Excuse-moi d'insister.
ça prend maximum 1 '.

Tu crées, avec l'assistant, une requête "création de table" avec comme input ta requête de 10 lignes de sql (on peut en mettre bien davantage !)

Quand il y a un certain nombre de variables dans le code, je ne vois pas comment l'assistant pourrait m'aider.

En fait ma question est plus simple,
comment passer un recordset en parametre dans une fonction ?



Cordialement

[ClaudeLELOUP]

Bonjour,

Ma dernière tentative :

Code :

1
2
3
4
5
6
Public Sub tst()
Dim Sql As String
'CurrentDb.OpenRecordset ("select * from Ma_Table order by Date desc")
Sql = "select * from Ma_Table order by Date desc"
Debug.Print Sql
End Sub

J’ai défini une variable sql.
Je lui ai affecté (copier/coller) le contenu de l’argument de 'CurrentDb.OpenRecordset’.
J’ai provoqué l’exécution du code.
J’ai récupéré le produit du debug.print dans la fenêtre d’exécution (copier).
J’ai introduis ce sql dans une requête (coller).
Et en mode design, donc avec l’aide de l’assistant, je fais ce qu’il faut.

[marc_o]

Merci pour ta patience, Claude.

Mais quand même, j'aimerais bien savoir comment passer un recordset en parametre dans une fonction ;-(


Bonne journée

[Kloun]

Bonjour

Code :

Function Toto (pRec as dao.recordset) as integer

Appel de la fonction

Code :

1
2
3
4
dim iRec as dao.recordset
dim i as integer
...
i = toto (irec)