Requête vb appelle une fonction créer dans Access (VBA)

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:

---

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.

Bonjours,

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

Citation:

---

requète4

---

elle fait appelle a ma fonction de concaténation

Citation:

---

fConcatgroup

---

Code:

---

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

Citation:

---

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

---

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 :cry:.

Merci.

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

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

Citation:

---

varIDvalue

---

et elle renvoi une chaîne, si je fais

Citation:

---

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