VBS ADO对象查询SQL2000

czjt1234

1. Set oAdoConn = CreateObject("Adodb.Connection")
   
2. oAdoConn.Open "Provider=SQLOLEDB;server=192.168.0.254;Database=local;uid=NetCafe;pwd=123456;"
   
3. 
   
4. Set oAdoRecs = CreateObject("Adodb.Recordset")
   
5. 
   
6. oAdoRecs.Open "SELECT ClientID FROM cur_useraccount ORDER BY ClientID", oAdoConn, 3, 1
   
7. 'ClientID字段的值是 001 ~ 124
   
8. 
   
9. s = "在线机器列表：|"
   
10. Do Until oAdoRecs.EOF = True
    
11.     s = s & oAdoRecs("ClientID").Value & "|"
    
12.     oAdoRecs.MoveNext()
    
13. Loop
    
14. 
    
15. oAdoRecs.Close()

复制代码

现在我想每秒一次查询 在线机器列表
如果用Do ... Loop 的话，会不会占用系统资源过多？
这种反复查询的语句，怎么样能占用系统资源少？

还有是否可以在SQL查询时，就对比出减少的机器和增加的机器？
现在是得到s后，再进行字符串处理

zz100001

你不关闭数据库连接，只是重复查，不会占很多资源。
要想对比，SQLServer不支持Flashback，你可以找找替代方法，
比如上次结果放到中间表查的时候直接关联，
或者存放到程序运行时一个Scripting.Dictionary里，获取结果集的时候就对比。