i have a small problem with this code, it cann't save changes on Datatable to the database SQL Server Mobile ..
the execution work succesfully but without changes in the database !
here is the code, please try to help :
Code Snippet
#Region " << Declarations >> "
Dim objCon As New SqlCeConnection("Data source=\Storage Card\Full_Database.sdf")
Dim objDA As SqlCeDataAdapter
Dim objCmdBldr As SqlCeCommandBuilder
Dim objTB As New DataTable("MyTB")
Dim objBS As New BindingSource
#End Region
Private Sub frmDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objDA = New SqlCeDataAdapter("Select * From MyTB", objCon)
objDA.MissingSchemaAction = MissingSchemaAction.AddWithKey
objTB.Clear()
objDA.Fill(objTB)
objBS.DataSource = objTB
End Sub
' Add New Record for example
Private Sub mnuAddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAddNew.Click
If Not CType(objBS.Current, DataRowView).IsNew Then
objBS.AddNew()
Dim dRowView As DataRowView = objBS.Current
dRowView.BeginEdit()
dRowView("id") = 10
dRowView("name") = "Someone"
dRowView.EndEdit()
End If
' Calling Save Methode
mnuSave_Click(sender, e)
End Sub
' Save Values
Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSave.Click
objBS.EndEdit()
objCmdBldr = New SqlCeCommandBuilder(objDA)
objDA.Update(objTB)
End Sub
UP .|||
See this.
By the way, there's search up and right. Works great - try it with "save changes", for example…
No comments:
Post a Comment