'查询语句
Dim strSQL
'结果集行数
Dim RsCount
Set objConnection = CreateObject("ADODB.Connection")
'wincc运行数据库
strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SERVER1\WINCC;Initial Catalog=CC_OS_1__18_10_21_16_07_25R;"
objConnection.ConnectionString = strConnectionString
objConnection.CursorLocation = 3
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.CommandType = 1
'赋值数组值
Redim Preserve sqlAry(0)
sqlAry(0)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810090000_201810151739]"
Redim Preserve sqlAry(1)
sqlAry(1)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810160000_201810221717]"
Redim Preserve sqlAry(2)
sqlAry(2)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810230000_201810291806]"
Redim Preserve sqlAry(3)
sqlAry(3)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201811060000_201811091545]"
Dim dbCount
dbCount = UBound(sqlAry)
objCommand.ActiveConnection = objConnection
Dim i
For i = 0 To dbCount
strSQL = sqlAry(i)
objCommand.CommandText = strSQL
objCommand.Execute
Next
Erase sqlAry'清空数组
'断开结果集
objRecordset.Close
'清空结果集
Set objRecordset = Nothing
'断开数据库连接
objConnection.Close
'清空连接对象
Set objConnection = Nothing'断开结果集
msgbox "结束"