O DBLookUpXXX "anda" de acordo com o ponteiro do registro no banco de dados. Se
você setar para um registro tal, ele mostrará já o valor do campo, não precisa
mandar um valor pra ele não.
[]'s.
Luis Almeida escreveu:
Caros Amigos,
Estou utilizando um DBLOOKUPCOMBOBOX com duas colunas,
onde neste COMBO listo todos os CÓDIGOs e NOMEs dos órgãos
cadastrados no FORM_1 e gravo esses dados no FORM_2.
Um detalhe importante é que no meu banco de dados o campo
ID_ÓRGÃO é INTEGER, o qual, refere-se o DBLOOKUPCOMBOBOX...
Até aí estou gravando beleza. O que não estou conseguindo é trazer
o dado cadastrado neste DBLOOKUPCOMBOBOX depois de uma pesquisa.
Este é o código do meu botão pesquisar:
procedure TFrmCadastrarSetor.BtnPesquisarClick(Sender: TObject);
begin
FrmPesquisarSetor.Showmodal;
if FrmPesquisarSetor.ModalResult = mrok then
begin
with QryConsulta do
begin
Close;
Sql.Clear;
Sql.Add(SqlSelect);
Params[0].AsString := FrmPesquisarSetor.QryConsulta['ID_Setor'];
Open;
if RecordCount > 0 then
begin
Novo := False;
EdID_Set.Text := QryConsulta ['ID_Setor'];
EdN_Set.Text := QryConsulta ['N_Setor'];
EdChefe.Text := QryConsulta ['Chefe'];
EdFone.Text := QryConsulta ['Fone'];
DBLOOKUPCOMBOBOX := QRYCONSULTA [ID_ORGAO]; // AQUI O ERRO QDO
COMPILA
EdN_Setor.SetFocus;
end;
end;
end;
end;
Amigos o que devo fazer? Tenho que transformar esse
DBLOOKUPCOMBOBOX DE STRING para INTEIRO (StrToInt)?
E como faço isso?
Valeu
Luis Jr
---------------------------------
Yahoo! Search
Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já
foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
---------------------------------
Yahoo! Acesso Grátis
Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
