VB.NET 代码 使用数据库命令备份ACCESS

以下是使用 VB.NET 代码备份 ACCESS 数据库的示例：

Imports System.Data.OleDb

Public Class Form1

    Private Sub btnBackup_Click(sender As Object, e As EventArgs) Handles btnBackup.Click
        Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\username\Documents\myDatabase.accdb;Persist Security Info=False;"
        Dim backupPath As String = "C:\Users\username\Documents\myDatabase_Backup.accdb"

        Try
            Using conn As New OleDbConnection(connString)
                conn.Open()

                Dim cmd As New OleDbCommand("SELECT * INTO [;DATABASE=" & backupPath & "].myDatabase_backup FROM myDatabase", conn)
                cmd.ExecuteNonQuery()

                MessageBox.Show("Database backup created successfully!")
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

End Class

在上面的示例中，我们使用 `OleDbConnection` 类建立与 ACCESS 数据库的连接，并使用 `OleDbCommand` 类执行备份操作。在命令文本中，我们使用 `SELECT * INTO` 语句将原始数据库的所有表和数据复制到备份数据库中。

请注意，备份数据库的路径必须在命令文本中指定，且必须包含在方括号中，如 `[;DATABASE=C:\backup\myDatabase_Backup.accdb]`。

此外，您需要将 `connString` 变量中的数据库路径替换为您自己的 ACCESS 数据库路径，以及将 `backupPath` 变量中的备份路径替换为您希望备份数据库存储的位置。