Discussion :

[patdan]

Bonjour,

J'ai l'erreur suivante :
La colonne 'ProprioNumLot' n'appartient pas à la table ASLProprio

Ce champ est le 1er que je charge, mais pr les autres c'est pareil

Sub ChargerChamps()
ObjetDataRow("ProprioNumLot") = TxtPNLot.Text
ObjetDataRow("ProprioNom") = TxtPNom.Text
ObjetDataRow("ProprioPrenom") = TxtPPrenom.Text
ObjetDataRow("ProprioDatArrive") = MtbDatArriv.Text
ObjetDataRow("ProprioTelAsl") = TxtPTelAsl.Text
EndSub

ChargerChamps est appelé dans ma sub d'ajout :

ObjetDataRow = ObjetDataSet.Tables("ASLProprio").NewRow
ChargerChamps()
ObjetDataSet.Tables("ASLProprio").Rows.Add(ObjetDataRow)
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "ASLProprio")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "ASLProprio")
ObjetDataTable = ObjetDataSet.Tables("ASLProprio")

Donc, je galère. Il doit manquer peut_être qque chose comme un lien...Allez donc savoir, surtout que dans la même SUB, j'ai la modif qui elle fonctionne

If Ajout..........j'ai des pb (partie ci-dessus)
else
Modif..... OK tt va bien

Merci d'avance pour les idées ou tuyaux que vs pourrez m'apporter

[patdan]

Encore moi.

J'ai oublié de préciser que j'avais bien sûr contrôler mes noms de champ et même retaper au cas où.....

Mais les champs existent ms ne sont pas reconnus

Merci encore

[patdan]

Merci
De rien
A force de galérer, j'ai rajouté ces lignes au début de mon ajout :

strSql = "SELECT * FROM ASLProprio"
ObjetCommand = New OleDbCommand(strSql)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "ASLProprio")
ObjetDataTable = ObjetDataSet.Tables("ASLProprio")
ObjetDataRow = ObjetDataSet.Tables("ASLProprio").NewRow
ChargerChamps()
ObjetDataSet.Tables("ASLProprio").Rows.Add(ObjetDataRow)
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "ASLProprio")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "ASLProprio")
ObjetDataTable = ObjetDataSet.Tables("ASLProprio")

Et voilà cela marche à présent

Ciao