Lazarus 0.9.30.4 + SQLQuery запрос в несколько строк.

[wofs]

Доброго дня.
Собственно имеем Lazarus 0.9.30.4 и компонент SQLQuery. База sqlite, подключаемся через стандартные компоненты.
Этот код отказывается добавлять 11 строк в таблицу - добавляет только первую.

Код: Выделить всё

var
  i: integer; 
......

 T1.Active := True;
    with QRun do
    begin
      Close;
      sql.Clear;

      for i := 0 to 10 do
      begin
        SQL.Add('INSERT INTO TableName (Field1,Field2) VALUES (1,' + IntToStr(i) + ');');
      end;

      ExecSQL;
    end;
    T1.Commit;         

Притом, этот отрабатывает все нормально.

Код: Выделить всё

  i: integer; 
......

with QRun do
    begin

      for i := 0 to 10 do
      begin
        T1.Active := True;
        Close;
        sql.Clear;
        SQL.Add('INSERT INTO TableName (Field1,Field2) VALUES (1,' + IntToStr(i) + ');');
        ExecSQL;
        T1.Commit;
      end;

    end;          

Но работает само собой жутко медленно... Ибо дергать коммит каждую строчку...
Собственно вопрос - как выполнить запрос в несколько строк?

p.s приведенные листинги несколько утрированы с целью показать суть.

[Padre_Mortius]

Код: Выделить всё

var
  i: integer;
......

T1.Active := True;
    with QRun do
    begin
      Close;
      sql.Clear;
      sql.Add('BEGIN TRANSACTION;')

      for i := 0 to 10 do
      begin
        SQL.Add('INSERT INTO TableName (Field1,Field2) VALUES (1,' + IntToStr(i) + ');');
      end;
      sql.Add('COMMIT TRANSACTION;')
      ExecSQL;
    end;
    T1.Commit;         

где-то так

[wofs]

...где-то так...

TSQLQuery вообще на все попытки сделать COMMIT в самом запросе ругается:

Код: Выделить всё

Cannot start a transaction within in transaction.

и это не смотря на

Код: Выделить всё

BEGIN TRANSACTION;

в начале запроса...

Удалось добиться вменяемого управления транзакцией только с использованием TSQLTransaction (в моем примере T1).
А вот с запросом в несколько строк засада...

[Ism]

Кто будет компоненты смотреть ?
TSQLScript

[wofs]

Кто будет компоненты смотреть ?
TSQLScript

Смотрел - он не позволяет загружать тексты запросов из файла и потока...
Согласитесь, несколько странно - TSQLQuery имеет возможность загружать тексты запросов из потока,что подразумевает работу с большими объемами, но не может выполнять более одной строчки...

[iskander]

Смотрел - он не позволяет загружать тексты запросов из файла и потока...

Код: Выделить всё

SQLScript1.Script.LoadFromFile(ScriptFileName);

[wofs]

Код: Выделить всё

SQLScript1.Script.LoadFromFile(ScriptFileName);

Да,да - уже нашел Не досмотрел.
Всем спасибо!
Тему можно закрывать