請問 我現在有30多個資料庫(SQL SERVER 7.0)需要備份, 在ＶＢ裡怎麼下指令, 我是要存到磁帶上, 以下是我的程式, 為何到了第4個資料庫時就會出現無法備份的訊息呢?
DIM DB_Cn AS NEW ADODB.Connection
DIM DB_Name(1 TO 30) AS STRING
DB_Cn.Execute "sp_addumpdevice 'Tape','Back_DataBase',
'\\.\Tape0'"
For I = LBound(DB_Name) To UBound(DB_Name)
DB_Cn.Execute "USE " & DB_Name(I)
SQL = "backup database " & DB_Name(I) & " to Back_DataBase with NOUNLOAD"
DB_Cn.Execute SQL
Next
DB_Cn.Close
Set DB_Cn = Nothing