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

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

Как в SQL запрос подставить значение Edit1.Text? [D7, 95/98]


Dofin ©   (2005-10-11 18:50:00) 

Делаю так:
   IBTransaction1.StartTransaction;
   try
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('INSERT INTO TABLE1 (name) VALUES  ('+Edit1.Text+')');
    IBQuery1.ExecSQL;
    IBTransaction1.Commit;
   except
    IBTransaction1.Rollback;
   end;
На это выдает ошибку.


pavel_guzhanov   (2005-10-12 08:22:00) [1]

чтобы не путаться с апострофами, лучше использовать запрос с параметрами.
IBQuery1.SQL.Add('INSERT INTO TABLE1 (name) VALUES  (:Name)');
IBQuery1.Params.Items[0].AsString:=Edit1.text;


Плохиш   (2005-10-12 01:16:00) [2]


> Dofin   (11.10.05 21:07) [4]
> Ega23 ©   (11.10.05 19:35) [2]
> Спасибо!

Введи в Edit1.Text текст с апострофом для начала, а потом благодарить будешь.

PS. QuotedStr


Dofin   (2005-10-11 21:07:00) [3]

Ega23 ©   (11.10.05 19:35) [2]
Спасибо!

Плохиш ©   (11.10.05 20:11) [3]
Форум для НАЧИНАЮЩИХ!


Плохиш   (2005-10-11 20:11:00) [4]


> Ega23 ©   (11.10.05 19:35) [2]

Заделался халявным баголовителем? :-)


Ega23   (2005-10-11 19:35:00) [5]

('+''''+Edit1.Text+''''+')');


Dofin   (2005-10-11 19:12:00) [6]

И че? Никто не знает?


Наверх

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