ADO pas d'affichage avec la valeur Null ???

Question

Bonjour, j'ai un petit probl&#232;me:


J'ai une base acces avec des champs qui ont le droit &#224; la valeur (donc certains enregistrements ont des champs vides)


mais en VB lorsque j'utilise ADO et que je lance l'appli: Erreur : Utilisation non autoris&#233;e de Null 


Pourquoi ai-je cette erreur?


Merci

cs_CanisLupus · Answer

Salut,
Soit tu mets une clause "where not isnull(ton_champ)", soit, si tu veux quand m&#234;me l'enreg, tu testes isnull(ton_champ) chaque fois que tu veux faire une comparaison, un affichage, une affectation...

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

Je comprends mais ce n'est pas pour l'enregsitrement le probl&#232;me mais pour l'affichage.

Quand l'erreur apparait, le d&#233;bugage me renvoie &#224; un ligne du type :

TxtNumAff.Text AdoRs.Fields(7) et l&#224; comme le champs 7 apparait comme Null et la textbox ""

et ca plante

Merci de me reAider Canis

cs_CanisLupus · Answer

Alors, dans ce cas, je code :

if isnull(AdoRs.Fields(7)) then
   TxtNumAff.Text = ""
else
   TxtNumAff.Text = AdoRs.Fields(7)
end if

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

Merci beaucoup, c'est vrai que j'ai pas &#233;t&#233; malin sur ce coup. Vu que t'as l'air bien sympa, derni&#232;re question:

Quand j'utilise AdoRs.Update

en ayant mis

With AdoRs

        .ActiveConnection = Cn

        .CursorLocation = adUseClient

        .CursorType = adOpenStatic

        .LockType = adLockOptimistic

        .Open strSQL

End With

ensuite je rempli mes champs et quand j'appuie sur Ok ==>
AdoRs.Update, &#231;a ferme mon forulaire comme pr&#233;vu mais quand je le
r&#233;ouvre et ben il a rien enregistr&#233;. Qu'ai-je fait comme b&#233;tise encore,
svp?

cs_CanisLupus · Answer

1 - As-tu v&#233;rifi&#233; dans la base si la modif a &#233;t&#233; faite ?
2 - S'agit-il d'une modif d'enreg ou de l'ajout d'un enreg ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

1- dans la base, rien de modifier

2- j'essai d'abord les modif d'enregistrements, plus tard je verrai le nouv enr.

Voil&#224;

cs_CanisLupus · Answer

Je ne sais pas ce que tu appelles tes champs (des textbox, ...). N'emp&#234;che que avant le AdoRs.Update, il faut coder :

AdoRs.fields("ton_champ").value = nouvelle_valeur
etc pour tous les champs &#224; modifier.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Sinon, comme je ne connaissais que le DAO avant l'ADO, voici une adresse qui m'a bien aid&#233; pour passer &#224; l'ADO. Tu y trouveras presque toutes les r&#233;ponses (DAO ou ADO) sur les m&#233;thodes d'acc&#232;s aux bases de donn&#233;es.

http://www.microsoft.com/france/outils/imprime/info.asp?mar=/FRANCE/MSDN/Technologies/technos/dataaccess/info/migration_DAO_ADO.html&css=&#wpmigratingopening

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

Merci beaucoup et j'ai une derni&#232;re question: quand je me d&#233;place dans
les enregistrements ou ke j'enregistre (en fait &#224; chak deplacement
j'enregistre)

et ben &#231;a plane et &#231;a me sort le probl&#232;me : "Une op&#233;ration en plusieurs
&#233;tapes a g&#233;n&#233;r&#233; des erreurs. V&#233;rifiez chaque valeur d'&#233;tat." cela
vient-il de ma base

o&#249; bien de mon code en VB (les Updates surement)??

Merci

hyunkel69 · Answer

Svp... g toujours pa trouver d'o&#249; &#231;a vient....

cs_CanisLupus · Answer

D&#233;sol&#233;, je n'ai pas r&#233;ussi &#224; reproduire cette erreur. Peux tu faire voir le code qui plante ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

par exemple, quand je clic sur le bouton pour allez au dernier
enregistrement (alors que je n'ai rien modifier), il me sort l'erreur

 au-dessus. et quand je fais d&#233;bugage: il me renvoie &#224; la ligne:
AdoRs.Fields(6) = TxtPrixAutre.Text et quand je passe dessus

avec la souris, j'ai :

AdoRs.Fields(6) = Null

et TxtPrixAutre.Text = ""



Si tu veux la fonction en entier: 

Private Sub CmdDernier_Click()

    AdoRs.Open

    AdoRs.Fields(0) = TxtNumAff.Text

    AdoRs.Fields(1) = TxtLibelleVoiture.Text

    AdoRs.Fields(2) = TxtPrixVoiture.Text

    AdoRs.Fields(3) = TxtLibelleHR.Text

    AdoRs.Fields(4) = TxtPrixHR.Text

    AdoRs.Fields(5) = TxtLibelleAutre.Text

    AdoRs.Fields(6) = TxtPrixAutre.Text

    AdoRs.Fields(7) = TxtDate.Text

    AdoRs.Update

    AdoRs.MoveLast

    TxtNumAff.Text = AdoRs.Fields(0)

    TxtLibelleVoiture.Text = AdoRs.Fields(1)

    TxtPrixVoiture.Text = AdoRs.Fields(2)

    TxtLibelleHR.Text = AdoRs.Fields(3)

    TxtPrixHR.Text = AdoRs.Fields(4)

    If IsNull(AdoRs.Fields(5)) Then

        TxtLibelleAutre.Text = ""

    Else

        TxtLibelleAutre.Text = AdoRs.Fields(5)

    End If

    If IsNull(AdoRs.Fields(6)) Then

        TxtPrixAutre.Text = ""

    Else

        TxtPrixAutre.Text = AdoRs.Fields(6)

    End If

    TxtDate.Text = AdoRs.Fields(7)

    AdoRs.Close

End Sub



Voil&#224;

cs_CanisLupus · Answer

Je ne comprend pas ce que tu veux faire dans cette sub. Si j'ai bien compris, tu mets &#224; jour un enregistrement puis tu te d&#233;places vers le dernier enregistrement que tu affiches ? Enfin, tu dois avoir tes raisons.
Techniquement, j'aurais 2 remarques :
1 - Tes champs acceptent-ils des chaines vides ? sinon met leur propri&#233;t&#233; "Chaine vide autoris&#233;e" = Oui
2 - Met CursorType=adOpenKeyset car 

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

Le probl&#232;me c'est gj'ai d&#233;j&#224; mis la condition "Chaine vide autoris&#233;e" = Oui

Si je fais &#231;a comme c'est que si une personne modifie cet
enregistrement et qu'il veut aller en voir un autre (le dernier dans ce
cas l&#224;), et ben &#231;a l'enregistre...

Mais je suis ouvert &#224; toute les suggestions, merci



PS:tu n'a pas fini ton post, c'est quoi la fin?

hyunkel69 · Answer

Snif je suis toujours perdu...

cs_CanisLupus · Answer

Salut, excuses, petits probl&#232;mes de messagerie.
Donc, pour r&#233;pondre &#224; ton PS, il manque un bout :

2 - Met CursorType=adOpenKeyset car... adOpenStatic ne permet pas la modif d'enregistrements du recordset.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

hyunkel69 · Answer

Merci pour mais je suis toujours avec ces saloperies d'erreur qui me blok et me gonflent

mais bon c'est la vie....

ADO pas d'affichage avec la valeur Null ???

17 réponses

Discussions similaires