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
相关产品推荐
相关产品推荐

