如何在添加新項目後將Microsoft Access數據庫更新爲Visual Basic數據集

我剛開始製作我的第一個程序，該程序在Visual Basic中使用數據庫，並且我的代碼遇到了一個小故障。該程序使用人名和其他一些信息字段，並將它們放到名爲AddressBook.mdb的數據庫文件中。我有幾個按鈕可以執行各種操作，包括在每條記錄之間移動並更新當前記錄的更改。我的問題雖然是添加一個新條目。按鈕本身在我使用它時起作用，唯一的問題是保存後我不能在應用程序中查看新的條目，直到我重新啓動它。如何在添加新項目後將Microsoft Access數據庫更新爲Visual Basic數據集

下面是提交按鈕保存當前數據作爲新的條目代碼：

Private Sub btnCommit_Click(sender As Object, e As EventArgs) Handles btnCommit.Click 
    If inc <> -1 Then 

     Dim cb As New OleDb.OleDbCommandBuilder(da) 
     Dim dsNewRow As DataRow 

     dsNewRow = ds.Tables("AddressBook").NewRow() 

     dsNewRow.Item("FirstName") = txtFirstName.Text 
     dsNewRow.Item("Surname") = txtSurname.Text 
     dsNewRow.Item("SSN") = ssn.Text 
     dsNewRow.Item("DOB") = dob.Text 
     dsNewRow.Item("Weight") = weight.Text 
     dsNewRow.Item("Height") = tall.Text 
     dsNewRow.Item("Phone") = phone.Text 
     dsNewRow.Item("Address1") = address.Text 
     dsNewRow.Item("City") = city.Text 
     dsNewRow.Item("Postcode") = zip.Text 
     dsNewRow.Item("Hair") = hair.Text 
     dsNewRow.Item("Eye") = eye.Text 
     dsNewRow.Item("Gender") = gender.Text 

     ds.Tables("AddressBook").Rows.Add(dsNewRow) 

     da.Update(ds, "AddressBook") 

     MsgBox("New Record added to the Database") 

     btnCommit.Enabled = False 
     btnAddNew.Enabled = True 
     btnUpdate.Enabled = True 
     btnDelete.Enabled = True 

    End If 
End Sub

有什麼我能做到及時更新數據集中的按鈕被點擊後，這樣我可以查看新的進入權後？

來源

2014-04-09 Matter

如果我記得，有一個刷新方法可用。

最糟糕的情況下，通過銷燬對象並重新創建手動刷新。

我認爲它個人只是更容易重新創建對象，導致刷新（手動或自動）需要您比較值並對DataSet進行更新。

根據您的符號，它看起來像是一個桌面應用程序，因此使用新的DataSet進行刷新對應用程序的影響很小。

來源

2014-04-09 01:56:24 GoldBishop

如何在添加新項目後將Microsoft Access數據庫更新爲Visual Basic數據集

回答

相關問題