8师高炮团:VB的数据库备份代码怎么写?

数据库恢复：
Dim conn As New adodb.Connection
Dim rec As New adodb.Recordset
'SQLserver数据服务器名称；SQLuser数据服务器用户名称（一般为SA）；SQLpaswd数据库用户密码
basename = "master"
temstring = "driver={SQL Server};server=" & SQLsever & ";database=" & basename & ";uid=" & SQLuser & ";pwd=" & SQLpaswd & ";"
restorefilename = "'" & Trim(Dir1.Path) & "'\'" & Trim(File1.FileName) & "'"
'Dir1.Path为数据库存放的目录；File1.FileName为数据库名称
conn.Open temstring
conn.Execute ("restore database bikemag from disk='" & restorefilename & "'")
conn.Close

数据库备份：
Dim conn As New adodb.Connection
Dim rec As New adodb.Recordset
Dim backupfilename As String '备份数据库存放地址以及名称
db = "Driver={SQL Server};Server=" & SQLserver & _
";Database=" & SQLbase & ";uid=" & SQLuser & ";pwd=" & SQLpaswd & ";"
conn.Open db '打开数据库连接
b = "backup database bikemag to disk='" & backupfilename & "'"
conn.Execute (b)
conn.close

另外SQL2000数据库可以手动进行数据库备份和恢复，不需要用代码执行

haha
真是太谢谢了！
我也正在找这个呢！
真是雪中送炭！谢谢你了！！