What is the ADO Table equivalent of Delphi/Paradox TTable.SetRange

44 Views Asked by At

I am converting a large Delphi 2007 program from Paradox to SQL Server but the Ttable.Setrange function is not available in ADO. I've tried the ADO Filter property but I can't get the results I want.

This is the code I want to change to use an ADO Filter

    SopHeads.SetRange([OrderNumber,0],[OrderNumber,0]);
    SopLines.SetRange([OrderNumber,0],[OrderNumber,999]);

I tried this...

     Globals.WkStrg := 'OrderNo = ' + IntToStr(OrderNumber) + ' And LineNo = 0';
     dm.SopHeads.Filter   := Globals.WkStrg;
     dm.SopHeads.Filtered := true;

     Globals.WkStrg := 'OrderNo = ' + IntToStr(OrderNumber) + ' AND LineNo BETWEEN 0 AND 999';
     dm.SopLines.Filter   := Globals.WkStrg;
     dm.SopLines.Filtered := true;

but it didn't work as expected.

0

There are 0 best solutions below