Aonde estou errando ?

Question

estou tentando fazer que qdo o usuario selecionar um cliente no DBLookupComboBox  ..buscar os dados do mesmo .. tipo  o nome no DBLookupComboBox est� assim .. Gustavo qdo eu selecionar o mesmo ai vai ...

Theofernandes · Answer

tenta assim:procedure TForm_Cad_NotaFiscal.DBLookupComboBox1Exit(Sender: TObject); begin    With Dm Do   Begin       Dm.IBQClientes.SQL.Clear;       Dm.IBQClientes.SQL.Add(�Select * From Clientes where nome=���+       dblookupcombobox1.text +����);      Dm.IBQClientes.Open;    end; end; muda o KeyFields para o campo codigo....

Adilsond · Answer

Veja bem, voce esta utilizando o IBCliente como dataset para montar o DBLookup. Qdo voce fecha sua query ele perde o valor.

procedure TForm_Cad_NotaFiscal.DBLookupComboBox1Exit(Sender: TObject);
begin
Edit_Razao.Text:=Dm.IBQClientesNome.AsString;
end;

Ou seja, ele j� esta posicionado na linha desejada.

C-t · Answer

Obrigado pela aten��o .
Testei as duas Dicas mas ainda n�o deu certo .. o que ser� que est� dando errado .
j� verifiquei se as querys est�o ativas ..verifiquei os datasources .. verefiquei tudo pra falar a verdade ..
algu�m tem mais uma dica
j� troquei de chave para ver se era isso mas tbm .nada
Obrigado pela aten��o

C-t · Answer

Ent�o testei a rotina que eu coloquei no t�pico acima ..no edit e deu certo .acho que o problema est� com o componente...

Adisson · Answer

procedure TForm_Cad_NotaFiscal.DBLookupComboBox1Exit(Sender: TObject);
begin

With Dm Do // dm significa data module
Begin
//primeiro que vc ver no DBLookupComboBox1 vem da IBQClientes
Dm.IBQClientes.Close; //aqui vc fechar e todos os dados ser�o apagados
Dm.IBQClientes.SQL.Clear;
Dm.IBQClientes.SQL.Add(�Select * From Clientes�); // clientes � o nome da tabela que est� o nome do clientes
Dm.IBQClientes.SQL.Add(�Where Nome=:Nome�);
Dm.IBQClientes.ParamByName(�Nome�).AsString:=DBLookupComboBox1.Text; // o valor repassado aqui e nulo
Dm.IBQClientes.Prepare;
Dm.IBQClientes.Open; //como o valor repassado � nulo nada � retornado.
Edit_Razao.Text:=Dm.IBQClientesNome.AsString;
end;
end;
N�o estou entendendo muito bem a finalidade desse c�digo, mas penso que vc poderia resumir colocando apenas uma unica linha de c�dico
Edit_Razao.Text:=Dm.IBQClientesNome.AsString;

Espero ter ajudado

Um abra�o

C-t · Answer

ent�o cara .estou tentando fazer o seguinte .. qdo o usuario selecionar um registro no DBLookupComboBox ..trazer os dados do mesmo ..
ex :
l� no DBLookupComboBox1 vai ta uma lista com os nomes dos clientes
qdo eu escolher um .. tipo eu escolhi .. um cliente chamado carlos blz
ai qdo o usuario da um tab ..vai ocorrer aquela rotina ..trazendo os dados .do carlos ..isso no evento o exit do componente
obrigado pela aten��o

Adisson · Answer

neste caso voce n�o presisa realizar novamente uma pesquisa SQl. pois ao escolher o clientes e armazenado um indice. ent�o basta atribuir os valores do campo nome para  o edit....