mise à jour table access sous vb.net (desepérée...)

Question

Je suis désepérée.. impossible d'effectuer une modification de ma tabla access  Si quelqu'un peut m'aider ce serai super sympa (je suis prete a vous envoyer mon projet pour que vous y jetier un coup d'oeuil) la j'en pe plus je ne vois pas l'erreur!!mon code:

Dim Connection As New OleDb.OleDbConnection()
        Dim AdapTContact As OleDb.OleDbDataAdapter
        Dim DtSet As New Data.DataSet()
        Dim Sql As String
        Dim compteur As Integer
        Dim CmdBuild As OleDbCommandBuilder
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "" & "base.mdb;"
        Connection.Open()
        Sql = "select * from Agent"
        AdapTContact = New OleDbDataAdapter(Sql, Connection)
        AdapTContact.Fill(DtSet, "Agent")

        For compteur = 0 To DtSet.Tables("Agent").Rows.Count - 1
            If ChoixAgent.SelectedItem = DtSet.Tables("Agent").Rows(compteur).Item(0) Then Exit For
        Next
        'Mise à jour en mémoire via le DataSet
        DtSet.Tables("Agent").Rows(compteur).Item(3) = password.Text

        CmdBuild = New OleDb.OleDbCommandBuilder(AdapTContact)

        AdapTContact.UpdateCommand = CmdBuild.GetUpdateCommand()
        MsgBox("ok")
        AdapTContact.Update(DtSet, "Agent")

        Connection.Close()

Repentignois · Answer

Je sais que j'arrive un peu tard mais voici une façon simple de mettre à jour une base de données ACCESS.  Cet exemple met à jour la table "Table1" et la colonne "Solde_depart".  À vous de le modifier pour mettre à jour d'autres colonnes ou rangées.




Friend








Sub

 Enregistre_Nouveaux_Soldes(


ByVal

 LeNoDeLigne, 


ByVal

 montant)CnxStr = 



"Provider=Microsoft.Jet.OLEDB.4.0;"

 & 


"Data Source= c:\comptabilité"

 & DossierCie & 


"	itres.mdb;"








Dim

 connexion 


As

 OleDbConnection = 


New

 OleDbConnection(CnxStr)connexion.Open()



Dim

 StrSelect 


As





String

 = 


"SELECT * FROM table1"








Dim

 MonDataAdapteur 


As





New

 OleDbDataAdapter(StrSelect, connexion)



Dim

 MonCmdBuilder 


As





New

 OleDbCommandBuilder(MonDataAdapteur)



Dim

 MonDataset 


As





New

 DataSetMonDataAdapteur.Fill(MonDataset, 



"table1"

)



Dim

 Matable 


As

 DataTable = MonDataset.Tables(


"Table1"

)dtr = Matable.Rows(LeNoDeLigne)

dtr.BeginEdit()

dtr(



"Solde_depart"

) = montantdtr.EndEdit()

MonDataAdapteur.AcceptChangesDuringUpdate = 



True


MonDataAdapteur.Update(MonDataset, 





"Table1"

)connexion.Close()



End





Sub

Mise à jour table access sous vb.net (desepérée...)

1 réponse

Discussions similaires