ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Busca KeyValue DBLookupCombobox

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Sex Jul 21, 2017 4:36 pm    Assunto: Busca KeyValue DBLookupCombobox Responder com Citação

Galera, usava isso anos atras e agora me deu branco.

Tenho um Edit e um DBLookupCombobox

Gostaria de digitar um codigo no Edit e automaticamente buscar o keyvalue no DBLookupCombobox e ao selecionar no DBLookupCombobox, mostrar o keyvalue no edit.

Tentei isso no exit do edit, mas não rolou

Código:
  LookupProcedimento.KeyValue:= StrToInt(edID.Text);


Já setei as configurações do DBLookupCombobox para mostrar o nome no listfield e o ID no keyField.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG

MensagemEnviada: Sex Jul 21, 2017 5:05 pm    Assunto: Responder com Citação

Seu código está correto. Lembrando que o Dataset ligado ao componente deve estar aberto.

OnExit do Edit:

Código:
LookupProcedimento.KeyValue:= StrToInt(edID.Text);


OnExit do DBLookupCombobox:

Código:
edID.Text := LookupProcedimento.KeyValue;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin


Editado pela última vez por natanbh1 em Sex Jul 21, 2017 5:35 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Sex Jul 21, 2017 5:17 pm    Assunto: Responder com Citação

Acho que descobri, mas não sei porque ocorre.

Na tabela tenho esses campos

Código:
CODIGO INTEGER AUTOINCREMENTO
ID_PROCEDIMENTO Integer
PROCEDIMENTO varchar (30)


No DBLookup

ListSource : dsprocedimento
ListField : procedimento
KeyField id_procedimento

Da forma acima não consigo navegar pelo dblookup, por isso a busca pelo edit não funciona.

Se eu alterar o keyfield apontando ele para o codigo, aí consigo navegar normalmente, porem não consigo obter o ID
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Sex Jul 28, 2017 4:46 pm    Assunto: Responder com Citação

Será que a busca só é efetiva quando o keyvalue for o valor primary key?

Explicando melhor...

Preciso que ao digitar o codigo (id_procedimento) no edit, seja mostrado o nome do procedimento no dblookup
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB