Скачать: CL | DM;

в чём ошибка   Найти похожие ветки 

← →
RomanLN   (2007-05-02 14:39) [0]

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:40) [1]

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

---

← →
Ega23 ©   (2007-05-02 14:43) [2]

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

---

← →
ANB ©   (2007-05-02 14:48) [3]

> 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, если ручками же чистишь ?

---

← →
RomanLN   (2007-05-02 14:57) [4]

спасиб

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c