vb mysql数据库备份

Imports System.Data.Odbc

Module Module1
    Sub Main()
        Dim connectionString As String = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=mydatabase;UID=myuser;PWD=mypassword;"
        Dim backupFilePath As String = "C:\Backup\mydatabase_backup.sql"

        Try
            Using connection As New OdbcConnection(connectionString)
                connection.Open()

                Dim command As New OdbcCommand("mysqldump --user=myuser --password=mypassword --databases mydatabase > " & backupFilePath, connection)
                command.ExecuteNonQuery()

                Console.WriteLine("Database backup completed successfully.")
            Catch ex As Exception
                Console.WriteLine("Error during database backup: " & ex.Message)
            End Try
        End Sub
    End Module
End Module