在VB中处理SQL备份时出现在的异常问题.请大家帮忙解决.
一 主要控件:一个按钮,一个common dialog control6.0,一个标签.
二 代码如下:
Option Explicit
Private WithEvents objBackup As SQLDMO.Backup
Private Sub Command1_Click()
d.ShowSave
Dim objSqlSer As New SQLDMO.SQLServer
objSqlSer.Connect "(注:IP地址", "sa", "密码"
MsgBox "OK"
Set objBackup = New SQLDMO.Backup
With objBackup
.PercentCompleteNotification = 1
.Database = "注(数据库名)"
.Files = d.FileName
.SQLBackup objSqlSer
End With
'Set objBackup = Nothing
objSqlSer.Close
Set objSqlSer = Nothing
End Sub
Private Sub Form_Load()
End Sub
Private Sub objBackup_Complete(ByVal Message As String)
Set objBackup = Nothing
MsgBox "已经完成备份"
End Sub
Private Sub objBackup_PercentComplete(ByVal Message As String, ByVal Percent As Long)
'Debug.Print Percent
p.Value = Percent
l1.Caption = ""
l1.Caption = Percent & " %"
DoEvents
End Sub
三 出现的错误:
我在运行时,老是出现下面的对话框
run_time error '-2147218303(80040c81)':
[Microsoft][ODBC SQL SERVER][SQL Server]无法打开备份设备
'c:\program files\microsoft sqlserver\mssql\backup\settings\mfksowwx\桌面\234.bak'.设备
出现错误或设备脱机.详细信息请参阅SQL SERVER错误日志.
[microsoft][ODBC sql server driver][sql server]BACKUP DATABASE 操作异常终止.
四 问题所在....
就是说只要保存在桌面都不行,但是保存在其他的盘或是文件夹都是可以的.
各位高手有知道的请告诉小弟,万分感谢.!!!!!!
五 各位高手一起来谈讨一下问题的所在......共同进步.....