VB、SqlServer如何导出数据到一个文件

Question

用代码如何实现？
数据可能在机器重装，SqlServer重装的情况下要重新恢复，用backup和Restore行吗？

Answer 1

恢复数据库
Private Sub RESTOREdate()
Dim msg As Integer
msg = MsgBox("你确认要将系统数据库备份恢复到系统数据库中吗？", vbQuestion + vbOKCancel)
If msg = vbCancel Then Exit Sub
Dim conn As New ADODB.Connection
Dim strSql As String
On Error GoTo errEnd
conn.Open rstcnn
strSql = "RESTORE DATABASE zwkgdate FROM DISK='d:\backup\zykgdate" & ".bak'"
conn.Execute strSql
conn.Close
Set conn = Nothing
MsgBox "系统数据库恢复完成！", vbOKOnly Or vbInformation, "恢复成功"
Exit Sub
errEnd:
MsgBox Err.Description, vbInformation, "恢复时出错"
conn.Close
Set conn = Nothing
Exit Sub
End Sub
备份数据库Private Sub backupdate()
Dim msg As Integer
msg = MsgBox("你确认要将系统数据库备份吗？", vbQuestion + vbOKCancel)
If msg = vbCancel Then Exit Sub
frmavidate.Show
Dim conn As New ADODB.Connection
Dim strSql As String
Dim fileName As String
On Error GoTo errEnd
conn.Open rstcnn
strSql = "backup DATABASE zwkgdate to DISK = 'd:\backup\zykgdate" & ".bak'"
conn.Execute strSql
conn.Close
Set conn = Nothing
frmavidate.anmavi.AutoPlay = False
Unload frmavidate
MsgBox "数据库已经备份完毕！", vbOKOnly Or vbInformation, "备份成功"
Exit Sub
errEnd:
MsgBox Err.Description, vbInformation, "备份时出错"
conn.Close
Set conn = Nothing
Exit Sub
End Sub
重装后重新注册数据库
在SQL的查询分析器中使用
EXEC sp_attach_db @dbname = N'pubs', 
    @filename1 = N'c:\mssql7\data\pubs.mdf', 
    @filename2 = N'c:\mssql7\data\pubs_log.ldf'