erreur systeme incompréhensible

Question

Cette procedure d'un bouton d'ajout genere une erreur systeme lorsque j'appuie
sur le bouton "ajouter" et l'execution s'arrete au niveau de la commande Update.
Est ce quelqu'un peut m'aider à trouver la solution de ce probleme.

Private Sub btnenr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnenr.Click
cnx.Open()
sql = "select * from test"
cmd = New SqlCommand(sql)
dta = New SqlDataAdapter(cmd)
cmd.Connection() = cnx
'si un champ n'est pas rempli fin de procédure
If Me.txtnom.Text = "" Or _
Me.txtprenom.Text = "" Or _
Me.txtjob.Text = "" Then

MessageBox.Show("Vous devez remplir tous les champs !", "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Error)

Me.txtnom.Focus()

Exit Sub

End If
dta.InsertCommand = New SqlCommand("insert into test(reference,nom,prenom,emploi) Values (@reference,@nom,@prenom,@emploi",cnx)
dta.InsertCommand.Parameters.Add("@reference", SqlDbType.Decimal, 9, "reference")
dta.InsertCommand.Parameters.Add("@nom", SqlDbType.Text, 16, "nom")
dta.InsertCommand.Parameters.Add("@prenom", SqlDbType.Text, 16, "prenom")
dta.InsertCommand.Parameters.Add("@emploi", SqlDbType.Text, 16, "emploi")
'cr&#1604;tion d'une nouvelle ligne avec les données des textbox

dtr = dts.Tables("test").NewRow()
dtr("nom") = Me.txtnom.Text
dtr("prenom") = Me.txtprenom.Text
dtr("emploi") = Me.txtjob.Text

'ajout de la ligne dans le DataSet
dts.Tables("test").Rows.Add(dtr)

'création et exécution du commandbuilder
'pour mettre à jour le DataAdapter
cmdb = New SqlCommandBuilder(dta)


'mise à jour des données du DataAdapter
'à partir du commandbuilder

*********************************
dta.Update(dts, "test")
*********************************

'on vide le dataset pour le recréer avec
'les nouvelles données
dts.Clear()
dta.Fill(dts, "test")
dtt = dts.Tables("test")

'mise à jour de la datagrid
DataGrid1.SetDataBinding(dts, "test")


'aller au début du fichier
rownum = 0

'affichage des données dans les texbox
Me.txtref.Text = dtt.Rows(rownum).Item("reference")
Me.txtnom.Text = dtt.Rows(rownum).Item("nom")
Me.txtprenom.Text = dtt.Rows(rownum).Item("prenom")
Me.txtjob.Text = dtt.Rows(rownum).Item("emploi")

'activation des boutons
btnp.Enabled = True 'premier
btnprec.Enabled = True 'précédent
btnsui.Enabled = True 'suivant
btnder.Enabled = True 'dernier

btnmod.Enabled = True
btnsup.Enabled = True

btnajou.Enabled = True
btnenr.Enabled = False 'valider

btnajou.Text = "Ajouter"

cnx.Close()


End Sub

asecher · Answer

tu travaille sur dta ou sur dtr ?
(le .net, ça me donne des boutons ...)

Alain 31

Erreur systeme incompréhensible

1 réponse

Votre réponse

Discussions similaires