Transformer le résultat d'une requête sous access en une chaine de caractère

Question

Salut les gens, 
je d&#233;veloppe une petite appli au boulot et j'ai besoin d'obtenir une chaine de caract&#232;re contenant le r&#233;sultat d'une requ&#234;te.

Pour plus de clart&#233; : 
Je fait une requ&#234;te sur une table :
SELECT Champ1 FROM MaTable WHERE ...

qui me donne comme r&#233;sultat 
--------------
"VALEUR1"
--------------
"VALEUR2"
--------------
....
--------------

et je voudrais la transformer en une seule chaine :

"VALEUR1 VALEUR2 ..."
pour pouvoir la mettre dans un champ d'une table Table2

Merci de votre aide!

_______________________________________________________
On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

NHenry · Answer

Si c un tableau, tu peu utiliser Join.


NH

chmouette · Answer

en fait c'est une requ&#234;te qui ne doit pas &#234;tre affich&#233;e &#224; l'&#233;cran, mais je peux remplir un tableau dont l'attribut visible = false.
la chaine finale sera plac&#233;e dans un report (&#233;tat?) rempli gr&#226;ce &#224; une autre table, c'est pourquoi je pensais &#224; une fonction VB qui me retourne la chaine en fonction du param&#232;tre de ma requ&#234;te, et je fais le lien avec le report..
Pour Join, je vois pas ce que tu veux dire en fait...

Merci...
_____________________________________________
On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

NHenry · Answer

Join ( Tableau de chaine, s&#233;parateur)

fonction VB


NH

chmouette · Answer

Merci bien! je vais passer par l&#224;.

&#224;+

______________________________________________________
On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

chmouette · Answer

Ca y est, ca marche. En fait, j'ai fait une boucle qui r&#233;cup&#232;re chaque r&#233;sultat de la requ&#234;te et le met au bout de la chaine...

    ' D&#233;claration de variables
    '**************************
    Dim cnnLocal As New ADODB.Connection
    Dim rstCurr As New ADODB.Recordset
    Dim fldCurr As ADODB.Field
    Dim ma_chaine As string

    ' Ex&#233;cution de la requ&#234;te
    '*************************
    Set cnnLocal = CurrentProject.Connection
    rstCurr.Open "SELECT ...... blabla..."     'ma requete

    ' Traitement du r&#233;sultat de la requ&#234;te
    '**************************************
    MaChaine= ""
    With rstCurr
        Do Until .EOF   ' jusqu'&#224; la fin des r&#233;sultats / de la table
            For Each fldCurr In .Fields   ' Pour chaque champ dans la "ligne" en cours
                MaChaine = MaChaine & fldCurr.Value & vbNewLine
            Next
        .MoveNext
        Loop
    End With
    rstCurr.Close ' on ferme notre requ&#234;te

Voil&#224;, en esp&#233;rant que ca servira...

MoUeTtE
_____________________________________________________________
On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

Transformer le résultat d'une requête sous access en une chaine de caractère

5 réponses

Discussions similaires