Discussion :

[zitoune92]

Bonjour,

Comment intégrer une fonction que j'ai déclarée dans un de mes modules par exemple:

Code :

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

1
2
3
Function Toto(Param1 as integer, Param2 as integer) as string
(renvoie une chaine en fonction de la combinaison des 2 paramètres)
End Function

dans le SQL d'un DataTable par exemple:

Code :

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

1
2
3
4
5
6
7
8
Dim sSQL="SELECT Champ1,Champ2,Toto(Champ3,Champ4) AS Champ5 FROM Table1...."
Dim ds As New DataSet
Dim MyDataTable as DataTable
Dim cmd As New OleDbCommand(sSQL, myconnection)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, "temp")
 
MyDataTable= ds.Tables("temp")

Quand je lance ce code, je reçois une exception ligne 6: "Undefined Function 'Toto' in expression"

Pour info, myconnection est du OleDbConnection basé sur du Access mdb (provider=Microsoft.jet.oledb.4.0)

Merci pour les idées

Olivier

[DotNetMatt]

Il faut faire une concatenation :

Code VB.NET :

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

Dim sSQL="SELECT Champ1,Champ2, " & Toto(Champ3,Champ4) & " FROM Table1...."

Attention cependant car en faisant une concatenation tu exposes ton application a des risques d'injection SQL. Il faut bien valider le contenu des parametres d'entree...

[zitoune92]

J'ai omis de préciser que Champ3 & Champ4 sont des champs de Table1 et non des variables VB!
La requête SQL doit, pour chaque enregistrement, appeler cette fonction. Pour info, ça marche très bien sous VBA Access.

Merci en tous cas

[DotNetMatt]

Dans ce cas, ca devrait faire l'affaire :

Code VB.NET :

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

Dim sSQL="SELECT Champ1,Champ2, " & Toto("Champ3", "Champ4") & " FROM Table1...."

[zitoune92]

Je teste ça demain mais j'ai des doutes que cela puisse marcher.

Ce que je cherche, c'est à "externaliser" une fonction qui n'existe pas nativement dans le SQL

Par exemple, si Table1 est définie ainsi avec les 4 champs:

[Champ1]	[Champ2]	[Champ3]	[Champ3]
1	2	3	4
1	1	4	5
2	1	6	7

Et que ma fonction MyMultiplication est par exemple une bête multiplication du Champ3 avec le Champ4, je veux retrouver les résultats suivant:

1	2	12
1	1	20
2	1	42

C'est à dire le résultat d'une requête SELECT Champ1,Champ2,MyMultiplication(Champ3,Champ4) FROM Table1 où MyMultiplication est une fonction définie dans un module (cela ne peut être une procédure stockée)

[DotNetMatt]

Ok, je crois que j'ai compris ce que tu veux faire. Tu cherches a appeler un traitement qui va s'executer PENDANT l'execution de la requete SQL dans Access.

Si tel est bien le cas, alors tu es dans le mauvais forum (ici c'est VB.NET). Je deplace ton post dans le forum qui va bien.

[Invité]

Bonjour,

Déjà pour pouvoir integer un fonction dans un script sql il faut que la fonction soit implémentée dans la base de donnée Access en l'occurrence.

Mais cette façon de faire fonctionne parfaitement dans Access mais pas en dehors !

Désolé !

[zitoune92]

Aaargh

Pourquoi m'avoir déplacé ? Je n'ai pas ce problème dans VBA Access, mais après "migration" sous VB.NET!!

[Invité]

bonjour,

oui je comprend que ça ne t'arrange pas d’être déplacé mais de toutes les façons ça ne marchera pas en .net non plus!

tu ne peux pas intégrer de fonction personnaliser dans une requête sql Accsess si elle n'est pas exécuté coté Access , ce n'est pas comme Sql Serveur ou Oracle!

[zitoune92]

Damned...

Je vais creuser coté LINQ qui lui peut inclure une fonction. C'est lourdingue mais bon...j'ai pas le choix

Merci quand même