[问题求助] VBS ADO对象查询SQL2000

czjt1234

Set oAdoConn = CreateObject("Adodb.Connection")
oAdoConn.Open "Provider=SQLOLEDB;server=192.168.0.254;Database=local;uid=NetCafe;pwd=123456;"

Set oAdoRecs = CreateObject("Adodb.Recordset")

oAdoRecs.Open "SELECT ClientID FROM cur_useraccount ORDER BY ClientID", oAdoConn, 3, 1
'ClientID字段的值是 001 ~ 124

s = "在线机器列表：|"
Do Until oAdoRecs.EOF = True
    s = s & oAdoRecs("ClientID").Value & "|"
    oAdoRecs.MoveNext()
Loop

oAdoRecs.Close()
复制代码

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

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

zz100001

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