Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Определение количества строк в DBF файле (http://forum.oszone.net/showthread.php?t=203670)

xilit 01-04-2011 15:25 1648900

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

megaloman 01-04-2011 19:45 1649031

Вот код из двух кусков - в первом просматриваем строки из 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 01-04-2011 22:50 1649132

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


Время: 01:05.

Время: 01:05.
© OSzone.net 2001-