为什么备份sql数据库总是出现以错误

Question

代码如下
If CN.State = adStateOpen Then CN.Close
    CN.ConnectionTimeout = 10
    connstr = "Driver={SQL Server};Server=" & xjm & ";UID=" & sa & ";PWD=" & password & ";DATABASE=" & xstgsgl
    CN.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = str(Date)
riqi = dd + "-" + NowtimeSql = "BACKUP DATABASE tablename TO disk='D:\BACKUP\xjm" & riqi & "' with noinit"
CN.Execute (Sql)
一执行到cn.execute(sql)时就出现如下提示：
实时错误:[sql-dmo]代码执行异常错误 EXEPTION_ACCESS_VIOLATION到底是为什么有谁能告诉我吗？？？？？？

Answer 1

你装SQL放到查询分析器里试一下了。

Answer 2

sql server的提示BACKUP 未能完成命令 BACKUP DATABASE [SendMange] TO  
DISK = N'c:\backup\SendMange' WITH  INIT ,  NOUNLOAD , 
 NOSKIP ,  STATS = 10,  NOFORMAT 

Answer 3

我换成sqldmo的做法也不行，真不知是为什么。
'执行到bkps.SQLBackup oSQLServer时出错Public WithEvents bkps As SQLDMO.Backup
程序段
Private Sub output2()
    Dim oSvr As SQLDMO.SQLServer
       Set oSQLServer = CreateObject("SQLDMO.SQLServer")
       oSQLServer.LoginSecure = False
       oSQLServer.Connect ("(local)"), ("sa"), ("")   '连接服务器
       Screen.MousePointer = 11
       Set bkps = CreateObject("SQLDMO.Backup")
       bkps.Database = "SendMange"  '指定需备份的数据库
       bkps.Action = 0
       bkps.Files = "c:\backup\SendMange"  '指定备份文件
       bkps.Initialize = True
      ' ProgressBar1.value = 0
     '  ProgressBar1.Max = 100
       Screen.MousePointer = 0
       DoEvents
       Err = 0
       bkps.SQLBackup oSQLServer '执行到此处出错
       Screen.MousePointer = 11
       'ProgressBar1.value = 100
       DoEvents
       Set bkps = Nothing
       Screen.MousePointer = 0
       MsgBox "数据库备份完成"
End Subvb提示
实时错误 '-2147221499  (80040005）
{代码执行异常错误：  exception_access_violation