在Delphi中通过TADOCommand插入数据

Question

我有一个包含四个字段的表，其中一个字段是主键。 当我运行以下命令时：

var
  iAffectedRows: integer;
begin
  ADOCommand1.CommandText := 'insert into table_1(Field_1, Field_2, Field_3)   values(:A_Field_1, :A_Field_2, :A_Field_3)';      

  ADOCommand1.Parameters.FindParam('A_Field_1').Value := '100';
  ADOCommand1.Parameters.FindParam('A_Field_2').Value := '200';
  ADOCommand1.Parameters.FindParam('A_Field_3').Value := '300';

  ADOCommand1.Execute(iAffectedRows);
end;

结果是：

Field_1 值为0.

（此结果是由于运行命令：ADOCommand1.Execute(iAffectedRows)）

但是使用此命令，一切都是正确的：ADOCommand1.Execute()

这个问题有解决方法吗？

Answer 1

看来你已经有了解决方案 - 调用Execute()的无争论版本。

function Execute: _Recordset;

您正在调用Execute()的单参数版本，该版本不会输出受影响的行数：

function Execute(const Parameters: OleVariant): _Recordset;

通过将iAffectedRows传递给此版本，您将使用最初包含的任何值iAffectedRows替换第一个参数值，该值恰好为0.

如果要接收受影响的行数，则需要使用Execute()的双参数版本：

function Execute(var RecordsAffected: Integer; const Parameters: OleVariant): _Recordset;

例如：

var
  iAffectedRows: integer;
begin
  ADOCommand1.CommandText := 'insert into table_1(Field_1, Field_2, Field_3) values(:A_Field_1, :A_Field_2, :A_Field_3)';

  ADOCommand1.Parameters.FindParam('A_Field_1').Value := '100';
  ADOCommand1.Parameters.FindParam('A_Field_2').Value := '200';
  ADOCommand1.Parameters.FindParam('A_Field_3').Value := '300';

  ADOCommand1.Execute(iAffectedRows, EmptyParam);
end;

或者：

var
  iAffectedRows: integer;
begin
  ADOCommand1.CommandText := 'insert into table_1(Field_1, Field_2, Field_3) values(:A_Field_1, :A_Field_2, :A_Field_3)';    
  ADOCommand1.Execute(iAffectedRows, VarArrayOf('100', '200', '300'));
end;