Har ett antal textboxar som jag binder till en dataview .......Updateproblem ........
Till samma dataview binder jag en listbox ........
När jag väljer bland alternativen i listboxen ändras helt riktigt värden i textboxarna ...
Men nu till problemet .... vid kontroll av ändring känner inte Datasettet av ändringen och ingen uppdatering sker ... se exempel ..
Vad gör jag för fel, andra uppdateringar med "samma" kod funkar bra med den skillnaden att där använder jag ingen listbox .......
VB.NET
MySQL 4.1
Skapar dataset och dataview ...
<code>
adKontakt.SelectCommand = New MySqlCommand("SELECT * FROM bas_kund_kontakt", conKD)
cbKontakt = New MySqlCommandBuilder(adKontakt)
adKontakt.MissingSchemaAction = MissingSchemaAction.AddWithKey
adKontakt.FillSchema(dsKunddata, SchemaType.Mapped)
adKontakt.Fill(dsKunddata, "kontakt")
myKontaktview.Table = dsKunddata.Tables("kontakt")
</code>
Bindningskod ...
<code>
Me.listKontakt.DataSource = myKontaktview
Me.listKontakt.DisplayMember = "namn"
Me.txtKontakt_info.DataBindings.Add(New Binding("Text", myKontaktview, "information"))
Me.txtKontakt_telefon.DataBindings.Add(New Binding("Text", myKontaktview, "telefon"))
Me.txtKontakt_fax.DataBindings.Add(New Binding("Text", myKontaktview, "fax"))
Me.txtKontakt_mobil.DataBindings.Add(New Binding("Text", myKontaktview, "mobil"))
Me.txtKontakt_epost.DataBindings.Add(New Binding("Text", myKontaktview, "epost"))
</code>
Updatekod ...
<code>
myKontaktview.Item(0).EndEdit()
'// kollar efter ändrig i dataset
If dsKunddata.HasChanges = True Then
Dim A As MsgBoxResult = MsgBoxResult.Cancel
A = MsgBox("Ändringar har gjorts, skall de sparas ?", MsgBoxStyle.YesNoCancel, "SPARA ?")
If A = MsgBoxResult.Cancel Then Exit Sub
If A = MsgBoxResult.Yes Then
conKD.Open()
'// uppdaterar
adKontakt.Update(dsKunddata, "kontakt")
dsKunddata.Tables("kontakt").AcceptChanges()
conKD.Close()
Else
dsKunddata.RejectChanges()
End If
End If
</code>