1 >
Установите rs = CreateObject («ADODB.Recordset») Установите conn = CreateObject («ADODB.Connection») С conn . Провайдер = «SQLOLEDB» . Режим = adModeReadWrite .ConnectionString = «источник данных = (local); Первоначально каталог = xxx; Потребитель - удостоверение личности = xxx; Password=xxx» . Открыто Конец с strSQLQuery = «ВЫБИРАЕТ ОТСЧЕТ (*) КАК MyRecordCount ОТ [tableName]» rs. Раскройте strSQLQuery, conn Если не rs.EOF после этого rs.MoveFirst Сделайте пока не rs.EOF WScript.Echo (rs («MyRecordCount»)) rs.movenext петля Закончитесь если rs. Конец Установите rs = ничего conn. Закройте Установите conn = class= " ясное " > Nothing