[решено] Определение количества строк в DBF файле

[xilit]

Всем доброго времени суток.
Подскажите можно ли с помощью VBS определить количество строк в DBF файле (кодировка DOS) соответствующих определенному цифровому значению и вывести их на экран. Цифровых значений 3.
Если можно то пожалуйста дайте ссылку на информацию, а то я второй день копаюсь, но подходящего не найду, новичок в этом деле.

[megaloman]

Вот код из двух кусков - в первом просматриваем строки из dbf, удовлетворяющие условию, подсчитываем их кол-во, выдаём на экран 2 поля.
Во втором куске сразу подсчитываем в запросе число строк, удовлетворяющих условию
Where = "H:\Delete"
BazeName = "00_PLAT.DBF"

Connect = "Driver={Microsoft dBase Driver (*.dbf)};DefaultDir=" + Where
Set RecSet = CreateObject("ADODB.Recordset")

' Первый вариант
SQL1 = "Select * From " + BazeName + " Where 2<=Nom_Str and Nom_Str<3 "
RecSet.Open SQL1, Connect
nnn = 0
Do While Not RecSet.EOF
nnn = nnn + 1
MsgBox CStr(RecSet.Fields("Nom_Str")) + " " + RecSet.Fields("Pole")
RecSet.MoveNext
Loop
RecSet.Close
MsgBox "Число записей= " + CStr(nnn)

' Второй вариант
SQL1 = "Select COUNT(*) AS Nrec From " + BazeName + " Where 2<=Nom_Str and Nom_Str<3 "
RecSet.Open SQL1, Connect
MsgBox "Число записей= " + CStr(RecSet.Fields("Nrec"))

Вот книга (http://oz.by/books/more105494.html?id_search=3010221), которая мне нравится, её можно найти для скачивания, ищите именно это издание.

[xilit]

Огромное спасибо. Выручил.