Создание запроса SQL

[Irina_87]

Помогите пожалуйста!! Я недавно нашла код SQL запроса в Делфи к Базе данных, разработанной в SQL Server. Но потом удалила нечаянно)) Теперь не могу найти нормальный работающий запрос и код. Кто-нибудь может написать код запроса с использованием ADOQuery1. И подстановкой параметра из EDIT?????

[Sparky]

А запрос то какой?

[Stilet]

Кто-нибудь может написать код запроса с использованием ADOQuery1. И подстановкой параметра из EDIT?????

Ну например:

ADOQuery.Sql.text:='Select (5+4) as summa';
ADOQuery.Open;
Edit.Text:=AdoQuery.FieldByName('summa').AsString;

[Irina_87]

Ура!! Я нашла нужный мне запрос!!)) Но как теперь сделать сложный запрос?? Как сделать так, чтобы я вводила в Editы некоторые значения полей и по ним у меня была выборка???

[Sparky]

смотрите в сторону where:

ADOQuery1.close;
ADOQuery1.SQL.text:="select * from t_table where fio=:fio";
ADOQuery1.paramByName('fio').value:=Edit1.text
ADOQuery1.open;

Только вот как-нибудь вопросы формулируйте нормально

[Irina_87]

Это у меня работает)) А если у меня на форме 6 Editов с названиями полей таблицы БД Поставщики. Мне нужно, чтобы при заполнении некоторых из них, происходила выборка по этим значениям))) Подскажите как это сделать???

[Serge_Bliznykov]

и в чём сложность?!
принцип тот же:

ADOQuery1.close;
ADOQuery1.SQL.text:="select * from t_table where Param1=:z1 and Param2 = :z2 and Param3 = :z3  и т.д.";
ADOQuery1.paramByName('z1').value:=Edit1.text;
ADOQuery1.paramByName('z2').value:=Edit2.text;
ADOQuery1.paramByName('z3').value:=Edit3.text;
и т.д.....
ADOQuery1.open;

разумеется, вместо абстрактных Param1, Param2 и т.д. должны быть Ваши реальные имена полей!

p.s. если не все параметры нужно задействовать,
тогда текст запроса можно формировать динамически, проверяя, какие Edit'ы заполнены, те параметры в запрос и вставлять!

[Irina_87]

В том-то и дело.. Я не знаю как сделать такое условие.. Я пробовала сделать
if Edit1:=''
но мне пишет ошибку

[dr.Chas]

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

В том-то и дело.. Я не знаю как сделать такое условие.. Я пробовала сделать
if Edit1=''
но мне пишет ошибку

Вместо знака присваивания, нужно знак равно.

[Irina_87]

Всё равно ошибку пишет ((((