Fijar los rs = CreateObject (“ADODB.Recordset”)
Fijar las conec = CreateObject (“ADODB.Connection”)
Con las conec
. Abastecedor = “SQLOLEDB”
. Modo = adModeReadWrite
.ConnectionString = “fuente de datos = (local); Catálogo inicial = xxx; Identificación del usuario = xxx; Password=xxx”
. Abierto
Extremo con
el strSQLQuery = “SELECCIONA CUENTA (*) COMO MyRecordCount DE [el tableName]”
rs. Abrir el strSQLQuery, conec
Si no rs.EOF entonces
rs.MoveFirst
Hacer mientras que no rs.EOF
WScript.Echo (rs (“MyRecordCount”))
rs.movenext
lazo
Terminar si
rs. Cierre
Fijar los rs = nada
conec. Cerrarse
Fijar las conec = el class= > " claro " de Nothing