в чём ошибка

← →
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]

спасиб

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