Discussion :

[Tchupacabra]

Bonjour,

je récupère des données depuis une base MySQL via une connexion ADODB (DRIVER={MySQL ODBC 3.51 Driver}).
A présent, j'essaye de remplacer les données de valeur Null en "" (vide).
Le problème se pose avec un champ de type TEXT sous MySQL.

Code :

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

1
2
3
4
5
Dim nom As String
Dim memo As String
 
If Not IsNull(rst.Fields("mom").Value) Then mom = rst.Fields("mom").Value
If Not IsNull(rst.Fields("memo").Value) Then memo = rst.Fields("memo").Value

J'obtiens le message d'erreur :

Erreur d'exécution '94':
Utilisation incorrecte de Null

sur le code : memo = rst.Fields("memo").Value

Que faire pour y remédier ?
Merci d'avance

[cafeine]

Hello,

as-tu essayé avec Nz() ?

[Tchupacabra]

Salut et merci pour ta réponse, mais d'après mes recherches, il n'existe pas de fonction Nz() dans VBA-Excel 2003...
Aussi, j'ai testé ainsi :

Code :

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

memo = Nz(rst.Fields("memo").Value)

provocant une erreur.

[cafeine]

il reste le classique

Code :

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

truc = iif( rst.Fields("Memo") & "" <> "", rst.Fields("Memo"), "")

[Tchupacabra]

Merci, je ne connaissais pas IIf !

par contre, cela ne marche toujours pas...
Le code suivant affecte la valeur "1" (=Null) à memo alors que c'est contradictoire avec le test IIf !

Code :

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

1
2
Dim memo As String
memo = IIf(IsNull(rst.Fields("memo").Value), "NUUUUUUUULLLLLL", VarType(rst.Fields("memo").Value))

Avez-vous une explication ?

Merci

[Tchupacabra]

pas d'explication ?....

cafeine > pourrais-tu m'expliquer la syntaxe deu test :

Code :

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

expression & "" <> ""

Merci d'avance.