Bjr
J'ai un soucis sur une fonction update de dataset
Je travaille avec une base SQL
DScustomer le dataset
DACustomer le MySqlDataAdapter
Remplissage du dataset
Remplissage du formulaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 DACustomer = New MySqlDataAdapter("SELECT * FROM `customer`;", "Server=" & My.Settings.SqlServer & "; user id =" & My.Settings.SqlUser & "; pwd =" & My.Settings.SqlPwd & "; database = " & My.Settings.SqlDatabase & ";") DACustomer.Fill(DSCustomer, "`customer`") FrmCustomerBindingSource.DataSource = DSCustomer.Tables("`customer`")
(J'ai raccourci le nombre de champs pour mon exemple)
Mise à jour du formulaire et update
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 FrmCustomerTBID.DataBindings.Add(New Binding("Text", Me.FrmCustomerBindingSource, "CustomerID", True)) FrmCustomerCBSexChoice.DataBindings.Add(New Binding("SelectedIndex", Me.FrmCustomerBindingSource, "Sex", True)) FrmCustomerFileTbName.DataBindings.Add(New Binding("Text", Me.FrmCustomerBindingSource, "Name", True))
Si je modifie un champs du formulaire, celui met bien à jour la table mais l'update ne se fait pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 DACustomer = New MySqlDataAdapter("SELECT * FROM `customer`;", "Server=" & My.Settings.SqlServer & "; user id =" & My.Settings.SqlUser & "; pwd =" & My.Settings.SqlPwd & "; database = " & My.Settings.SqlDatabase & ";") Dim ChangedRow As DataRow = DSCustomer.Tables("`customer`").Rows(FrmCustomerBindingSource.Position) ChangedRow.BeginEdit() ChangedRow("CustomerID") = FrmCustomerTBID.Text ChangedRow("Name") = FrmCustomerFileTbName.Text ChangedRow("Sex") = FrmCustomerCBSexChoice.SelectedIndex DSCustomer.AcceptChanges() Dim MyCommBuilder As New MySqlCommandBuilder(DACustomer) DACustomer.Update(DSCustomer, "`customer`")
Je suis un peu perdu, avec vous une idée???
Merci
Partager