Discussion :

[sycoulibaly]

Je suis débutant SVP
Je développe en VB.net 2008 Express avec un Framework 3.5
Mon Problème est le suivant:
Lorsque je veux enrégistrer des données saisies, j'ai l'exception suivante qui s'affiche:L'exception NullReferenceException n'a pas été gérée.

Une partie du PRG qui pose problème dès la première ligne avec

Code :

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

1
2
3
4
'création d'une nouvelle ligne avec les données des textbox
dtr("nom") = Me.Nom.Text
dtr("prénom") = Me.Prénoms.Text
dtr("Lieu de Naissance") = Me.LieuNais.Text

[StormimOn]

NullReferenceException indique qu'un objet n'a pas été initialisé (référence nulle, Nothing en VB). Vu le code, je dirais que dtr vaut Nothing.

Met un point d'arrêt sur la ligne incriminée et vérifie l'état de tes différentes variables. Tu verras vite où est le problème.

[Sankasssss]

Bonsoir,
Si dtr est comme je le pense un datarow, lit l'aide msdn à son propos...

Mis à part ca personne ne pourra vraiment t'aider avec aussi peut de code...
Comment savoir que les colonnes nom, prénom etc sont bien créée etc...

[sycoulibaly]

Chers amis Je vous présente le code, parce que je n'arrive pas à comprende.
Au départ j'ai une connexion vers une base de données access 2007 qui marche apparemment, parce que j'arrive à afficher les données. Tout le problème se pose quand je veux enregistrer ou modifier. Est-ce que je dois déclarer les champs de la base?
au niveau de la ligne du N°inscription il me sort le message suivant quand je veux enrégistrer:
Le format de la chaîne d'entrée est incorrect.Impossible de stocker <> dans la colonne N°Inscription. Type attendu est Int32.
SVp Venez moi en aide et soyez indulgent, je suis débutant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 Private Sub BntModifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntModifier.Click
 
        'récupération de la ligne dans le datarow
        dtr = dts.Tables("Étudiants").Rows(rownum)
 
        'modification des donées
 
        dtr("nom") = Me.Nom.Text
        dtr("prénom") = Me.Prénoms.Text
        dtr("Lieu de Naissance") = Me.LieuNais.Text
        dtr("Téléphone personnel") = Me.TélPersonnel.Text
        dtr("Téléphone professionnel") = Me.TélProfessionnel.Text
        dtr("Téléphone mobile") = Me.TelMobile.Text
        dtr("Page Web") = Me.Mail.Text
        dtr("Numéro de télécopie") = Me.Télécopie.Text
        dtr("Adresse") = Me.Adresse.Text
        dtr("Ville") = Me.Ville.Text
        dtr("Code Postal") = Me.CP.Text
        dtr("Département") = Me.Departement.Text
        dtr("Remarques") = Me.Remarque.Text
        dtr("ID étudiant") = Me.IDEtudiant.Text
        dtr("Date Inscription") = Me.DateInscription.Text
        dtr("N°Inscription") = Me.NumInscription.Text
        dtr("Heure Inscription") = Me.Hinscription.Text
 
        dtr("Nom contact en cas d'urgence") = Me.ContactUrgence.Text
        dtr("Téléphone du contact pour les urgences 1") = Me.Tél1Urgence.Text
        dtr("Téléphone du contact pour les urgences 2") = Me.Tél2Urgence.Text
        dtr("Relation contact pour les urgences") = Me.RelationUrgence.Text
        dtr("Nom du médecin") = Me.NomMedecin.Text
        dtr("Numéro de tél du médecin") = Me.TélMedecin.Text
        dtr("Allergies") = Me.Allergies.Text
        dtr("Médicaments") = Me.Médicaments.Text
 
        dtr("Etablissements") = Me.ComBoBoxEtab.Text
        dtr("Classe") = Me.ComboBoxClasse.Text
        dtr("Niveau") = Me.ComboBoxNiveau.Text
        dtr("N°Exo") = Me.ComboBoxExo.Text
        dtr("Pays/Région") = Me.ComboBoxPays.Text
        dtr("Spécialité") = Me.ComboBoxSpécialité.Text
        dtr("Date de naissance") = Me.ComoboboxDateNais.Text
 
 
 
        'création et exécution du commandbuilder
        'pour mettre à jour le DataAdapter
        cmdb = New OleDbCommandBuilder(dta)
 
        'mise à jour des données du DataAdapter
        'à partir du commandbuilder
        dta.Update(dts, "Étudiants")

[JPelli]

Bonjour,
les types de champs du datarow doivent correspondre aux données mise à jour.
Si le champ dtr est int32 tu dois lui passer un nombre valide, de même pour les champs datetime.

Code :

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

1
2
3
4
5
6
dim Int as integer
if integer.tryparse(Me.NumInscription.Text,int) then
dtr("N°Inscription") = Me.NumInscription.Text
else
dtr("N°Inscription") = 0(par exemple)
end if

bon boulot Jean

[Sankasssss]

