期待高手，如何用vb6.0实现sql数据库的备份和还原。（请付代码）

Question

如何用vb6.0实现sql数据库的备份和还原。（请付代码）

Answer 1

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

Answer 2

'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 3

还原的时候连接master数据库，执行：
restore  database  name  from  DISK='e:\backup\bak'

Answer 4

Set Conn = New ADODB.Connection
Conn.ConnectionString = strCnn
Conn.Open’打开需导出数据库的表'开始备份(对整个数据库进行备份)
    SQL = "EXEC sp_addumpdevice 'disk', '" & sGetDate & "Database'," & _
          "'" & sServerFile & "\BACKUP\" & sGetDate & "Database.dat'"
    SQL = SQL & " BACKUP DATABASE " & sInitialCatalog & " TO [" & sGetDate & "Database]"
Conn.Execute SQL’还原数据库（此时应打开主表Master进行还原操作）
Set Conn = New ADODB.Connection
    Conn.ConnectionString = strCnn
    Conn.Open'恢复数据库
    SQL = "RESTORE DATABASE " & sInitialCatalog & " from [" & txtRestorePath.Text & "]  "
    Conn.Execute SQL
'sInitialCatalog 为当前数据库名   txtRestorePath.Text为Dat文件保存的路径

Answer 5

用SQL DEMO也一样的，在SQL的帮助联机从书里就有详细的例子

Answer 6

用SQLDMO实现备份http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=127326