Data disappear after saving!

[ASwedan]

Hello there,
I wrote the below code to save data entered to DataGridView to database, the code works fine, but when I shut down the application and run it again, the new data disappear! where is the problem? Thanks

Imports System.Data.OleDb

Public Class frmDataInsertionForm
    Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=sales.mdb")

    Dim ItemsDataSet As New DataSet



    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmDataInsertionForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With DGV
            .ColumnCount = 4
            .Columns(0).HeaderText = "Item Description"
            .Columns(0).Width = 300
            .Columns(1).HeaderText = "Item UOM"
            .Columns(2).HeaderText = "Item Category"
            .Columns(3).HeaderText = "Item Barcode"
        End With
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            Con.Open()
            Dim DBAdapter As New OleDbDataAdapter("select * from Items", Con)
            ItemsDataSet.Clear()
            DBAdapter.Fill(ItemsDataSet, "Items")

            Dim DataBuilder As New OleDbCommandBuilder(DBAdapter)

            ' loop to get all items in DGV
            For i As Integer = 0 To DGV.RowCount - 2
                Dim NewRow As DataRow = ItemsDataSet.Tables("Items").NewRow
                With NewRow
                    .Item(1) = DGV.Rows(i).Cells(0).Value 'Item Description
                    .Item(2) = 0 'Item Quantity
                    .Item(3) = 0 'Item Unit Cost Price
                    .Item(4) = 0 'Item Unit Selling Price
                    .Item(5) = DGV.Rows(i).Cells(1).Value 'Item UOM
                    .Item(6) = DGV.Rows(i).Cells(2).Value 'Item Category
                    .Item(7) = DGV.Rows(i).Cells(3).Value 'Item Barcode

                End With

                ' Do get the entered data and put them in the new record:
                ItemsDataSet.Tables("Items").Rows.Add(NewRow)

                'Now update the adapter
                DBAdapter.Update(ItemsDataSet, "Items")
                Dim Cmdb = New OleDbCommandBuilder(DBAdapter)
            Next
            DGV.Rows.Clear()
            MsgBox("Items saved.")
            DGV.Focus()
            Con.Close()
        Catch ex As Exception
            MsgBox("error" & ex.ToString)
        End Try
    End Sub
End Class

 

[jmcilhinney]

Firstly, test the value returned by the call to Update to make sure that it's greater than zero. If it is then the data is being saved. In that case, to learn how local data files are managed and what you need to do to stop your changes being overwritten, follow the first link in my signature.

 

[ASwedan]

Thanks for answering,
The problem is: when I run the application and insert the new data, I check the database, I find the new changes, but, when I close the application and run it again I do not find the new record in the database! it seems the type of the returned values are correct, but I think there is an issue in the code itself, maybe the data is saved in the dataset only, and not applied to the database? no?

 

[ASwedan]

The application is attached.

 

[jmcilhinney]

I told you to do two things. Did you do them?

 

[Icone]

It is not necessary to clear your dataset before filling so I suggest to remove it and if you're clearing the datagridview data, place it before the loop not after.

 

[cjard]

This gets asked thousands of times a year, and the cause is very simple: Every time you run your program, a blank database is being copied over the top of the one your program edited

Read either:
the link in jmc's signature: How to: Manage Local Data Files in Your Project
or read this:FAQ: "My database isnt saving changes" or "Changes are gone when I restart the app"

it doesnt matter which; i think the second link is easier to understand