插入50條記錄，竟然用了5秒鐘，到底是哪裡出現問題了呢？


procedure TForm1.Button1Click(Sender:TObject);
var
i:integer;
begin
label2.Caption := '';
label2.Refresh;
try
zq1.Close;
zq1.SQL.Clear;
ZConnection1.Connected:=false;
ZConnection1.Database:=ExtractFilePath(Application.ExeName) 'test.s3db';
ZConnection1.Connect;
ZConnection1.StartTransaction;
zq1.SQL.Text := 'insert into adm (f_user) values(:users)';
for i := 1 to 50 do
begin
label2.Caption := inttostr(i);
label2.Refresh;
zq1.Params.ParamByName('users').AsString := inttostr(i);
zq1.ExecSQL;

end;
ZConnection1.Commit;
label2.Caption := 'OK';
except
ZConnection1.Rollback;
showmessage('error');
end;
end;

附加檔案：487dc4a45cca6_testsqlite.rar

編輯記錄

487dc4a45cca6_testsqlite.rar是檔案文件

已經解決，原來是開啟事物的方法不對。應該是用zquery來開啟事物。