Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];
Вниз
в чём ошибка Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.047 c
