方法1:
执行 T-SQL 语句
参阅 《SQL Server Books Online》 索引: Backup Database、Restore DataBase
Dim adoConnection As New ADODB.Connection
adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=password;Initial Catalog=Test;Data Source=ServerName"
adoConnection.Execute "BACKUP DATABASE Northwind TO DISK = 'c:\Northwind.bak'"
...
adoConnection.Execute "RESTORE DATABASE TestDB FROM DISK = 'c:\Northwind.bak' WITH MOVE 'Northwind' TO 'c:\test\testdb.mdf',
MOVE 'Northwind_log' TO 'c:\test\testdb.ldf'"
方法2: 引用 Microsoft SQLDMO Object Libary (SQLDMO)
参阅 《SQL Server Books Online》 索引: Backup Object
Dim SQLServerX As New SQLDMO.SQLServer
SQLServerX.Connect sServerName, sLogin, sPassword
Dim BackupX As New SQLDMO.Backup
....
方法3: 同fuzhanyu