Le conseil de StormimOn est très bon, il te conseil d'apprendre à débuger tes application avec des points d'arret...
Quand ton application est en pause tu peux regarder les valeurs de tes variables.
Je te conseil de lire ces deux pages (et tout le cour si ce n'est déjà fait) :
http://plasserre.developpez.com/v4-200.htm
http://plasserre.developpez.com/v4-210.htm

Sinon,il y a aussi le test de l'existence de la colonne dans la table que tu peux faire (car si elle n'existe pas c'est considéré comme nothing et donc NullReferenceException ) :

Code :

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

1
2
3
4
5
6
 
If dts.Tables("Étudiants").Columns.Contains("nom") then
    dtr("nom") = Me.Nom.Text
else
    msgbox("la colonne nom n'existe pas")
end if

et ca pour chaque colonne bien sur...


le conseil de JPelli est tout aussi bon, il te faut donc caster au bon type :

Code :

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

1
2
3
4
5
6
 
try
   dtr("N°Inscription") = cInt(Me.NumInscription.Text)
catch
   ' traitement de l'erreur ex : msgbox("Veuillez rentrer uniquement du numérique pour ce champs") 
    ' bien que normalement ce test devrait être effectué avant de commencer a insérer les valeurs...

[sycoulibaly]

J'ai pu résoudre le problème de Int32 mais j'ai tjrs le même pblm pour le bouton Enrégistrement tout au début avec l'erreur suivante:

L'exception NullReferenceException n'a pas été gérée
La référence d'objet n'est pas définie à une instance d'un objet:
La modification proposée par sankassss n'a pas resolu le pblm. Merci sankassss

Code :

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

1
2
3
4
5
6
dtr("nom") = Me.Nom.Text
        dtr("prénom") = Me.Prénoms.Text
        dtr("Lieu de Naissance") = Me.LieuNais.Text
        dtr("Téléphone personnel") = Me.TélPersonnel.Text
        dtr("Téléphone professionnel") = Me.TélProfessionnel.Text
        dtr("Téléphone mobile") = Me.TelMobile.Text

Et puis avec le bouton modifer j'ai la nouvelle erreur:
L'exception OledbException n'a pas été géré
Erreur de syntaxe dans l'instruction UPDATE. dta.Update(dts, "Étudiants")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'création et exécution du commandbuilder
        'pour mettre à jour le DataAdapter
        cmdb = New OleDbCommandBuilder(dta)
 
        'mise à jour des données du DataAdapter
        'à partir du commandbuilder
        dta.Update(dts, "Étudiants")
 
        'on vide le dataset pour le recréer avec 
        'les nouvelles données 
        dts.Clear()
        dta.Fill(dts, "Étudiants")
        dtt = dts.Tables("Étudiants")
 
        'mise à jour du datagrid
        DataGridView1.DataSource = dtt
 
        'retour au début du fichier
        rownum = 0

[Sankasssss]

Tu as essayer de mettre un point d'arret sur la ligne :

Code :

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

dtr = dts.Tables("Étudiants").Rows(rownum)

et de passer ton curseur sur la variable dtr pour savoir si elle est bien instanciée?

Pour ton autre erreur je ne peut pas t'aider, le seul conseil que je peux te donner c'est d'éviter de mettre des accents dans le nom de tes tables et de tes colonnes...

[sycoulibaly]

J'ai fais ce que vs avez dit.
C'est à dire un point d'arrêt. il sort le message suivant:
dtr nothing

[Sankasssss]

donc tu as ta réponse...
l'index rownum pointe sur un élément qui n'existe pas...

tjs avec le point d'arret il te suffit de passer ton curseur sur rownum et de regarder sa valeur et de voir si tu as autant d'enregistrement dans ta table...
(propriété de la table rows.count)
N'oublie pas que ton index doit être égale au maximum à rows.count - 1 !!!

[sycoulibaly]

Tout a été vérifiié mais en plus les champs existe mais en plus j'ai modifié en proposant la solution suivante mais ça ne marche pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 'crátion d'une nouvelle ligne avec les données des textbox
 
        If Me.Nom.Text Is Nothing Then
            dtr("Nom") = String.Empty
        Else
            dtr("Nom") = Me.Nom.Text
        End If
 
 'ajout de la ligne dans le DataSet
        dts.Tables("Etudiants").Rows.Add(dtr)
 
        'création et exécution du commandbuilder
        'pour mettre à jour le DataAdapter
        cmdb = New OleDbCommandBuilder(dta)
 
        'mise à jour des données du DataAdapter
        'à partir du commandbuilder
        dta.Update(dts, "Etudiants")
 
        'on vide le dataset pour le recréer avec 
        'les nouvelles données 
        dts.Clear()
        dta.Fill(dts, "Etudiants")
        dtt = dts.Tables("Etudiants")
 
        'mise à jour de la datagrid
        DataGridView1.DataSource = dtt
 
        'aller au début du fichier
        rownum = 0

[sycoulibaly]

Merci pour votre aide et sollicitude
J'ai trouvé la solution il fallait déclarer dtr de la manière suivante:

Code :

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

dtr = dts.Tables("Etudiants").NewRow

[Sankasssss]

ca découle de source
nous pensions que tu voulais modifier le contenu présent dans une ligne...
je te conseil de lire l'aide msdn : http://msdn.microsoft.com/fr-fr/libr...datatable.aspx
ca t'aidera à bien maitriser les dataset

[manouicone2019]

bonjour essaye ca :

Code :

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

1
2
3
if isdbnull (dts.Tables("Étudiants").Rows(rownum)) then
Nom.Text="" else
Nom.Text=dts.Tables("Étudiants").Rows(rownum))