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

[Sentinel2h]

Базу делаю в Paradox 7
1.Определить количество путевок заданного вида отдыха,цена которые не превышает заданную.
2.Определить max продолжительность трех путевок в заданной стране.
Только код в не SQL.

[Sciv]

Ну во-первых, Вы сами что-то пытались сделать? Если да - показывайте и объясните, в чём конкретно проблема.
Во-вторых, это задание делается на чистом SQL, дельфи тут нужна только для визуализации данных и результатов.

Поэтому

Только код в не SQL.

не получится

[Sentinel2h]

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

Ну во-первых, Вы сами что-то пытались сделать? Если да - показывайте и объясните, в чём конкретно проблема.
Во-вторых, это задание делается на чистом SQL, дельфи тут нужна только для визуализации данных и результатов.

Поэтому



не получится

begin

Form1.Table1.First;
repeat;
if (form1.Table1.FieldValues['Vid']=combobox1.Text) and (form1.Table1.FieldValues['Cena']<Edit1.Text) then
Form1.Table1.Next;
until Form1.Table1.eof;
form1.table1.First;
Form1.Table1.Filtered:=true;
Form1.Table1.Filter:='Vid='+QuotedStr(ComboBox1.text)+'and Cena='+QuotedStr(Edit1.Text); }

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

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

Только код в не SQL.

ну, конечно, можно и без SQL обойтись (хотя, внутри TTable тот же SQL и используется, только он скрыт)
Только разрешите поинтересоваться - А ЗАЧЕМ? Чем вызвано такое требование?

код, который Вы написали - в корне неверен.

[Sentinel2h]

Извините это я ошибся,переспросил насчет SQl ошибся.Не могу исправить уже 2 день.Вот решил обратится сюда.У меня почему то при запуске Фильтра все что было заполнено в таблице исчезает.

[Serge_Bliznykov]

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

Извините это я ошибся,переспросил насчет SQl ошибся.

т.е. мы были правы - и это надо сделать через SQL запросы?

p.s. покажите структуру таблицы

[Sciv]

Cena='+QuotedStr(Edit1.Text)

Есть подозрение, что поле Cena задано вещественным типом в базе. В таком случае QuotedStr тут лишнее, оно заключает текст в кавычки внутри строки, а такое нужно применять только при сравнении со строковыми полями в БД. Ну и Vid - тоже проверьте, если не текстовое поле - quotedstr от него в топку.

Form1.Table1.First;
repeat;
if (form1.Table1.FieldValues['Vid']=combobox1.Text) and (form1.Table1.FieldValues['Cena']<Edit1.Text) then
Form1.Table1.Next;
until Form1.Table1.eof;

В чём смысл этого обхода таблицы? Как альтернатива filter он точно не годится (я думаю, Сергей это и имел в виду в посте выше)

Form1.Table1.Filtered:=true;
Form1.Table1.Filter:='Vid='+QuotedStr(ComboBox1.text)+'and Cena='+QuotedStr(Edit1.Text);

В этом куске в принципе некритично - технически дельфи не ругнётся и код выполнится. Но я бы переставил строки местами. Условно говоря, присвоение значения фильтру - это подготовка программы к запуску (инициализация), а активация фильтра - это уже сам запуск.

[Sentinel2h]

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

т.е. мы были правы - и это надо сделать через SQL запросы?

p.s. покажите структуру таблицы

Да вы были правы.

[Sciv]

Дико извиняюсь за придирчивость, но вообще-то внешний вид таблицы не имеет отношения к её структуре.

Структура - это тот код, который описывает поля таблицы (наименования, типы, ограничения, ключи таблицы). В случае с Акцессом: открываете таблицу в режиме конструктора и заводите там наименования полей и типы - это и есть структура.

UPDATE
Удалил последний комментарий, так как прочитал наконец про Paradox 7. Не думал, что он ещё жив...

[Sentinel2h]

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

Cena='+QuotedStr(Edit1.Text)

Есть подозрение, что поле Cena задано вещественным типом в базе. В таком случае QuotedStr тут лишнее, оно заключает текст в кавычки внутри строки, а такое нужно применять только при сравнении со строковыми полями в БД. Ну и Vid - тоже проверьте, если не текстовое поле - quotedstr от него в топку.

Form1.Table1.First;
repeat;
if (form1.Table1.FieldValues['Vid']=combobox1.Text) and (form1.Table1.FieldValues['Cena']<Edit1.Text) then
Form1.Table1.Next;
until Form1.Table1.eof;

В чём смысл этого обхода таблицы? Как альтернатива filter он точно не годится (я думаю, Сергей это и имел в виду в посте выше)

Form1.Table1.Filtered:=true;
Form1.Table1.Filter:='Vid='+QuotedStr(ComboBox1.text)+'and Cena='+QuotedStr(Edit1.Text);

В этом куске в принципе некритично - технически дельфи не ругнётся и код выполнится. Но я бы переставил строки местами. Условно говоря, присвоение значения фильтру - это подготовка программы к запуску (инициализация), а активация фильтра - это уже сам запуск.

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

Cena='+QuotedStr(Edit1.Text)

Есть подозрение, что поле Cena задано вещественным типом в базе. В таком случае QuotedStr тут лишнее, оно заключает текст в кавычки внутри строки, а такое нужно применять только при сравнении со строковыми полями в БД. Ну и Vid - тоже проверьте, если не текстовое поле - quotedstr от него в топку.

Form1.Table1.First;
repeat;
if (form1.Table1.FieldValues['Vid']=combobox1.Text) and (form1.Table1.FieldValues['Cena']<Edit1.Text) then
Form1.Table1.Next;
until Form1.Table1.eof;

В чём смысл этого обхода таблицы? Как альтернатива filter он точно не годится (я думаю, Сергей это и имел в виду в посте выше)

Form1.Table1.Filtered:=true;
Form1.Table1.Filter:='Vid='+QuotedStr(ComboBox1.text)+'and Cena='+QuotedStr(Edit1.Text);

В этом куске в принципе некритично - технически дельфи не ругнётся и код выполнится. Но я бы переставил строки местами. Условно говоря, присвоение значения фильтру - это подготовка программы к запуску (инициализация), а активация фильтра - это уже сам запуск.

Извините что я не очень понял,не могли бы вы исправить код.