Question

Delphi7 + sqlite3 怎么提高效率？

Delphi7 + sqlite3

我使用aslite3控件连接的，现在在向数据库中插入数据时速度很慢，怎么能提高呢?
For Loop:= 0 To Count - 1 Do //这个循环大概100次，此循环大概就需要7,8秒
Begin
ASQLite3InlineSQL1.Append ('INSERT INTO table1 (F1,F2,F3,F4,F5) VALUES (' + '''' + V1.Strings [Loop] + '''' + ',' + '''' + V2 + '''' + ',' + '''' + V3 + '''' + ',' + '''' + V4 + ''''+ ',' + IntToStr(V5) + ');');
End;

ASQLite3InlineSQL1.SQL:= loc_obj_SQLs;
ASQLite3DB1.ExecuteInlineSQL:= True;
ASQLite3DB1.ExecStartTransaction(''); //网上找的代码说是事务处理，不知道正确不正确
ASQLite3DB1.SQLite3_ExecSQL(loc_obj_SQLs.Text);
ASQLite3DB1.Commit

Answer 1

Sqlite 插入羡樱册兄宏之前，先开启事务， 最后 Commit 这样速度是没有加是颂行的 N倍以上。。
代码大概如下...不知道你用的哪个版本...请修改为相应的:
Connection1.BeginTrans;
for i := 0 to 100 do
begin
//Insert into table...往数据表插入数据
end;
Connection1.EndTrans;

追问

版本不太清楚，但是没有BeginTrans这个方法，我用的ExecStartTransaction方法也是事物处理吧?

追答

你最好把源代码相关部分完整的帖一下.你上面帖的代码看出来是启用了事务的...但为什么效率还低,可能在其他代码上.

追问

经过试验了，插入一个表的记录（只运行上面一段代码）的时候，速度挺快。我使用同一个事件还插入另一个表记录，也就是说启用了两次事务也提交了两次事务，这个时候就很慢，请问又什么解决的办法吗?

追答

你可以把两个事务合二为一

Answer 2

最后commit一次就行

追问

commit没在循环中