Enregistrer les données des champs winforms dans une base access
K09N
Messages postés1Date d'inscriptionlundi 26 août 2013StatutMembreDernière intervention26 août 2013
-
Modifié par BunoCS le 26/08/2013 à 17:00
scn68100
Messages postés153Date d'inscriptiondimanche 27 août 2006StatutMembreDernière intervention26 décembre 2019
-
27 août 2013 à 09:16
bonjour à tous
Je suis un débutant en vb. j'ai fait une application vb et je voudrais enregistrer les champs (textbox) de ma form dans ma base de donnée access. j'ai fait un code qui affiche le message d'erreur suivant: "enregistrement non effectué: la référence d'objet n'est pas définie à une instance de référencement"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conn = "provider = Microsoft.ACE.OLEDB.12.0 ; data source = " & Application.StartupPath & "\New BD.accdb"
cnx = New OleDbConnection
cnx.ConnectionString = conn
cnx.Open()
sql = "insert into DECRIRE values ('" & TextBox1.Text & "','" & TextBox2.Text & "'," & TextBox3.Text & ")"
Try
dta.InsertCommand = New OleDbCommand(sql, cnx)
' on cree un enregistrement vierge
dtr = dts.Tables("DECRIRE").NewRow()
'on affecte les champs saisis aux différentes
dtr("Code_util") = TextBox1.Text
dtr("Nom_site") = TextBox2.Text
dtr("Description") = Integer.Parse(TextBox3.Text)
'on associe la ligne à la table du dataset
dts.Tables("DECRIRE").Rows.Add(dtr)
'on effectue la mise à jour dans la base
dta.Update(dts, "DECRIRE")
MessageBox.Show("enregistrement effectué")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
Catch ex As Exception
MessageBox.Show("enregistrement non effectué: " + ex.Message)
End Try
A voir également:
Enregistrer les données des champs winforms dans une base access