Вот код из двух кусков - в первом просматриваем строки из 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"))
Вот книга, которая мне нравится, её можно найти для скачивания, ищите именно это издание.
