现在在VB中保存在数据库构建中 [英] Now getting saved in database build in VB

问题描述

我在保存数据库时遇到问题。这个数据库我用VB构建它。当我填写数据并单击保存时，它是正确的，但是当我重新启动程序时，数据会消失。这是我的代码： -

I have a problem in saving my database. This Database I Have build it in VB. When I fill data and click save it is proper but when i restart the program the data vanishes off. This are my code :-

Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingNavigatorSaveItem.Click
      Me.Validate()
      Try
      Catch

          Me.Table1BindingSource.EndEdit()
          Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

          Me.Table2BindingSource.EndEdit()
          Me.Table2TableAdapter.Update(Me.Database1DataSet)

          Me.Table3BindingSource.EndEdit()
          Me.Table3TableAdapter.Update(Me.Database1DataSet)

          Me.Table4BindingSource.EndEdit()
          Me.Table4TableAdapter.Update(Me.Database1DataSet)

          Me.Table5BindingSource.EndEdit()
          Me.Table5TableAdapter.Update(Me.Database1DataSet)
      End Try
  End Sub

任何人都可以帮助我。在此先感谢

Can anybody help me out. Thanks in advance

推荐答案

您的尝试... Catch Block错误（请参阅 MSDN [ ^ ]）。你应该写类似的东西：

Your Try...Catch Block is wrong (see MSDN[^]). You should write something similar to:

Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingNavigatorSaveItem.Click
      Me.Validate()
      Try
          Me.Table1BindingSource.EndEdit()
          Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

          Me.Table2BindingSource.EndEdit()
          Me.Table2TableAdapter.Update(Me.Database1DataSet)

          Me.Table3BindingSource.EndEdit()
          Me.Table3TableAdapter.Update(Me.Database1DataSet)

          Me.Table4BindingSource.EndEdit()
          Me.Table4TableAdapter.Update(Me.Database1DataSet)

          Me.Table5BindingSource.EndEdit()
          Me.Table5TableAdapter.Update(Me.Database1DataSet)
      Catch ex As Exception
          MsgBox("An exception occurred while updating the database: " & ex.Message)

      End Try
  End Sub

这篇关于现在在VB中保存在数据库构建中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！