Consulta SQL [Iniciante]

Delphi

22/05/2006

Ola Pessoal!!
Preciso de ajuda numa consulta..
Tenho um cadastro de clientes e preciso fazer uma consulta, que mostre o resultado num grid e qdo selecionado jogue os dados para tela de cadastro.
Banco:Firebird
Componentes: SQLConection, TSQLQuery,Datasource,ClientDataset,DatasetProvider.

Estou tentando utilizar o seguinte ´procedimento, mas nao estou obtendo o resultado dejado. Agradeço a atenção dos colegas!!

procedure TFormpesq.BitBtn2Click(Sender: TObject);

begin
with formpesq.sq do
begin
SQ.Close;
SQ.SQL.Clear;
SQ.SQL.Add(´select codigo,nome from tcliente´);
SQ.SQL.Add(´where tcliente like :tcliente´);
SQ.SQL.Add(´order by tcliente´);
ParamByName(´tcliente´).AsString:= ´¬´+edit1.text+ ´¬´ ;
sq.Open;
end;
end;

end.


Adrhohmann

Adrhohmann

Curtidas 0

Respostas

Sremulador

Sremulador

22/05/2006

SQ.SQL.Add(´select codigo,nome from tcliente´); 
SQ.SQL.Add(´where tcliente like ¬:tcliente¬´); 
SQ.SQL.Add(´order by tcliente´); 
ParamByName(´tcliente´).AsString:= edit1.text ; 
sq.Open;



GOSTEI 0
Paullsoftware

Paullsoftware

22/05/2006

Mude a propriedade poAllowCommandText para True assim ele vai aceitar comandos SQL vindos do CDS através da propriedade CommandText

With CDS do
begin
  Close;
  CommandTex := ´select codigo,nome from tcliente´+ 
                            ´where tcliente like :tcliente´+ 
                            ´order by tcliente´; 
  Params.ParamByName(´tcliente´).AsString:= edit1.text ; 
  Open;
end;

assim acho que vai funcionar numa boa :wink:
espero ter ajudado


GOSTEI 0
Adrhohmann

Adrhohmann

22/05/2006

Ok Amigos obrigado pelas digas irei fazer alguns teste e posto o resultado!!!!

Abraços


GOSTEI 0
POSTAR