高手请进！如何备份数据库！（请付原代码，在线等待）

Question

使用ADO,SQL2000,如何用VB6.0备份数据库?

Answer 1

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 + "-" + NowtimeSql = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
CN.Execute (Sql)

Answer 2

-------------------------------数据备份----------------------------------------
得到系统所有的备份设备：
    select * from master..sysdevices where cntrltype=2   
得到指定的备份设备中的备份数据列表：
    RESTORE HEADERONLY from [设备名称变量] 
取得服务器默认的备份路径：
    select * from  master..sysfiles
添加新设备：
    EXEC sp_addumpdevice 'Disk', '新设备名称','备份路径加设备名称.dat'
向设备添加备份数据：
    backup database 数据库名称 to [设备名称] with DESCRIPTION='备份信息',name='备份数据名称'    
-------------------------------数据恢复----------------------------------------
设置当前数据库
USE MASTER
调用存储过程，关闭其他用户连接
exec master..killspid  数据库名称
调用用户
exec sp_dboption 数据库名称 ,'dbo use only','true'
恢复数据
Restore Database sbgl from [设备名称] with file=备份序号,REPLACE有一点要指出，恢复数据库时必须杀掉所有链接该数据库的链接