Demora pra abrir arquivo

Delphi

12/12/2006

Oia eu denovo.

Meu problema/dúvida é a seguinte:

Quando abra uma Arquivo a primeira vez o retorno e imediato, rapidinho. Mas se peço pra abrir outra vez é demorado pra caramba.

Tô usando assim:

procedure TFormCidades.Filtrar(Sender: TObject);
var Sql, Estado : STring;
begin
   Estado := ´¬´;   
   if (cbEstado.ItemIndex >=0) Then
       Estado := cbEstado.Text;

   cdsCidade.Close;
   QueryCidade.SQL.Clear;
    Sql :=
       ´select CidCep as Cep, cidnome as Cidade, CidMuni as Municipio, CidUF as UF, ´ +
       ´CidFeriado as Feriado ´+
       ´From cidades ´ +
       ´Where CidUF Like ´+ QuotedStr(estado)+
       ´ Order by CidNome ´;

   QueryCidade.SQL.Text := SQl;
   cdsCidade.Open;

end;


Componentes:
Dbgrid, ClientDataSet, DataSetProvider, DataSource, SQLQuery.
Firebird com Delphi 7


Digitom

Digitom

Curtidas 0

Respostas

Ffabiop

Ffabiop

12/12/2006

se a intenção é selecionar todas as cidades ou as de um estado determinado pode ser diferente um pouco:

procedure TFormCidades.Filtrar(Sender: TObject);
var Sql, Estado : STring;
begin
Estado := ´´;
if (cbEstado.ItemIndex >=0) Then
begin
Estado := cbEstado.Text;
Sql :=
´select CidCep as Cep, cidnome as Cidade, CidMuni as Municipio,
CidUF as UF, CidFeriado as Feriado ´+
´From cidades ´ +
´Where CidUF = ´+ QuotedStr(estado)+
´ Order by CidNome ´;
end
else
Sql :=
´select CidCep as Cep, cidnome as Cidade, CidMuni as Municipio,
CidUF as UF, CidFeriado as Feriado ´+
´From cidades ´ +
´ Order by CidNome ´;

cdsCidade.Close;
QueryCidade.SQL.Clear;
QueryCidade.SQL.Text := SQl;
cdsCidade.Open;

end;

As Comparações usando ¬ geram muito custo de BD


GOSTEI 0
POSTAR