Je commence à désepérer....Je veux simplement faire un ajout de données dans une base de données Access par l'intermédiaire du code suivant :


Dim

Connection AsNew OleDb.OleDbConnection()Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\" & "DBEmploiDuTemps.mdb;"

Dim DtSet AsNew DataSet()

Dim NewLigne As DataRow


'definition du DataAdapter

Dim AdapTContact AsNew OleDb.OleDbDataAdapter("select * from LieuTravail", Connection)

AdapTContact.Fill(DtSet,

"LieuTravail")
NewLigne = DtSet.Tables(

"LieuTravail").NewRow
NewLigne(

"ID_Lieu") = 5
NewLigne(

"Lieu") = "essai"
DtSet.Tables(

"LieuTravail").Rows.Add(NewLigne)

Dim CmdBuild As OleDbCommandBuilder
Connection.Open()

CmdBuild =

New OleDb.OleDbCommandBuilder(AdapTContact)
AdapTContact.UpdateCommand = CmdBuild.GetUpdateCommand()

AdapTContact.Update(DtSet,

"LieuTravail")
Connection.Close()




Il n'y a aucune erreur mais quand je regarde dans la base, aucun ajout

AIDEZ MOI SVP

en plus, j'ai téléchargé un programme qui effectuait une opération sur une base de données et comme par hasard ça marche. J'ai copié le code et je l'ai appliqué à ma base mais ca ne matche pas