Помогите написать код в Delphi для БД.

[Serge_Bliznykov]

Сообщение от Sentinel2h

Вы задание прочитайте:Определить количество путевок заданного вида отдыха,цена которые не превышает заданную.

я прочитал задание.

и что теперь?
Вы хотите увидеть то, чего в вашей таблице нет?


и, кстати, исправьте ошибку, вместо Cena = поставьте Cena <=

[Sentinel2h]

Сообщение от Serge_Bliznykov

я прочитал задание.

и что теперь?
Вы хотите увидеть то, чего в вашей таблице нет?


и, кстати, исправьте ошибку, вместо Cena = поставьте Cena <=

Спасибо большое,все получилось.

[Sciv]

Ну в общем, фильтр мы починили (предварительно будем считать, что да)

Получить количество записей: Table1.RecordCount.

Реализовать по человечески: снести Table и вместо неё закинуть Query. В квери забить запрос (свойство SQL.Text):

SELECT abase.*, count(*) AS RecCnt FROM AndreyBaza.db AS abase 
WHERE Vid = :Vid AND Cena = :Cena

Далее на форме датасорц связываете с Query вместо удалённой Table (те же столбцы, только столбец RecCnt не связывайте, он для каждой строки одинаковое значение будет показывать и вообще в таблице не нужен).

В коде:

Query1.Close;
Query1.ParamByName('Vid').value := 'Экзотический';
Query1.ParamByName('Cena').Value := 20000;
Query1.Open;

Количество записей: то же свойство Query1.RecordCount или:

If not Query1.IsEmpty then 
begin
  Query1.First;
  RecCount := Query1.FieldByName('RecCnt').AsInteger;
end
else
  RecCount := 0;

[Sciv]

Сообщение от Serge_Bliznykov

УБЕРИТЕ ЦИКЛ!!!!

Спокойнее, Серж, спокойнее!