Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Никак не могу разобраться в чем ошибка [D7, 95/98]


dera ©   (2006-03-07 11:46:00) 

Есть две формы. На первой Edit и Buton. По нажатию на Buton, открывается Form2.Showmodal, на которой Query, DataSourse, DBGrid. В Edit я ввожу строку поиска в таблице (Access) и нажимаю Button. По открытию формы2 (FormShow) строю запрос на поиск того, что есть в Edit. Запрос простой и первый раз открывается, а когда я хочу еще рах найти что-то (меняю в Edit что-то и нажимаю баттон), то выдвет ошибку General SQL Error.
Понимаю, что немного туманно, но может, кто-то сталкивался с подобным и подскажет решение


dera   (2006-03-07 12:46:00) [1]

>Megabyte ©   (07.03.06 12:35) [9]
Понял, спасибо!


Megabyte   (2006-03-07 12:35:00) [2]

Если хочешь через Query1.SQL.Add, то сначала надо чистить методом "Query1.SQL.Clear"
А этим "Query1.SQL.Text" ты перезаписываешь поверх предыдущего запроса.


Плохиш   (2006-03-07 12:23:00) [3]


> Строка каждый раз добавлялась?

Ну если нужен ответ, то "Да"


dera   (2006-03-07 12:04:00) [4]

>Плохиш ©   (07.03.06 11:59) [4]
Огромное спасибо!!!!
А в чем ошибка-то была. Строка каждый раз добавлялась?


Плохиш   (2006-03-07 12:02:00) [5]

Хотя стоит использовать параметры


Плохиш   (2006-03-07 12:01:00) [6]

+ QuotedStr


Плохиш   (2006-03-07 11:59:00) [7]

Query1.SQL.Text := 'select tip from innom where innom.invnom like'+chr(39)+'%'+Form1.Edit1.Text+'%'+chr(39);


dera   (2006-03-07 11:55:00) [8]

... по нажатию на баттон делаю так:
if Edit1.Text<>'' then begin
  Query1.Close;
  Query1.SQL.Add('select tip from innom where innom.invnom like'+chr(39)+'%'+Form1.Edit1.Text+'%'+chr(39));
  Query1.Open;
end;


dera   (2006-03-07 11:55:00) [9]

... по нажатию на баттон делаю так:
if Edit1.Text<>'' then begin
  Query1.Close;
  Query1.SQL.Add('select tip from innom where innom.invnom like'+chr(39)+'%'+Edit1.Text+'%'+chr(39));
  Query1.Open;
end;


dera   (2006-03-07 11:52:00) [10]

...даже когда кинул все на одну форму - то же самое - первый раз все данные выводит в DBGrid, а второй и далее - не хочет


Наверх

Титульная страница Поиск, карта сайта Написать письмо