none
récupérer des enregistrements dans une requete séparer par des points virgule ou autre RRS feed

  • Question

  • bonjour je veux a partir d'une requete récupérer tous les enregistrements d'un champs précis et avoir cette info de la maniere suivante : par exemple j'ai mon champs qui se nomme no_avis et le résultat de ma requete me donne les no_avis suivant 0125, 325, 9854 , bien sur comme dans toute bonne requete les données sont une en-dessous de l'autre et moi je voudrais les avoirs une a coté de l'autre comme énuméré dans mon exemple (0125, 325, 9854),,,est-ce possible???

     

    merci

    jeudi 24 novembre 2011 01:34

Réponses

  • Bonjour,

    Il faut référencer (Outils, Références) Microsoft ActiveX Data Objects 2.x Library

    Function Liste_Indicatifs(Envoi As Long) As String
        Dim sSql As String, sTemp As String
        Dim Rst As New ADODB.Recordset
        'la requête en SQL
        sSql = "SELECT Tbl_D_Indicatifs.Ind_Indicatif" _
                & " FROM Tbl_D_Indicatifs" _
                & " WHERE Tbl_D_Indicatifs.Env_Id = " & Envoi _
                & " ORDER BY Tbl_D_Indicatifs.Ind_Indicatif;"
        Rst.Open sSql, CurrentProject.Connection, adOpenDynamic
        Do While Not Rst.EOF
            sTemp = sTemp & Rst("Ind_Indicatif") & ", "
            Rst.MoveNext
        Loop
        If sTemp = "" Then
            sTemp = "Pas d'indicatif."
        Else
            sTemp = Left(sTemp, Len(sTemp) - 2)
        End If
        Rst.Close
        Liste_Indicatifs = sTemp
    End Function
    

    Cdt,

    Blaise

    mercredi 30 novembre 2011 10:40

Toutes les réponses

  • Bonjour macgiver

    À ma connaissance (je me méfie d'être péremptoire), ce n'est pas possible.
    J'ai aussi besoin de ce type de retour, mais je le fais avec du VBA, où c'est relativement facile.

    Cdt,
    Blaise

    (via communitybridge.codeplex.com...)

    <macgiver> a écrit dans le message de news: 25639d39-6fae-48a7-8514-63311c85eb7d@communitybridge.codeplex.com...

    bonjour je veux a partir d'une requete récupérer tous les enregistrements d'un champs précis et avoir cette info de la maniere suivante : par exemple j'ai mon champs qui se nomme no_avis et le résultat de ma requete me donne les no_avis suivant 0125, 325, 9854 , bien sur comme dans toute bonne requete les données sont une en-dessous de l'autre et moi je voudrais les avoirs une a coté de l'autre comme énuméré dans mon exemple (0125, 325, 9854),,,est-ce possible???



    merci

    vendredi 25 novembre 2011 16:01
  • ok as-tu du code vba pour ca que je pourrais adapter a mes besoins??

     

     

    mercredi 30 novembre 2011 00:50
  • Bonjour,

    Il faut référencer (Outils, Références) Microsoft ActiveX Data Objects 2.x Library

    Function Liste_Indicatifs(Envoi As Long) As String
        Dim sSql As String, sTemp As String
        Dim Rst As New ADODB.Recordset
        'la requête en SQL
        sSql = "SELECT Tbl_D_Indicatifs.Ind_Indicatif" _
                & " FROM Tbl_D_Indicatifs" _
                & " WHERE Tbl_D_Indicatifs.Env_Id = " & Envoi _
                & " ORDER BY Tbl_D_Indicatifs.Ind_Indicatif;"
        Rst.Open sSql, CurrentProject.Connection, adOpenDynamic
        Do While Not Rst.EOF
            sTemp = sTemp & Rst("Ind_Indicatif") & ", "
            Rst.MoveNext
        Loop
        If sTemp = "" Then
            sTemp = "Pas d'indicatif."
        Else
            sTemp = Left(sTemp, Len(sTemp) - 2)
        End If
        Rst.Close
        Liste_Indicatifs = sTemp
    End Function
    

    Cdt,

    Blaise

    mercredi 30 novembre 2011 10:40