Regolare i rs = CreateObject (“ADODB.Recordset„)
Regolar connett. = CreateObject (“ADODB.Connection„)
Con i connett.
. Fornitore = “SQLOLEDB„
. Modo = adModeReadWrite
.ConnectionString = “fonte di dati = (local); Catalogo iniziale = xxx; Identificazione usuario = xxx; Password=xxx„
. Aperto
Estremità con
lo strSQLQuery = “SELEZIONA IL CONTEGGIO (*) COME MyRecordCount A PARTIRE [tableName]„
rs. Aprire lo strSQLQuery, connett.
Se non rs.EOF allora
rs.MoveFirst
Fare mentre non rs.EOF
WScript.Echo (rs (“MyRecordCount„))
rs.movenext
ciclo
Concluder se
rs. Fine
Regolare i rs = niente
connett. Chiuder
Regolar connett. = class= > " libero " di Nothing