Discussion :

[Mymi]

Bonjour,

J'aimerais utiliser la fonction Nz dans une requête sql mais ça ne fonctionne pas sous VB6 (mais ça fonctionne dans Access).

Voici ma requête :

Code :

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

sql = "Select Episode.[NoDossier], nz(Episode.[DateDeFin], Date()) as Fin FROM Episode"

La table Episode est branchée sur une BD Access.

J'ai comme message d'erreur : "Fonction 'Nz' non définie dans l'expression".

J'aimerais savoir si quelqu'un connait un équivalent qui fonctionnerait.

Mon but est de faire éventuellement un Max sur DateDeFin et dans le cas où il n'y a pas de DateDeFin, ça veut dire qu'il est toujours actif et dans ce cas, le Max serait "aujourd'hui".

Notez que les données de la table Episode sont d'abord importées d'un fichier texte (avec la fonction TransferText) que je ne peux modifier. Même si ma table est définie avec une valeur par défaut, lors de l'importation ça n'en tient pas compte.

J'espère avoir fourni assez de détail.

Merci pour votre aide!

[jnore]

Pour utiliser nz, n'y a t-il pas une bibliothèque à sélectionner?
Fais la comparaison avec access puisque tu l'utilises. Peut-être existe t'elle dans VB6.
Je ne connais pas suffisamment. Essaie quand même

[Mymi]

Merci pour ton aide!

La fonction Nz existe (ça vient peut-être avec la référence Microsoft Access 10.0 Object Library que j'ai déjà) et elle fonctionne dans mon programme si je l'appelle sur une ligne de code ordinaire mais pas dans la requête SQL.

Par exemple :

Code :

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

 Text6 = Nz(rs!Fin, #1/1/2007#)

me retourne bien 01-01-2007 lorsque rs!Fin est null.

Merci

[sovo]

Que fait nz exactement ?? tu pourais te servir de la fonction Format s'il sagit d'une mise en forme.

[Mymi]

La fonction Nz retourne la valeur du 2e argument si le premier est null, sinon il retourne le premier argument.

donc dans l'exemple :

Code :

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

Text6 = Nz(rs!Fin, #1/1/2007#)

si rs!Fin est null alors Text6 prend la valeur 01-01-2007; si rs!Fin n'est pas null alors Text6 prend la valeur de rs!Fin.

En fait, ça peut se traduite pas le code suivant je pense :

Code :

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

1
2
3
4
5
If IsNull(rs!Fin) then
    Text6 = #1/1/2007#
Else
    Text6 = rs!Fin
EndIf

Le problème c'est que je ne peux pas écrire un "If-Then-Else" dans ma requête.

Dans mes recherches, j'ai trouvé "COALESCE" et "IsNull" qui semble fonctionner avec SQL server mais ça ne fonctionne pas dans mon cas (je suis branché sur une BD Access avec Microsoft Jet OLEDB 4.0).

[Delbeke]

Les requetes access accemptent IIF(Expresion,ValeurVraie,ValeurFausse)
Ca peut peut être aider

[Mymi]

Super, ça fonctionne!

Merci à tous pour votre aide!

[Le Pharaon]

Sous Access il y'a beaucoup de fonctions (nz, round, ...) qui ne sont pas reconnue par le pilote ODBC. Un sous-ensemble des fonctions scalaires ODBC pris en charge est disponible dans l'aide de Access