Discussion :

[kika10]

Bonjour,

Je veux exécuter la fonction GROUP_CONCAT, et comme cette fonction n’existe pas dans Access, j’ai créé une fonction module Access (VBA) qui fait la concaténation par groupe.

Si j’exécute ma requête sous Access tout marche bien, par contre si je lance ma requête a partir de vb, rien ni t’afficher, est ce que y’a une configuration spécial pour permettre a vb d’exécuter des fonctions créer dans Access.

Voici mon code vb :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        mycommand = New OleDbCommand("Ma requête")
        mydatadapter = New OleDbDataAdapter
        dset = New DataSet
        mydatadapter.SelectCommand = mycommand
        mydatadapter.Fill(dset, "courrier")
        DataGridView1.DataSource = dset.Tables("courrier")
        Catch ex As OleDbException
            MessageBox.Show(ex.Message)
        End Try

Merci.

[kika10]

Bonjours,

Toujours bloquée, j'ai essayé d’appeler ma requête directement a partir de Access, ma

requète4

elle fait appelle a ma fonction de concaténation

fConcatgroup

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim Requete As String = "Requête4"
        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter
        MyAdapter.SelectCommand = New OleDbCommand(Requete, conn)
        MyAdapter.SelectCommand.CommandType = CommandType.StoredProcedure           
        dset = New DataSet
            Try
                MyAdapter.Fill(dset, "courrier")
            Catch ex As OleDbException
                MessageBox.Show(ex.Message)
            End Try
            DataGridView1.DataSource = dset.Tables("courrier")

mais m'affiche le message d'erreur

Fonction "fConcatgroup" non définie dans l'expression

[kika10]

Bonjour,

Si c'est pas possible d'appeler une fonction dans un module Access par un code VB, est ce que il y'a un moyenne d’exécuter la fonction GROUP_CONCAT avec access, j'arrive pas a trouver une solution .

Merci.

[Invité]

Bonjour

Je n'ai jamais testé en Vb.net, mais j'ai eut le cas sur une application VB6.

Le palliatif est de crée ta fonction dans VB.net et de mettre la chaîne SQL avec la fonction, et de ne pas faire appel à la requête dans Access.

L'avantage de cette méthode est que si un jour tu es obligé de basculer ta base sur un autre système que Access, tu n'auras que ta chaîne de connexion à modifier, et donc la liaison avec tes tables.

Philippe

[kika10]

Bonjour,

Merci @Philippe JOCHMANS, j'ai pensé a ça mais toujours bloquer, voila le code Access VBA utilisé http://access.mvps.org/access/modules/mdl0004.htm, j'ai refait ce code en VB.NET, mais le problème que cette fonction fait la concaténation par rapport au champs

varIDvalue

et elle renvoi une chaîne, si je fais

select id, fConcatChild() from table

ça marche pas (dans une requête on met select nom_champ pas select résultat), je sais pas comment l'utiliser dans ma requête VB.NET, et la récupérer dans un DataSet.

Merci