'动态数组
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(1)
sqlAry(2)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810230000_201810291806]"
Redim Preserve sqlAry(1)
sqlAry(3)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201811060000_201811091545]"
Dim dbCount
dbCount = UBound(sqlAry) '数组元素最大标准
'释放占用内存
Erase sqlAry
VBS 动态数组
最新推荐文章于 2024-07-04 00:19:28 发布