使用VB.Net备份SQLite数据库

Imports System.Data.SQLite

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourceFile As String = "source.db"
        Dim backupFile As String = "backup.db"

        Dim connectionString As String = "Data Source=" & sourceFile
        Dim backupConnectionString As String = "Data Source=" & backupFile

        Using sourceConnection As New SQLiteConnection(connectionString)
            sourceConnection.Open()

            Using backupConnection As New SQLiteConnection(backupConnectionString)
                backupConnection.Open()

                Using command As New SQLiteCommand("backup database '" & backupFile & "' to '" & backupFile & "'", sourceConnection)
                    command.ExecuteNonQuery()
                End Using

                backupConnection.Close()
            End Using

            sourceConnection.Close()
        End Using

        MessageBox.Show("Database backup completed.")
    End Sub
End Class