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 filename As String = "C:\backup\backup_" & DateTime.Now.ToString("yyyyMMddHHmmss") & ".accdb" '备份文件名
        Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database\mydb.accdb" '原始数据库连接字符串
        Dim backupString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filename '备份数据库连接字符串

        Using connection As New OleDbConnection(conString)
            connection.Open()

            '创建备份SQL命令
            Dim backupCommand As New OleDbCommand("SELECT * INTO [;DATABASE=" & filename & "].[" & DateTime.Now.ToString("yyyyMMddHHmmss") & "_backup] FROM mytable", connection)

            '执行备份命令
            backupCommand.ExecuteNonQuery()

            connection.Close()
        End Using

        MessageBox.Show("备份完成！备份文件路径：" & filename)
    End Sub

End Class

这段代码使用了 OleDb 连接对象和 SQL 命令来备份 ACCESS 数据库。首先，我们定义了原始数据库的连接字符串和备份数据库的连接字符串。然后，我们使用 OleDb 连接对象打开原始数据库连接，并创建一个备份 SQL 命令。最后，我们执行备份命令并关闭连接。备份完成后，我们在消息框中显示备份文件的路径。