全局代码
Public Class ConfigData
Public Property server As String
Public Property user As String
Public Property password As String
Public Property database As String
End Class
按钮
Dim config As String = Filesys.ReadAllText("config.json")
Dim configData As ConfigData = Newtonsoft.Json.JsonConvert.DeserializeObject(Of ConfigData)(config)
Dim connStr As String = cexp("serve-r={0};user={1};password={2};database={3}",configData.server,configData.user,configData.password,configData.database)
Using conn As New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open()
Dim backupSql As String = "BACKUP DATABASE your_database TO DISK = 'AA.sql'"
Using cmd As New MySql.Data.MySqlClient.MySqlCommand(backupSql, conn)
cmd.ExecuteNonQuery()
End Using
End Using
加好友 
发短信
Post By：2024/9/27 10:17:00 [显示全部帖子]
