Enregistrement dans la base données access [Fermé]

Signaler
-
Messages postés
352
Date d'inscription
mercredi 12 octobre 2011
Statut
Membre
Dernière intervention
18 juillet 2020
-
Bonjour, je vous joint ici mon programme qui sert à enregistrer des données remplies dans les textbox dans une base données nommée BDPOMPES dans une table nommée POMPES.
Lorsque j'execute je reçois le message bien enregistrer, pourtant rien n'etait enregistrer dans ma base de données.
Merci de m'aider à détecter ce qui manque de mon programme

Private Sub ENREGISTRER_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ENREGISTRER_.Click

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BDPOMPES.accdb")

        Dim cmd As New OleDbCommand(" select * from POMPES", cn)
        cn.Open()
        Dim da As New OleDbDataAdapter(cmd)
        Dim ds As New DataSet

        da.Fill(ds, "POMPES")
        Dim dtr As DataRow
        dtr = ds.Tables("POMPES").NewRow

        dtr("MARQUE") = Me.TextBox4.Text
        dtr("SERIE") = Me.TextBox5.Text
        dtr("Diamètre") = Me.TextBox6.Text
        dtr("Vitesse tr/min") = Me.ComboBox1.Text
        dtr("H1") = Me.TextBox41.Text
        dtr("H2") = Me.TextBox40.Text
        dtr("H3") = Me.TextBox39.Text
        dtr("H(qmax)") = Me.TextBox35.Text
        dtr("Q2") = Me.TextBox37.Text
        dtr("Q3") = Me.TextBox36.Text
        dtr("Qmax") = Me.TextBox34.Text
        dtr("Dmax") = Me.TextBox11.Text
        dtr("Dmin") = Me.TextBox10.Text
        dtr("a") = Me.TextBox3.Text
        dtr("b") = Me.TextBox2.Text
        dtr("c") = Me.TextBox1.Text

        Dim CMBD As New OleDbCommandBuilder(da)
        da.Update(ds, "POMPES")
        ds.Clear()
        da.Fill(ds, "POMPES")
        Dim dtt As New DataTable
        dtt = ds.Tables("POMPES")
        MsgBox("Votre pompe est bien enregistrée")

    End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.


1 réponse

Messages postés
352
Date d'inscription
mercredi 12 octobre 2011
Statut
Membre
Dernière intervention
18 juillet 2020
6
ferme la connexion