在vb.net中插入,更新删除

时间:2014-09-20 11:17:26

标签: vb.net

我编辑了我的问题并且继承了我使用的整个代码

Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'TODO: This line of code loads data into the 'GradesDBDataSet.tblGrades' table. You can move, or remove it, as needed.
            Me.TblGradesTableAdapter.Fill(Me.GradesDBDataSet.tblGrades)
        End Sub

        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            TblGradesBindingSource.MoveNext()

        End Sub
        Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
            TblGradesBindingSource.RemoveCurrent()

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            TblGradesBindingSource.MovePrevious()

        End Sub

        Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
            TblGradesBindingSource.MoveLast()

        End Sub

        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            TblGradesBindingSource.MoveFirst()

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TblGradesBindingSource.AddNew()
        End Sub
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            On Error GoTo saveErr
            TblGradesBindingSource.EndEdit()
            TblGradesTableAdapter.Update(GradesDBDataSet.tblGrades)
            MsgBox("Record Save ", MsgBoxStyle.Information)
    saveErr:
            Exit Sub

        End Sub
    End Class

Hello Everyone ...我在使用此代码时遇到问题。 。从vb.net保存数据到ms访问 我只是按照youtube中的教程。它工作但是当我关闭程序然后几分钟后我再次运行它,数据没有保存。 。 。为什么? 。

您能否建议使用vb.net添加,删除SAVE的最佳方法是什么?谢谢eveyone ^ _ ^

1 个答案:

答案 0 :(得分:0)

最可能的答案是您使用的是每次构建时都会覆盖的本地数据文件。

阅读本文以了解如何管理本地数据文件:

http://msdn2.microsoft.com/en-us/library/ms246989(VS.80).aspx

在这种情况下,解决方案是在Solution Explorer中选择数据文件,打开Properties窗口并将Copy to output directory属性设置为Copy if newer。如果您更改了源文件,则源文件将仅复制到输出文件夹。这意味着您可以在会话之间保留测试数据。