Aonde estou errando nessa rotina? ( Pesquisa)

Question

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 c...

Nebrio · Answer

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

C-t · Answer

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 .....

Anonymous · Answer

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

F�rum Aonde estou errando nessa rotina? ( Pesquisa) #153845