Message affiché
Bonjour
Lors de l'exécution de mon application (en vb.net) , un message est affiché :"La référence d'objet n'est pas définie à une instance d'un objet"
je ferais quoi SVP?
Lors de l'exécution de mon application (en vb.net) , un message est affiché :"La référence d'objet n'est pas définie à une instance d'un objet"
je ferais quoi SVP?
2 réponses
-
wahou lle message d'erreur sans la ligne de code correspondante, tendu de régler ton problème !
-
==>c'était au niveau de cette ligne :
ObjDataRow = ObjDataSet.Tables("Fournisseur").NewRow()
==> tout le code :
Imports System.Data
Imports System.Data.SqlClient
Public Class Ajout
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ObjDataRow As DataRow
Dim ObjCommandBuilder As SqlCommandBuilder
Dim ObjDataAdapter As SqlDataAdapter
Dim ObjDataSet As New DataSet()
ObjDataRow = ObjDataSet.Tables("Fournisseur").NewRow()
ObjDataRow("Code") = Me.TextCode.Text
ObjDataRow("Nom") = Me.TextNom.Text
ObjDataRow("Adresse") = Me.TextAdresse.Text
ObjDataRow("Ville") = Me.TextVille.Text
ObjDataSet.Tables("Fournisseur").Rows.Add(ObjDataRow)
'Pour modifier les valeurs changées dans le DataAdapter
ObjCommandBuilder = New SqlCommandBuilder(ObjDataAdapter)
'Mise à jour
ObjDataAdapter.Update(ObjDataSet, "Fournisseur")
'On vide le DataSet et on le 'recharge' de nouveau.
ObjDataSet.Clear()
ObjDataAdapter.Fill(ObjDataSet, "Fournisseur")
End Sub
End Class
