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

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()
复制代码