VBS/WSH/JS - [решено] Определение количества строк в 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"))

Вот книга

, которая мне нравится, её можно найти для скачивания, ищите именно это издание.

[xilit]

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