USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Correspondência entre dois campos do tipo "Text"
Bruno
não registrado
Postada em 26/07/2007 22:34 hs   
Oi galera!
Tenho mais uma dúvida:
Como faço para obter uma correspondência de dados entre dois campos do tipo "Text" ?  
Por exemplo: eu preencho o campo Código, o programa faz a leitura no banco "access" e preenche automaticamente o campo Nome, fornecendo o dado correspondente. 
Obrigado a todos! Já agradeço pelas dúvidas que foram respondidas.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 27/07/2007 09:16 hs            
No evento click do botão de procura vc coloca algo assim:
 
'sendo o campo código tipo numérico, se fosse tipo texto seria entre apóstrofos
'CONEXAO é um objeto tipo ADODB.Connection
 
Rs.Open "SELECT NOME, ENDERECO FROM TABELA WHERE CODIGO = " & TXTCODIGO, CONEXAO 
 
TXTNOME = ""
TXTENDERECO = ""
 
IF NOT RS.EOF Then
  TXTNOME = RS(0) 'Ou RS("Nome")
  TXTENDERECO = RS(1) 'Ou RS("ENDERECO")
ENDIF
 
RS.CLOSE
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
Postada em 28/07/2007 09:05 hs            
A dica do Ghost, também pode ser feita no evento LostFocus, do txtCODIGO.
 
vlu//
     
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 30/07/2007 16:36 hs            
Ou mesmo no evento keypress do text
Quando o usuário digitar enter, manda ele executar o comando, para isso basta colocar

if keyascii=13 then
  os comandos
.
.
.
endif

Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
TÓPICO EDITADO
 
Bruno
não registrado
Postada em 30/07/2007 16:45 hs   
Galera,
 
Ainda estou 1/2 perdido, teria como vcs colocarem o código completo!Sou bem amador ainda!!!!OBRIGADO A TODOSSSSS
 
Abraço.
     
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 31/07/2007 08:21 hs            
Bruno qual a linguagem que você programa ?
DAO, ADO ?
Usa o sql ?
O que estou colocando aqui, para ficar um pouco mais fácil, é como utilizar o data com o sql. O jeito entre o ADO e DAO é quase o mesmo, com o exemplo abaixo da para você ter uma noção e depois aprimorar, ok
 
'se o usuário digitou enter
if keyascii=13 then
   if txtcodigo.text <> "" then 'confirma que tem algo digitado
            'abre o seu banco de dados
            Data1.DatabaseName = App.Path & "ome do seu banco.mdb"
            'faz a seleção do código que você digitou
            Data1.RecordSource = "select codigo,nome from suatabela where codigo=" & txtcodigo.text
            Data1.Refresh
            'se ele não achou o seu nº da uma mensagem
            if data1.recorcount=0 then
                 msgbox "Nº não cadastrado
            else
            'caso tenha achado, preenche o campo com o nome
                 txtnome.text=data1.recordset!nome
            endif
    else
          msgbox "Digite um nº",vbexclamation
    endif
endif
 
Seria algo parecido com isso

Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página