You need to enable JavaScript to run this app.
优惠活动
大模型
产品
解决方案
定价
更多

VB.NET表单数据保存异常求助:重启丢失、手动加数据不显示

问题求助:TableAdapter数据保存后无法持久化,重启丢失

我是编程新手,开发了一款带保存/编辑/删除功能的表单,用TableAdapter(Data Binding Source)做数据绑定。按教程操作后,点保存会弹出“Data Saved”提示,但找不到保存的数据文件;重启程序后,表单和数据库里的记录全没了。

补充细节

  • 保存后的界面截图
  • 返回设计模式的界面截图
  • 手动往Access数据库插数据后,能在预览里看到数据,但表单上不显示对应的截图

怀疑是数据库连接设置的问题,下面是保存按钮的VB.NET代码,求解决办法:

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Try
            Me.Validate()

            Me.JobStatusBindingSource.EndEdit()


            Dim orderdelete As JobStatusDataSet.Job_StatusDataTable = CType(JobStatusDataSet.Job_Status.GetChanges(Data.DataRowState.Deleted), JobStatusDataSet.Job_StatusDataTable)

            Dim ordernew As JobStatusDataSet.Job_StatusDataTable = CType(JobStatusDataSet.Job_Status.GetChanges(Data.DataRowState.Added), JobStatusDataSet.Job_StatusDataTable)

            Dim ordermodified As JobStatusDataSet.Job_StatusDataTable = CType(JobStatusDataSet.Job_Status.GetChanges(Data.DataRowState.Modified), JobStatusDataSet.Job_StatusDataTable)


            Try
                If Not orderdelete Is Nothing Then
                    Job_StatusTableAdapter.Update(orderdelete)

                End If

                If Not ordernew Is Nothing Then
                    Job_StatusTableAdapter.Update(ordernew)

                End If

                If Not ordermodified Is Nothing Then
                    Job_StatusTableAdapter.Update(ordermodified)

                End If

                JobStatusDataSet.AcceptChanges()

            Catch ex As Exception

            Finally
                If Not orderdelete Is Nothing Then
                    orderdelete.Dispose()

                End If
                If Not ordernew Is Nothing Then
                    ordernew.Dispose()

                End If
                If Not ordermodified Is Nothing Then
                    ordermodified.Dispose()


                End If
            End Try
            MessageBox.Show("Data Saved")

        Catch ex As Exception
            MessageBox.Show("Saving Error")
        End Try
End Sub

内容的提问来源于stack exchange,提问作者Faizul

相关产品推荐
方舟 Agent Plan

超全模态模型 × Harness 升级,最新支持 Deepseek-V4.1-Flash、GLM-5.3 系列、Doubao-Seedream-5.0-pro、Kimi-K3 (部分), 限时 9.9 元起

最近更新时间:2026.07.23 08:25:27