about "ZQuery.Open"

[allegro]

Code: Select all

  ZQuery2.SQL.Clear;
  ZQuery2.SQL.Add('select name from ip where ipstart< :pIP and ipend> :pIP ;');

repeat
...
    ZQuery2.Params[0].AsInteger:=iIP;
    ZQuery2.OPen;
    aRegion := VarToStr(ZQuery2['name']);  // only one record
...
until ...

only return the result for first time, why?

[allegro]

but this is ok.

Code: Select all

repeat 
... 
    TmpQuery := 'select name from ip2name where ipstart<' + nIP + ' and ipend>' + nIP + ';';
    ZQuery2.SQL.Clear;
    ZQuery2.SQL.Add(TmpQuery);
    ZQuery2.Open;
    aRegion := VarToStr(ZQuery2['name']);  // only one record 
... 
until ...

[zippo]

You're not closig the dataset in the first example. Maybe this could work:

Code: Select all

  ZQuery2.SQL.Clear;
  ZQuery2.SQL.Add('select name from ip where ipstart< :pIP and ipend> :pIP ;');

repeat
...
    ZQuery2.Close;
    ZQuery2.Params[0].AsInteger:=iIP;
    ZQuery2.Open;
    aRegion := VarToStr(ZQuery2['name']);  // only one record
...
until ... 

[zippo]

So... it's working?