sql server 7种的备份方法
If cn.State = adStateOpen Then cn.Close
    cn.ConnectionTimeout = 10
    connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
    cn.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = Str(Date)
riqi = dd + "-" + NowtimeSQL = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
cn.Execute (SQL)http://www.dapha.net/有原代码执行SQL命令"BACKUP DATABASE [数据库名] TO DISK='带路径文件名'"      即可备份"RESTORE DATABASE [数据库名] FROM DISK ='带路径文件名'"  可恢复数据dim objsvr as new sqldmo.sqlserver
dim objbak as new sqldmo.backupobjsvr.connect %server%,%login%,%pwd"
with objbak
    .database=%databasename%
    .files=%filesname%
    .sqlbackup
end withset objdatabase=nothing
set objsvr=nothing

解决方案 »

  1.   

    http://www.dapha.net有很好的示例代码
      

  2.   

    我现在是在客户端,但是数据库在服务器端,但是SQL备份只能备份到本机(即服务器上),那我该怎样做,才能实现备份。
      

  3.   

    SQL = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"这的含义已经是备份服务器数据到客户端的d:\...,还有什么问题?您还可以到
    www.dapha.net上下载例子
      

  4.   

    gump2000(阿甘)
    升到两颗星了,开帖散分怎么样?
    我要多点
      

  5.   

    呵呵,我的机器里没有SQl server没有测试:(
      

  6.   

    呵呵,备份了以后copy回来:)
    查找资料中...
      

  7.   

    我还是希望gump2000(阿甘)兄能给出一个回答,问题解决马上给分,另外你的qq
      

  8.   

    使用网络路径嘛。SQL = "BACKUP DATABASE tablename TO disk='\\hostname\temp\a.bak'
      

  9.   

    我也有遇到该问题,但无法解决,即使你用SQL_SERVER挂上服务器再进行备份,同样是不能选择本地路径,我只好限制用户只能进行本地备份。用打开记录集的方法写到本地的SQL数据库或其他类型的数据库内倒是可以,但速度就惨了,我也觉得太笨,实在不想用。
      

  10.   

    可以通过修改本地注册表使指定目录变成完全共享,再执行SQL = "BACKUP DATABASE tablename TO disk='\\hostname\temp\a.bak'查询,在备份结束后,修改注册表关闭共享