Enregistrer les données des champs winforms dans une base access

K09N Messages postés 1 Date d'inscription lundi 26 août 2013 Statut Membre Dernière intervention 26 août 2013 - Modifié par BunoCS le 26/08/2013 à 17:00
scn68100 Messages postés 153 Date d'inscription dimanche 27 août 2006 Statut Membre Dernière intervention 26 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

1 réponse

scn68100 Messages postés 153 Date d'inscription dimanche 27 août 2006 Statut Membre Dernière intervention 26 décembre 2019
27 août 2013 à 09:16
Bonjour,
Je n'ai pas analysé le code, mais au premier coup d'oeil je pense qu'il y a "mélange" entre le
sql = "insert into

et
dtr("Code_util") = TextBox1.Text

Surement deux méthodes d'écriture "Mélangée"
SC
0
Rejoignez-nous