数据库备份问题(欢迎讨论)!

[myhgyp]

localcon1.Close
Set localcon1 = Nothing
wjFileSys.CopyFile sqlpath & "\data\localevaluate.mdf", App.Path & "\localevaluate.mdf", True
wjFileSys.CopyFile sqlpath & "\data\localevaluate.ldf", App.Path & "\localevaluate.ldf", True
注:其中wjfilesys为文件对象,用备份文件的形式进行数据库备份.
出错信息为:
实时错误 '70'
拒绝的权限
请高手指点,谢谢!

[lihonggen0]

'sql server 的备份方法
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 + "-" + Nowtime

Sql = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
CN.Execute (Sql)

[lihonggen0]

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=144507
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=127326

[自由之眼]

为什么这么备份？
我给你一个例子
我现在在做一个大型数据库的备份计划
写一个存储过程。
主要语句如下
Buckup database DA_BASE to disk c:\aaa.bak

然后调用JOB定时备份

然后写一个VBScript
dim CopyFile,fso
dim CopyObject
dim Cpath
Cpath = "c:\aaa.bak"
set fso = CreateObject("Scripting.FileSystemObject")
set CopyFile = fso.getfile(Cpath)

CopyFile.copy("\\192.168.0.6\1\")
做一个定时计划
然后自动每天执行

[myhgyp]

lihonggen0(李洪根,用.NET，标准答案来了):
你说的这种方法我会,现在我一定要用我上面的备份方式,因为我需要用sp_attach_db存储过程恢复数据库.

[iiboy]

如果你想用文件自制的方法备份的话,考虑如下语句(VB):
语法:
xx=Filecopy(Source as String,Destination as String)