Delphi查询返回的recordcount=-1的解决办法|Delphi技巧 TTTBLOG

2009-06-1031710

Delphi查询返回的recordcount=-1的解决办法
---
20090521 153400
---
有时，查询返回的recordcount=-1，总是-1，即使有记录也是这样，导致程序无法根据recordcount结果做出正确的反应。
原因不明，解决方法是：先定位到查询的开始，然后定位到最后，再判断recordcount。
如下：
    With dm.QR_ENNSHD_020 do begin
        close;
        ParamByName(^NO_STD_NO^).AsString:=edtNo_Std_No.Text;
        paramByName(^VER_NO^).AsString:=edtVer_No.Text;
        open;
        first;
        last;
        if recordcount<=0 then begin
            x_pMsg:=^Data no found！^;
            MessageDlg(x_pMsg,mtInformation,[mbOk],0);
            exit;
        end;