Delphi 7 -SQL Statement

[JimReiley]

In D7, the following pervasive sql statement returns the result multiple times. Why? Thanks.
JimR

procedure ShowContracts;
var
L : string;
begin
L := form1.tbCLient.FieldByName('ClientNumber').asString;
form1.PvSQLSession1.ServerName := 'Btrieve';
form1.PvQuery1.DatabaseName := 'LPV8OE';
form1.PvQuery1.SQL.Add ('select clientnumber, pubNumber, classcode, contractnumber, zone from contracts');
form1.PvQuery1.SQL.Add (' where clientnumber = ' + quotedstr(L));
form1.PvQuery1.SQL.Add ('order by clientnumber,pubnumber,contractnumber');
form1.PvQuery1.Active := true;
end;

 

[mirtheil]

What do you mean "returns the result multiple times"?
Does the query work correctly in the PCC?

Mirtheil
Certified Pervasive Developer
Certified Pervasive Technician

http://www.mirtheil.com

 

[JimReiley]

The query is set to display the result in a grid. The grid is attached to a data source. The data source is the query. The query works correctly in the pcc. Also the query doesn't display anything on a 2nd iteration.

 

[mirtheil]

Try adding the following line before setting the ServerName:
form1.PvQuery1.SQL.Clear;
Does that have an effect?

Mirtheil
Certified Pervasive Developer
Certified Pervasive Technician

http://www.mirtheil.com

 

[JimReiley]

Yes, that took care of the problem with the 2nd and later iteratios. Still I'm getting the results back more than once and the last set of data I see in the grid is the correct answer.