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

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

в чём ошибка [D7]

RomanLN ©   (2007-05-02 14:39:00) 

procedure SQL_Insert_Opr;
begin
Q_Insert := TQuery.Create(Application) ;
   try
   Q_Insert.DatabaseName := 'sociologist';
   for i:=0 to Name_Opros.Count-1 do begin
     with Q_Insert.SQL do
       begin
          add('insert into '+name_table+ #13#10+ ' (Name)  values ('
              + QuotedStr(Name_Opros[i])+')');
       end;
        Q_Insert.ExecSQL;
   end;
 finally
   Q_Insert.Free;
 end;
end;

---

RomanLN   (2007-05-02 14:57:00) [1]

спасиб

---

ANB   (2007-05-02 14:48:00) [2]

> with Q_Insert.SQL do
>        begin
>           add('insert into '+name_table+ #13#10+ ' (Name)
>  values ('
>               + QuotedStr(Name_Opros[i])+')');
>        end;

Извращение какое.
1. Q_Insert.SQL.Text := 'insert into '+name_table+' (Name) values (:Name)'; // до цикла по записям
2. Читать про параметры и препарирование запроса.
3. TQuery.Create(Application) - зачем здесь подсовывать Application, если ручками же чистишь ?

---

Ega23   (2007-05-02 14:43:00) [3]

Очищать TStrings Дядя Федя будет?

---

RomanLN   (2007-05-02 14:40:00) [4]

записывает первую запись потом вылетает...

---

Наверх