Aonde estou errando nessa rotina? ( Pesquisa)

Delphi

10/04/2003

Gente eu uso o IB6 e o Delphi6 .E IBQuerys

Quero Fazer o seguinte .. qdo o usuario selecionar um usuario no DBLookupComboBox apareça os respectivos dados do Cliente nos edits..
Aparecer os nomes do cliente no DBLookupComboBox..até ai ta blz ..
ai eu fiz uma rotininha no evento exit ..qdo ele da um enter ..ai buscar o dados do cliente e joga nos edits .

Ai vai ela ..
// DM significa DataModule
with dm do
begin
IBQCliente.Close;
IBQCliente.SQL.Clear;
IBQCliente.SQL.Add(´SELECT * FROM Clientes´);
IBQCliente.SQL.Add(´WHERE Razao=:Razao´);
IBQCliente.ParamByName(´Razao´).ASSTRING:=DBLookupComboBox1.Text;
IBQCliente.Prepare;
IBQCliente.Open;
Edit_Razao.Text:=Dm.IBQClienteRazao.AsString;
end;
Oque será isso .. ou estou errando em que ?
Obrigado .. já estou ficando assim :oops:


C-t

C-t

Curtidas 0

Respostas

Nebrio

Nebrio

10/04/2003

with dm do
begin
IBQCliente.Close;
IBQCliente.SQL.Clear;
IBQCliente.SQL.Add(´SELECT * FROM Clientes´);
IBQCliente.SQL.Add(´WHERE Razao=:Razao´);
IBQCliente.ParamByName(´Razao´).ASSTRING:=DBLookupComboBox1.Text;
IBQCliente.Prepare;
IBQCliente.Open;
end;
Edit_Razao.Text:=Dm.IBQClienteRazao.AsString;
// Expeirmente deixar o Edit fora do with
mas é recomendado que você Post o erro que está acontecendo.
Experimente tb dar um clique no Nome do Cliente no Combo, as vezes isso funciona


GOSTEI 0
C-t

C-t

10/04/2003

Emerson.EN Obrigado Pela ajuda mas
Cara não está dando erro .. ele não acha o cliente ...não sei oque acontece .

nebrio
Tentei mas nada .. mas obrigado pela ajuda tbm ..


GOSTEI 0
Anonymous

Anonymous

10/04/2003

with dm do
begin
      IBQCliente.Close;
      IBQCliente.SQL.Clear;
      IBQCliente.SQL.Add(´SELECT * FROM Clientes´);
      IBQCliente.SQL.Add(´WHERE Razao=:Razao´);
      IBQCliente.ParamByName(´Razao´).ASSTRING:=DBLookupComboBox1.Text+´¬´;
      IBQCliente.Prepare;
      IBQCliente.Open;
      Edit_Razao.Text:=Dm.IBQClienteRazao.AsString;
end;


GOSTEI 0
POSTAR