VB6, Access, DataCombo Valeur Null

Question

Hi,
Je travaille avec sur un petit projet regroupant VB6 & une Base de Donn&#233;es ACCESS.
La base de donn&#233;es contient divers Table, li&#233;es entre elles par des Relations (Bas&#233; dur un NumeroAuto au format GUID).
J'int&#233;gre tr&#232;s bien  le tout dans VB6 (avec DataEnvironment). Les Champs Li&#233;es sont controller par un DataCombo. Je peux lire ou modifier un Champs li&#233;, mais d&#232;s que je souhaite &#233;ffac&#233; ou placer un valeur Null une Erreur apparait.

Je donc, je pense, avoir fait le tour de la question (verification d'autorisation des valeurs Null, Curseur Cote Client, Cote Serveur, Etc......) mais je n'ai toujours pas la solution.

Pourtant lorsque j'utilise l'assistant de Donn&#233;es, il m'est possible de placer une valeur Null.

Alors je fait appel &#224; vous, d'avance merci..

   MAudio.

cs_guizmo59 · Answer

J'ai eut le meme Probleme je l'est resolu en fasant Deux requete differente 
une qaund un de mes champs et vide et l'autre qaund il est rempli 

Voici la parti du  code succeptible de t'interesser  tu comprendra mieux ^^

Private Sub cmdvalide_Click()
   If txtauteur.Text = "" Then '*regarde si ma zone de txte est null
            cmd.CommandText = "insert into livre values(" & vnb + i & ",'" & txttitre.Text & "',null,'" & txtediteur.Text & "'," & cmbvisugenre.ItemData(cmbvisugenre.ListIndex) & ");" '*permet de mettre la valeur null dans la colone de l'enrgistrement correspondant 
                cmd.ActiveConnection = cnx
                cmd.Execute
            Next
            MsgBox "l'enregistrement a ete pris en compte "
        Else '*si elle est rempli je met la valeur contenu dans la zone de texte correspondante 
             cmd.CommandText = "insert into livre values(" & vnb + i & ",'" & txttitre.Text & "','" & txtauteur.Text & "','" & txtediteur.Text & "'," & cmbvisugenre.ItemData(cmbvisugenre.ListIndex) & ");"
                cmd.ActiveConnection = cnx
                cmd.Execute
            Next
            MsgBox "l'enregistrement a ete pris en compte "
        End If

cs_guizmo59 · Answer

eux enleve les deux next il sont necessaire a ma boucle mais tu n'en auras pas besoin ^^

VB6, Access, DataCombo Valeur Null

2 réponses

Discussions similaires