передача значения из label в запрос

[ins813]

Здравствуйте, проблема в следующем:
передаю значение из запроса в form2.Label3

form2.Label3.Caption:=Form1.ADOQuery2.FieldByName('nachalnik').AsString;

. Передача происходит, и хочу это значение использовать в выборке при отображении в Dbgrid

Form2.adoquery1.SQL.Add('SELECT n_zapr, data_zapr, name_zapr, vrema_nach_zapr, vrema_okon_zapr, nachal_zapr, lin_c,lin_po,');
Form2.adoquery1.SQL.Add('status FROM dbo.zapr WHERE nachal_zapr = :nachal_zapr ORDER BY n_zapr DESC');
Form2.ADOQuery1.Parameters.ParamByName('nachal_zapr').Value:=label3.Caption;

Но почему-то выборки по условию не происходит ?

[evg_m]

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

Adoquery2.close;
Adoquery2.Parameters.ParameterByName(...).value:=label3.caption;
Adoquery2.open;

но лучше брать значение не из Label3, а оттуда же откуда оно ПОПАДЕТ в этот Label3

Label3.Caption:=<что-то>
Adoquery2.Parameters.....value:=<тоже самое что-то>

Так вы избежите ошибок в случае отказа от вывода новых условий отбора
А можно еще так

AdoQuery2.Parameters.....value:=<нечто>
Label3.caption:=AdoQuery2.Parameters.....Value; //МЫ показываем ИМЕННО значение параметра откуда бы оно не появилось.

[ins813]

Так смысл не в том чтобы значение появилось в label3, а в том чтобы это значение использовать уже в запросе2 для выборке по этому условию. Приведу более подробнее код:
Запрос№1

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 ADOQuery2.Active:=false;
 ADOQuery2.SQL.CommaText:='SELECT * FROM users WHERE fio = :pfio and pass = :ppass';
 ADOQuery2.Parameters.ParamByName('pfio').Value:=combobox1.text;
 ADOQuery2.Parameters.ParamByName('ppass').Value:=edit1.Text;
  ADOQuery2.Open;
    if  ADOQuery2.RecordCount <> 0 then begin
  form1.hide;
  if  ADOQuery2.FieldByName('tip').Value=('Начальник') then Form2.Show
 else if ADOQuery2.FieldByName('tip').Value=('Директор') then Form5.Show
end else
ShowMessage('Пароль неверный');
form2.Label3.Caption:=ADOQuery2.FieldByName('nachalnik').AsString;

Значит значение передается на форму2 в лэбл3 и с этим все норм. Теперь хочу взять это получившееся значение для выборке по условию:

procedure TForm2.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT n_zapr, data_zapr, name_zapr, vrema_nach_zapr, vrema_okon_zapr, nachal_zapr, lin_c,lin_po,');
adoquery1.SQL.Add('status FROM dbo.zapr WHERE nachal_zapr = :nachal_zapr ORDER BY n_zapr DESC');
ADOQuery1.Parameters.ParamByName('nachal_zapr').Value:=label3.Caption;
Adoquery1.ExecSQL;
adoquery1.Active:=true;

И вот здесь сам запрос отрабатывает(т.е. вся инфа отображается) но без выборки по условию

[pu4koff]

ExecSQL - это только выполнение запроса (insert, delete запросы или вызов процедур), без получения результата. Пользуйте Open как в первом случае.

[ins813]

если Вы имели в виду вот так:

ADOQuery1.Close;
adoquery1.SQL.Add('SELECT n_zapr, data_zapr, name_zapr, vrema_nach_zapr, vrema_okon_zapr,nachal_zapr, lin_c,lin_po,');
adoquery1.SQL.Add('status FROM dbo.zapr WHERE nachal_zapr = :nachal_zapr ORDER BY n_zapr DESC');
ADOQuery1.Parameters.ParamByName('nachal_zapr').Value:=label3.Caption;
ADOQuery1.Open;

то это не принесло результата, т.е. так же выводит всю инфу

[Аватар]

Есть три варианта
1. значение nachal_zapr у всех записей совпадает и равно заданному
2. отображаются результат другого запроса
3. чупакабра шутит

[ins813]

Сообщение от Аватар

Есть три варианта
1. значение nachal_zapr у всех записей совпадает и равно заданному
2. отображаются результат другого запроса
3. чупакабра шутит

Первый и третий варианты точно отпадают, напрашивается второй вариант, но т.к. запросы привязаны к разным ADOquery то вряд ли )

[Serge_Bliznykov]

ins813, Вы как-то странно подходите к локализации и решению вашей проблемы.
1) какого типа поле nachal_zapr ?
2) Вы уверены, что в код, где Вы присваиваете параметр, вообще программа попадает? Поставьте там выдачу ShowMesssage или точку останова.
3)

ADOQuery1.Close;
adoquery1.SQL.Add('Select ...

так писать НЕЛЬЗЯ. Если Вы добавляете новый текста запроса, то предварительно нужно ОЧИСТИТЬ старое:

adoquery1.SQL.Clear;

4)

т.к. запросы привязаны к разным ADOquery то вряд ли )

Вы сами себе противоречите. Если у Вас отображаются данные из одного запроса, то изменения В ДРУГОМ запросе select НИКАК на отображение не повлияют.

короче, Вы запутали себя. Разбирайтесь с логикой своей программы.
Успехов!