Sqlite update很慢,网上搜可以用事务提交更新,但不知在哪插入starttransaction,commit?
with FDQuery1 do
begin
Close;
SQL.Clear;
for I := 0 to stringgrid1.RowCount - 1 do
begin
str:=StringGrid1.Cells[1,i];
SQL.Text:='select 资产号,更新时间 from 台账 where 资产号=''' + str + '''';
Open();
if RecordCount>0 then
begin
s:=stringgrid1.cells[28,i]; //更新时间
if s<>FieldByName('更新时间').AsString then //当清册更新时间有变时才更新
begin
SQL.Clear;
SQL.Add('update 台账 set 实物ID=''' + stringgrid1.cells[2,i] + '''');
for j := 3 to 32 do
SQL.Add(',' + StringGrid1.Columns[j].Header + '=''' + StringGrid1.cells[j,i] + '''');
SQL.Add(' where 资产号=''' + str + '''');
ExecSQL;
end;
end
else //不存在添加
begin
SQL.Clear;
SQL.Add('insert into 台账(资产号,实物ID,名称,规格,地址,状态,备注,成本中心,使用部门,资产管理员,资产保管员,责任人,制造商,数量,计量单位,原值,净值,资产分类,资产目录,作业成本类别,工程编号,工程名称,附属设备及附件,源资产号,老资产号,资本化日期,创建日期,更新时间,基站ID,基站名称,是否客户端资产,客户名称)');
SQL.Add(' values(:资产号,:实物ID,:名称,:规格,:地址,:状态,:备注,:成本中心,:使用部门,:资产管理员,:资产保管员,:责任人,:制造商,:数量,:计量单位,:原值,:净值,:资产分类,:资产目录,:作业成本类别,:工程编号,:工程名称,:附属设备及附件,:源资产号,:老资产号,:资本化日期,:创建日期,:更新时间,:基站ID,:基站名称,:是否客户端资产,:客户名称)');
for j := 1 to 32 do
Params[j - 1].Value:=StringGrid1.cells[j,i];
ExecSQL;
end;
Application.ProcessMessages;
ProgressBar1.Value:=ProgressBar1.Value + c;
Text3.Text:='进度:' + (i + 1).ToString;
end;
end;