如何提高数据插入/更新性能？

我需要提高数据加载的性能。当前的算法从表中进行完整选择：

select Field1, Field2,...,FieldN from Table1 order by FieldM

新数据是从文本文件中读取的（例如，每个数据表行的文本文件行）。 该表有一个主键，包含两个字段。对于文本文件的每一行，它通过这两个字段（即主键）找到必要的行。

query.Locate('Field1;Field2',VarArrayOf([Value1,Value2]),[]);

If Locate回报True，它会编辑该行，否则会附加一个新行。

因此，只要该表包含大约 200000 行，每行Locate操作需要一定的时间...所以它设法每秒更新大约 5-6 行。

我应该考虑哪些方面来改进它？

可能会用单独的查询来替换通过这个伟大的选择进行的定位？

不要使用 Locate()。如果您使用locate()，那么Delphi会在客户端搜索行，仅扫描查询中的行集会花费很多时间。

如果您有权访问 MSSQL 来创建存储过程，则创建以下过程，然后在没有任何条件的情况下对 TEXT 文件中的每一行运行它（在 Delphi 中使用 TAdoStoredProc.ExecProc）。因此，在这种情况下，您不需要首先选择和定位过程。如果找到 Filed1 和 Field2，则更新记录；如果没有找到，则插入记录。

CREATE PROCEDURE dbo.update_table1 
@Field1 int, --key1
@Field2 int, --key2
@Field3 int, -- data fileds
@Field4 int

AS

SET NOCOUNT ON
update table1 set Field3=@Field3,Field4=@Field4 
        where Field1=@Field1 and Field2=@Field2;
IF(@@Rowcount=0)
BEGIN
     insert into table1(Field1,Field2,Field3,Field4) 
                values (@Field1,@Field2,@Field3,@Field4);
END
GO

下面是使用 ADO 调用此存储过程的 Delphi 代码：

......
var 
     ADOStoredP: TADOStoredProc;

  ......
begin

........
    ADOStoredP:=TADOStoredProc.Create(nil);
   try
      ADOStoredP.Connection:=DataMod.SQL_ADOConnection; //Your ADO Connection instance here
      ADOStoredP.ProcedureName:='Update_table1';
      ADOStoredP.Parameters.CreateParameter('@Field1', ftInteger, pdInput, 0, 0);
      ADOStoredP.Parameters.CreateParameter('@Field2', ftInteger, pdInput, 0, 0);
      ADOStoredP.Parameters.CreateParameter('@Field3', ftInteger, pdInput, 0, 0);
      ADOStoredP.Parameters.CreateParameter('@Field4', ftInteger, pdInput, 0, 0);

      While () -- Your text file loop here
      begin

      ADOStoredP.Parameters.ParamByName('@Field1').Value:=Field1 value from text file here;
      ADOStoredP.Parameters.ParamByName('@Field2').Value:=Field2 value from text file here;
      ADOStoredP.Parameters.ParamByName('@Field3').Value:=Field3 value from text file here;
      ADOStoredP.Parameters.ParamByName('@Field4').Value:=Field4 value from text file here;

      ADOStoredP.ExecProc;

      end

    finally
      if Assigned(ADOStoredP) then
        begin
         ADOStoredP.Free;
        end;
    end;

........
end;