vb中的数据恢复问题

Question

我使用的是adodb.recordset的save功能来备份数据库，再用recordset的open功能打开，取得记录集，但要将此记录集放入sqlsever2000的某数据库中，这个可难到我了，怎么将记录集全部放入数据库中而实现数据库的恢复啊，谢谢高人指点啊？

Answer 1

'备份数据库'需要添加一个commoldialog控件
Sub backDataBase()
    cn1.Execute "use master"
    dlg.Filter = "(*.bak)|*.bak"
    dlg.ShowOpen
    MousePointer = 11
    cn1.Execute "BACKUP DATABASE hetong TO DISK = '" & dlg.FileName & "'"  '备份数据库
    MousePointer = 0
    Set cn1 = Nothing
    '重新建立连接
    Call dbint
    Set cn1 = New ADODB.Connection
    cn1.Open "Driver={SQL Server};Server=" & SQL_SRV & ";Uid=" & SA & ";Pwd=" & PA & ";Database=" & SJK & ""
End Sub

Answer 2

'回复数据库
'需要添加一个commoldialog控件
Sub restoreDatabase()
    cn1.Execute "use master"
    dlg.Filter = "(*.bak)|*.bak"
    dlg.ShowOpen
    MousePointer = 11
    cn1.Execute "restore database hetong from disk ='" & dlg.FileName & "' with replace"  '还原数据库
    Call dbint
    Set cn1 = New ADODB.Connection
    cn1.Open "Driver={SQL Server};Server=" & SQL_SRV & ";Uid=" & SA & ";Pwd=" & PA & ";Database=" & SJK & ""
End Sub