Pb en vb.net Update bdd acsess

Question

Knibal
Ca bloke kan je ve mettre a jour la bdd a partir d'un dataset

THEREALKILLER · Answer

Un pe de code 

Declaration

 Private objConnection As New OleDb.OleDbConnection
 Private AdapTContact As New OleDbDataAdapter("SELECT client.* FROM client", objConnection)
 Private DtSetm As New DataSet()
 Private objDataRow As DataRow
 Private objCommandBuilder As New OleDbCommandBuilder(AdapTContact)

form load 

        objConnection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
        "data source= " & Application.StartupPath & "\" & "bd1.mdb;"

 AdapTContact.Fill(DtSetm, "client")

fin form load

boutton enregistrer 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        With DtSetm
            ' Création de la nouvelle ligne 
            objDataRow = DtSetm.Tables("client").NewRow()
            'affectation des valeurs
            objDataRow("num_client") = DtSetm.Tables.Item(0).Rows.Count + 1
            objDataRow("nom") = Me.nom.Text
            objDataRow("prenom") = Me.nom.Text
            objDataRow("adresse") = Me.nom.Text
            objDataRow("cp") = Me.nom.Text
            objDataRow("ville") = Me.nom.Text
            objDataRow("code") = Me.nom.Text
            objDataRow("et") = Me.nom.Text
            objDataRow("int") = Me.nom.Text
            objDataRow("esc") = Me.nom.Text
            objDataRow("tel") = Me.nom.Text
            objDataRow("port") = Me.nom.Text
            objDataRow("fax") = Me.nom.Text
            ' Ajout de la ligne à la table
            .Tables("client").Rows.Add(objDataRow)

            'objConnection.Open()

           
            AdapTContact.Update(DtSetm, "client")

            DtSetm.Clear()

            AdapTContact.Fill(DtSetm, "client")

            ' objConnection.Close()

        End With

        Vide_champ()

    End Sub

Pb en vb.net Update bdd acsess

1 réponse

Discussions similaires