چگونه از بانک اطلاعاتی SQL بکاپ گرفته و آنرا بازیابی کنیم ؟

کد:بک آپ
 
Dim oBackRest As backup_restore
   Set oBackRest = New backup_restore
   Call oBackRest.Connect(Trim(""), Trim(""), Trim(""), True)
   Call oBackRest.BackupDatabaseToFile("Databasename", Addressbackup & ".bak") 

و برای restore

کد: 
   Set oBackRest = New backup_restore
   Call oBackRest.Connect(Trim(""), Trim(""), Trim(""), True)
   Call oBackRest.DropDatabase("Databasename")
   Call oBackRest.RestoreDatabaseFromFile("Databasename", (addressbackup)) 

منبع : برنامه نوس