谁贴个用vb还原sq server数据库的源代码出来？100分立刻送上！！！！！！！！！

Question

   用sql server生成的备份文件还原数据库

Answer 1

    strSql = "use master"
    MyConnect.Execute strSql
    
    strSql = "sp_addumpdevice  'disk',  'diskdump','Sql服务器某目录\backup.dat'"
    MyConnect.Execute strSql    strSql = "restore database DbName from diskdump"
    MyConnect.Execute strSql
    
    MsgBox "数据恢复完毕!", vbOKOnly + vbExclamation, App.Title
    
    strSql = "sp_dropdevice 'diskdump'"
    MyConnect.Execute strSql 
这是我从网上找到的，你试试

Answer 2

Option Explicit
Dim cn As ADODB.ConnectionPrivate Sub Form_Load()
    
    Set cn = New Connection
    '数据源联接的数据库为Mastor
    cn.Open "Mastor", "sa"
    
End SubPrivate Sub Command1_Click()
    
    cn.Execute "BACKUP DATABASE ps TO disk ='c:\ps'"
End SubPrivate Sub Command2_Click()
    cn.Execute "RESTORE DATABASE ps FROM DISK = 'c:\ps' with REPLACE"
End Sub

Answer 3

   我现在试不了，明天试完之后肯定送上100分！thx!