Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub db_backup()
- Dim conn As MySqlConnection = New MySqlConnection("server=localhost;user id=username; password=;database=DBname;")
- Dim cmd As MySqlCommand = New MySqlCommand
- cmd.Connection = conn
- conn.Open()
- 'Call connection_string()
- 'MysqlConn.Open()
- Dim mb As MySqlBackup = New MySqlBackup(conn)
- mb.ExportToFile("C:\backup.sql")
- conn.Close()
- End Sub
Add Comment
Please, Sign In to add comment