按钮代码如下：红色这段不是很理解
Dim cn As Connection = Connections("数据库名")
Dim lx As Integer = cn.SourceType
If lx = 2 Then
Dim str As String = cn.ConnectionString
Dim mc As String
For Each s As String In str.split(";")
If s.StartsWith("Initial Catalog") Then
mc = s.split("=")(1)
End If
Next
Dim bf As String = "C:\FTP\"& format(Date.now,"yyyyMMddHHmmss") & ".bak"
Dim Result As DialogResult
Result = MessageBox.Show("是否现在【备份】数据库至服务器端【C:\FTP】目录下 ?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim cmd As New SQLCommand
cmd.CommandText = "use master;BACKUP DATABASE " & mc & " TO DISK = '" & bf & "' With FORMAT,CHECKSUM;"
cmd.ExecuteNonQuery()
End If
End If
点击备份按钮报下面的错误
无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。
加好友 
发短信
Post By：2020/12/12 16:15:00 [只看该作者]
