Fórum Consulta SQL [Iniciante] #321859
22/05/2006
0
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.
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
Curtir tópico
+ 0
Responder
Posts
22/05/2006
Sremulador
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;
Responder
Gostei + 0
22/05/2006
Paullsoftware
Mude a propriedade poAllowCommandText para True assim ele vai aceitar comandos SQL vindos do CDS através da propriedade CommandText
assim acho que vai funcionar numa boa :wink:
espero ter ajudado
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
Responder
Gostei + 0
23/05/2006
Adrhohmann
Ok Amigos obrigado pelas digas irei fazer alguns teste e posto o resultado!!!!
Abraços
Abraços
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)