Tester si le champ d'une table est vide

Question

Bonjour,



J'ai un applicatif qui me permet d'afficher dans une list box le nom de
toutes les tables d'une bdd puis dans une seconde list box le nom des
champs.

En suite en cliquant sur la 2&#232;me list box j'affiche dans une textbox la valeur du champ.



Or je n'arrive pas &#224; gerer cette affichage quand le champ est vide.



Voici le code que j'utilise :



            Label5.Caption = "" & Rst.Fields(List2.ListIndex).Value



Ce code marche tr&#232;s bien, sauf lorsque le champ est vide : ca plante

"erreur d'&#233;x&#233;cution 3021" Aucun enregistrement en cours



J'ai alors pens&#233; faire quelque chose du genre :



    If Rst.Fields(List2.ListIndex).Value Null Then    'Null ou ="" ou =Empty

       Label5.Caption = "champ vide"

    Else

        Label5.Caption = "" & Rst.Fields(List2.ListIndex).Value

    End If



Mais cela ne marche pas il n'accepte pas la syntaxe du test.



Voil&#224; je suis &#224; la recherche d'une id&#233;e.



Merci d'avance 



Olivier

cs_CanisLupus · Answer

Salut, essaie &#231;a :

    If Isnull(Rst.Fields(List2.ListIndex).Value) Then 
       Label5.Caption = "champ vide"
    Else
        Label5.Caption = Rst.Fields(List2.ListIndex).Value
    End If

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

olivier857 · Answer

Merci bien !



Mais non ca ne change rien, cela me donne exactement la m&#234;me erreur.



Je ne comprend pas, j'ai aussi essayer &#231;&#224; :



    If Rst.Fields(List2.ListIndex).Value Is Null Then 

       Label5.Caption = "champ vide"

    Else

        Label5.Caption = Rst.Fields(List2.ListIndex).Value

    End If



Mais ca plante aussi.

BruNews · Answer

If Isnull(Rst.Fields(List2.ListIndex)) Then EstVide

ciao...
BruNews, MVP VC++

PCPT · Answer

salut,
cette syntaxe n'est pas tr&#232;s conseill&#233;e, mais elle permettra de tester au moins si le probl&#232;me vient de la base, ou de l'interpr&#233;tation VB du r&#233;sultat :

Label5.Caption = IIf(Rst.Fields(List2.ListIndex).Value="", "Champ vide", Cstr(Rst.Fields(List2.ListIndex).Value))

PCPT   [AFCK]

olivier857 · Answer

Merci BruNews mais ce code plante aussi :



    If IsNull(Rst.Fields(List2.ListIndex)) Then

       Label5.Caption = "champ vide"

    Else

BruNews · Answer

alors y a un schmoll dans tes index de listbox, faut v&#233;rifier cela.

ciao...
BruNews, MVP VC++

cs_CanisLupus · Answer

Si &#231;a plante dans les 2 cas, c'est que ton rst ne remonte rien. A ce moment l&#224;, teste : if rst.eof .... pas d'enreg else label5.caption = ....

Sinon, reformule ta question.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

olivier857 · Answer

pcpt ta solution me donne &#233;galement le m&#234;me r&#233;sultat.



Je ne comprend vraiment pas pourquoi ca marche pour toute les bases sauf celle qui est vide.



- Pour info celle qui est vide a &#233;tait cr&#233;er de cette fa&#231;on :



    Set db = OpenDatabase(App.Path & "\BD.mdb")

    

    Set TBL = New TableDef

    TBL.Name = "joueurs"   'par exemple

    

    Set fld = TBL.CreateField("name", dbText)

    TBL.Fields.Append fld

    Set fld = Nothing

    Set fld = TBL.CreateField("score", dbText)

    TBL.Fields.Append fld

    

    db.TableDefs.Append TBL

    Set fld = Nothing

    Set TBL = Nothing

    db.TableDefs.Refresh



Voil&#224; comment la fameuse table vide est cr&#233;&#233;.



- ensuite je fait ca :



    List1.Clear

    For i = 0 To db.TableDefs.Count - 1

        If (db.TableDefs(i).Attributes And dbSystemObject) = 0 Then

            List1.AddItem db.TableDefs(i).Name

        End If

    Next i



pour lister toute mes table dans la list box1



- puis :



Private Sub List1_Click()



    Dim i As Integer

    

    List2.Clear

    

    For i = 0 To db.TableDefs(List1.ListIndex).Fields.Count - 1

        List2.AddItem db.TableDefs(List1.ListIndex).Fields(i).Name

    Next i

    

End Sub



pour lister les champs dans listbox2



- et enfin :



    Set Rst = db.OpenRecordset(List1.Text)



    ' Mon PB

     If Rst.Fields(List2.ListIndex).Value Null Then    'Null ou ="" ou =Empty ou is null( ... ) ou autre solus

        Label5.Caption = "champ vide"

     Else

         Label5.Caption = "" & Rst.Fields(List2.ListIndex).Value

     End If



Pour afficher le contenu du champ dans la textbox.







Biensur j'ai d'autre fonctionnalit&#233; qui me permette de passer d'un
enregistrement &#224; l'autre afin d evisualiser toute les valeurs.



J'&#233;sp&#232;re que tous ce code vous donnera une id&#233;e sur mon pb.

olivier857 · Answer

Bienvue CanisLupus, tu &#224; raison c'est bien &#231;&#224; !



Merci beaucoup ! 



il fallait donc faire &#231;&#224; :



    If Rst.EOF True Or Rst.BOF True Then

       Label5.Caption = "champ vide"

    Else

       Label5.Caption = "" & Rst.Fields(List2.ListIndex).Value

    End If





Ouf ca marche enfin

valtrase · Answer

lut,
Petit commentaire un champ null dans une base  n'est pas un champ vide. il est toujours tr&#233;s difficille de les g&#233;rer donc si tu veux un conseil quand tu enregistres des donn&#233;es dans ta tables enregistre syst&#233;matiquement une chaine vide "" si ton champ est vide. cela t'&#233;vitera de faire de multiples test sur tes tables.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

olivier857 · Answer

Merci,

je tacherai d'y penser en prenant en consid&#233;ration ton int&#233;ressante remarque.

BruNews · Answer

Il n'y a aucun malaise &#224; tester si un champ est nul, IsNull de VB fait cela parfaitement.
&#231;a se r&#233;sume &#224; tester le champ vt de la struct VARIANT, 1 cycle processeur, c'est assur&#233;ment moins couteux que d'entrer de la donn&#233;e inutile, ne serait ce que le seul octet 0 d'une chaine vide.

ciao...
BruNews, MVP VC++

valtrase · Answer

Un peu de lecture vaut mieux que de longs discours sans arri&#232;re pens&#233;e bien sur et chacun &#224; le droit d'avoir ses id&#233;e sur la question !!!!!

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

BruNews · Answer

La page indiqu&#233;e ne traite que du NULL par le moteur SQL, rien de cela ici.
Il s'agit dans la question de tester un champ, ce que IsNull fait en interne par:
IsNull(var) (int) (var.vt == VT_NULL)

ciao...
BruNews, MVP VC++

Tester si le champ d'une table est vide

14 réponses

Discussions similaires