Fórum Demora pra abrir arquivo #334601
12/12/2006
0
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:
Componentes:
Dbgrid, ClientDataSet, DataSetProvider, DataSource, SQLQuery.
Firebird com Delphi 7
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
Curtir tópico
+ 0
Responder
Posts
13/12/2006
Ffabiop
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)