如何使 datagridview 實時連接到本地存儲在 VB.NET 中的訪問數據庫？

Question

我想要它，所以當我從 datagridview 刪除/編輯記錄時，它會自動刪除/編輯訪問數據庫文件。 這是我的代碼片段，它將數據庫加載到 datagridview 中。

Public Function dbConnect() As Boolean
    Try
        cn = New OleDbConnection(DataBasePath)
        cn.Open()
        'MessageBox.Show("is work ")

        Return True
    Catch ex As Exception
        MessageBox.Show("Unable to open the database: " & ex.Message)
        Return False
    End Try
End Function

Private Function GetOrders() As DataTable
    Dim dtOrders As New DataTable
    dbConnect()
    Dim SQLCMD As New OleDbCommand
    SQLCMD.Connection = cn
    SQLCMD.CommandText = "Select * From [OrdersTbl]"
    dtOrders.Load(SQLCMD.ExecuteReader())
    Return dtOrders
End Function

Private Sub EditOrdersForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    OrdersDataGrid.DataSource = GetOrders()
End Sub

如何才能將更改保存到本地文件。

Answer 1

我在表單上有一個 datagridview 和一個按鈕。 這是您可以參考的代碼：

Private dt As DataTable = New DataTable
Private da As OleDbDataAdapter
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim connection As OleDbConnection = New OleDbConnection("your connection string")
    connection.Open()
    Dim cmdTxt As String = "SELECT * FROM yourTable"
    da = New OleDbDataAdapter(New OleDbCommand(cmdTxt, connection))
    Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(da)
    da.Fill(dt)
    Dim source As BindingSource = New BindingSource With {
                                    .DataSource = dt
                                  }
    DataGridView1.DataSource = source
    connection.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    DataGridView1.EndEdit()
    da.Update(dt)
End Sub

每次您想從 datagridview 更新數據庫時，只需單擊按鈕。