ник: час
В конструкторе сохдаём:
SELECT Val([PERCENT]) AS PERC
FROM TUNING_TBL
WHERE (((TUNING_TBL.ID) Like "*" & "лич" & "*") AND ((Val([ZNACHENIE]))<=5000) AND ((Val([ZNACHENIE1]))>=5000));
|
Одна запись имеется..........
в программе vb6 пишем
rst.Open " SELECT Val([PERCENT]) AS PERC From TUNING_TBL " _
& " WHERE (((TUNING_TBL.ID) Like '%' & 'лич' & '%') AND ((Val([ZNACHENIE]))<=5000) AND ((Val([ZNACHENIE1]))>=5000)) ", GLB_CONNECTION
MsgBox rst.RecordCount
|
В результате - получаем удар ниже
MsgBox rst.RecordCount = -1