AdoQuery

[lenuxoid]

Добрый день!
Делаю запрос через ADOQuery. В инспекторе объектов следующее.
Connection - ADO Connection1
SQl - SELECT * FROM Справочник
Вывожу в отдельную форму результат запроса (Dbgid+DataSource), запрос выполняется.
В главной форме пишу код:
Datamodule1.FindQuery.Active:=false ;
Datamodule1.FindQuery.SQL.Clear;
Datamodule1.Findquery.SQL.ADD ('SELECT *');
Datamodule1.FindQuery.SQL.ADD ('FROM Справочник');
Datamodule1.FindQuery.SQL.Add ('Where Телефон LIKE ' ' '+Edit1.txt+' ' ' ');
Datamodule1.FindQuery.SQL.Active:=t rue;
Form4.showmodal;
Программа запускается, но ничего не выводит. В свойствах FindQuery, мой старый запрос (SELECT * FROM Справочник ).
Не пойму в чем дело.



---------------------------------
В новом проекте практически тоже самое.
Одно, хорошо поиск осуществляется. Но теперь после завершения работы программы.
в свойствах adoquery - active - false;
sql - Select * from Справочник.
Думаю, что если программно меняется SQL запрос, то в свойствах он тоже должен меняться.
Не пойму.

[S@fer]

1) Как у тебя связаны Query,Source и Grid?
2) Поле Телефон строковое? если да, то в запросе нужно указывать не

LIKE ' ' '+Edit1.txt+' ' '

, а

LIKE "'+Edit1.text+'"

(с кавычками)
3)

В свойствах FindQuery, мой старый запрос (SELECT * FROM Справочник ).

с чего ты это решил?

[koma_grusha]

то что при проектировании в свойствах компонента твой старый запрос это нормально, ведь другой ты формируешь в процессе выполнения, только попробуй делать это в FormShow для Form4, а текст запроса посылай туда через переменную

хотя это если ты создаешь форму в процессе выполнения...

если не помогло,
то попробуй каждый раз указывать связь между компонентами там же где формируешь запрос...

[Art_Divin]

Доброго времени суток.
Есть проблемка:
Создаю запрос, всё как нужно, запускаю функцию:

function savebutclick(
  name,address,current_pwd,mail,new_pwd,repeat_pwd: TbsSkinEdit;
  SQL_change_acc: TADOQuery;
  SQL2: TADODataSet;
  SQL2pwd: TWideMemoField):boolean; export;
begin
Result:=false;
{запрос в БД на изменение}
if check(name,address,current_pwd) then begin {если поля заполнены (не пустые), то выполнить запрос}
  SQL_change_acc.Prepared:=false;
  SQL_change_acc.SQL.Clear; {TADOQuery}
  SQL_change_acc.SQL.Add('UPDATE users');
  if current_pwd.Visible then begin
 {заметка №1}   if compare2(current_pwd,SQL2pwd) then begin {если существующий пароль введен правильно, то}
      if compare(new_pwd,repeat_pwd,current_pwd) then {сравниваем новый пароль, если он введен}
        SQL_change_acc.SQL.Add('SET name = '+QuotedStr(name.text)+',mail = '+
          QuotedStr(mail.text)+',address = '+QuotedStr(address.text)+',pwd = '+QuotedStr(new_pwd.text))
      else {если нет, то выполним следующий код:}
   {заметка №2}    SQL_change_acc.SQL.Add('SET name = '+QuotedStr(name.text)+',mail = '+
          QuotedStr(mail.text)+',address = '+QuotedStr(address.text));
      SQL_change_acc.SQL.Add('WHERE uid = 2');
      SQL_change_acc.Prepared := true;
      SQL_change_acc.ExecSQL;
      SQL2.Requery; {TADODataSet}
      ShowMessage('Введённые Вами данные были сохранены');
      Result:=true;
    end
  end else
    if compare(new_pwd,repeat_pwd,current_pwd) then begin {если существующего пароля нет, то проверяем новый пароль на правильность, а затем делаем запрос}
      SQL_change_acc.SQL.Add('SET name = '+QuotedStr(name.text)+',mail = '+
        QuotedStr(mail.text)+',address = '+QuotedStr(address.text)+',pwd = '+QuotedStr(new_pwd.text));
      SQL_change_acc.SQL.Add('WHERE uid = 2');
      SQL_change_acc.Prepared := true;
      SQL_change_acc.ExecSQL;
      SQL2.Requery;
      ShowMessage('Введённые Вами данные были сохранены');
      Result:=true;
    end;
end;
end;

и всё работает нормально первые 2, 3, 4 раза.
Но в один прекрасный момент (несмотря на промежуток между запусками функции) прога рушится и ссылается на заметку #1 или заметку #2.
Думаю, причина в том, что предыдущий запрос либо виснет, либо выполняется настолько долго, что при следующей попытке он всё еще активен.
Есть думы насчет события завершения (успешного выполнения) запроса, но как оно зовётся - понятия не имею.
Прошу помочь, поиск по форуму юзал, ничего схожего не нашел.

Пояснения:

• SQL2 - AdoDataSet с запросом на выборку, содержит все необходимые поля
• SQL_change_acc - ADOQuery с запросом на изменение (UPDATE), вносит изменения в бд
• compare - функция для проверки существующего пароля
• compare2 - функция для проверки нового пароля
• check - фукнция для проверки на пустоту полей ввода

Заранее благодарю за любую оказанную помощь

[Art_Divin]

ап, помогите решить проблему, а то проект стоит...

[quit]

Попробуйте в начале процедуры закрывать запрос

SQL_change_acc.Close;

метод

SQL_change_acc.Prepared

советую убрать

[Art_Divin]

Дело в том, что запрос, где есть Prepared, не возвращает значений, он их изменяет. Т.е. методы open & close никак нельзя использовать в данном случае...
Не помогло...

У нас принято давать темам названия, отражающие суть вопроса.
Читаем правила форума и раздела.
Модератор