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
Partager