[4kusNick]

Здравствуйте!

Вопрос такой:
Можно ли как-то увеличить скорость выполнения запросов в SQLite?
Сейчас у меня делается так:
1. Создается длинная строка запрососв (около 50000).
2. Строка пихается в SQLite

Пробовал пихать в SQLite не всю строку, а позапросно, но скорость такая же. Причем, процессор вообще не загружается, работает только HDD, и размер БД растет очень медленно по мере наполнения ее при помощи запросов INSERT (в строке только такие запросы).

[Aristarh Dark]

Показал бы часть запросов. А то немного не ясно.

[4kusNick]

Для работы с SQLite юзаю такой компонент: SQLite4Delphi

Вот пример тормозящих запросов:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

function ExecDataSetSQL(DataSet: TSLDataSet; sSQL: String): Integer; begin     Result := 0;   with DataSet do   begin     Close;     SQL.Text := sSQL;     Open   end;   DataSet.First;   Result := DataSet.RecordCount;   end;     //...   // выбираем все параметры по продуктам   ExecDataSetSQL(FSLDataSet,'SELECT * FROM catalog_products_properties WHERE ' + StringReplace(sQuery,'id','product_id',[rfIgnoreCase,rfReplaceAll]));   NewDataSet.Close;   NewDataSet.SQL.Clear;   while not FSLDataSet.Eof do   begin     NewDataSet.SQL.Text := SQL.Text + 'INSERT INTO catalog_products_properties VALUES (' + QuotedStr(FSLDataSet.FieldByName('id').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('product_id').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('type').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('data_id').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('value').AsString) + ');';   FSLDataSet.Next;    end;   NewDataSet.Open // вот тут начинается построение БД по строке в свойстве SQL новой БД   //...

Вот... Это часть процедуры экспорта данных из БД,
FSLDataSet - это основная БД со всеми данными,
NewDataSet - это новая БД с выбраннывми из основной БД данными

Вот вышеприведенный кусок кода работает очень медленно, причем не процессор работает, а именно HDD и размер новой БД растет примерно так: 1 КБ\СЕК...
А размер в итоге получается 1.3 МБ, представьте, сколько времени идет этот экспорт =)
Вот, пробовал NewDataSet.Open делать каждый раз при каждой итерации цикла, то же самое =(
Спасибо =)

[Aristarh Dark]

Как я понял ты добавляешь "много чего" в одну таблицу основываясь на данных из другой таблицы. Это дело нужно оптимизировать. Есть (ну по крайней мере мне известно) 2 варианта как это сделать.
1.

Код:

1 2 3 4

INSERT INTO Table2 (Field1, Field2, Field3) SELECT FieldA as Field1, FieldB as Field2, FieldC as Field3 FROM Table1 WHERE Field1 = 'Some'

2.

Код:

1 2 3 4 5 6 7 8

INSERT INTO Table2 (Field1, Field2, Field3) SELECT ('Text1' as Field1,'Text2' as Field2, 'Text3' as Field3) UNION SELECT ('Text4','Text5', 'Text6') UNION SELECT ('Text7','Text8', 'Text9') ...

таким образом у тебя будет выполнятся один INSERT, а не несколько тысяч.