delphi - 在 Delphi 中使用 ADOquery 执行更新查询的返回代码到 PostgreSQL

Question

我将 Adoquery 与 Postgres 数据库一起使用。当我执行 UPDATE 或 INSERT 查询时，ExecSql 或 OPEN 会返回受影响的记录数，但总是-1。我使用最新版本的 psqlODBC：09.01.0200。

代码：

Adoquery1.close;
Adoquery1.SQL.Clear;
query := 'insert into  testtabel (nummer, naam) values (3,''Barnsten'') ';
Adoquery1.SQL.Add(query ) ;
result := Adoquery1.ExecSql;

结果是-1

Answer 1

function PerformSQL(const ASQL: string): integer;
begin
  Result := -1;
  if ASQL <> '' then
  begin
    ZQuery1.SQL.Text := ASQL;
    ZQuery1.ExecSQL;
    Result := ZQuery1.RowsAffected;
  end;
end;



 ShowMessage
    (IntToStr(PerformSQL('insert into test(te_id, te_code, te_name, te_type)' +
    ' VALUES(DEFAULT, 15, ''tezty68'', 1), (DEFAULT, 16, ''teztx75'', 1), (DEFAULT, 18, ''teztx89'', 1)')
    ));

还给我 3。