如何在VB中备份sql数据库

Question

Dim cn As New ADODB.Connectioncn.ConnectionString = "provider=SQLOLEDB;server=(local);uid=sa;pwd="cn.CursorLocation = adUseClientcn.Opencn.Execute "BACKUP DATABASE bak TO DISK = 'c:\mssql7\backup\bak.bak'"MsgBox "备份成功!"cn.Execute "RESTORE DATABASE bak FROM DISK = 'c:\mssql7\backup\bak.bak' with replace"MsgBox "恢复成功!"cn.Close: Set cn = Nothing

Answer 1

DBEngine.CompactDatabase “C:\VB\BIBLIO.MDB”, “C:\VB\BIBLIO2.MDB” 
   Kill “C:\VB\BIBLIO.BAK”   Name “C:\VB\BIBLIO.MDB” As “C:\VB\BIBLIO.BAK” '备份
 
   Name “C:\VB\BIBLIO2.MDB” As “C:\VB\BIBLIO.MDB” '还原