'备份数据库 'BackupDataName数据库存放的绝对路径 Function BackUpData(ByVal BackupDataName As String) As String Dim Conn As New SqlClient.SqlConnection(ModConn.GetConn) Dim mySelectQuery As String = "Backup database popcrm to DISK ='" & BackupDataName & "'" Dim myReader As SqlClient.SqlDataReader Dim Cmd As New SqlCommand(mySelectQuery, Conn) If Conn.State = ConnectionState.Closed Then Conn.Open() Try Cmd.ExecuteNonQuery() BackUpData = "" Catch ExSQL As SqlException If ExSQL.Number = 3201 Then BackUpData = "请正确输入备份文件的存放路径!" Else BackUpData = ExSQL.Message End If Catch Ex As Exception BackUpData = Ex.Message End Try Cmd.Connection.Close() Cmd.Dispose() Conn.Dispose() End Function