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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Carregar dados no formulário.
Luciano_vb
CÁCERES
MT - BRASIL
ENUNCIADA !
Postada em 06/05/2009 22:51 hs            
Boa noite.
Pessoal estou carregando um formulário com alguns dados de uma determinada tabela do MySQL, onde tem o código da cidade, mas qdo carrego necessito que traga o nome da cidade, que está na tabela cidade. como faço? abaixo está o código onde carrego o formulário com os dados.:
On Error Resume Next
CadPacientes.pac_codigo = Adodc1.Recordset!pac_codigo
CadPacientes.pac_nome = Adodc1.Recordset!pac_nome
CadPacientes.pac_nascimento = Adodc1.Recordset!pac_nascimento
CadPacientes.pac_mae = Adodc1.Recordset!pac_mae
CadPacientes.pac_prontuario = Adodc1.Recordset!pac_prontuario
CadPacientes.pac_data = Adodc1.Recordset!pac_data
CadPacientes.cid_codigo = Adodc1.Recordset!cidades_cid_codigo
Desde já agradeço.
 
Luciano.
   
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 07/05/2009 08:29 hs            
Na instrução Sql vc precisa fazer um join na tabela cidade!
Ex:
Select P.*,C.NomeCidade from Pacientes P inner join Cidades C on C.Cid_Codigo=P.Cid_Codigo where P.Pac_Codigo=" & txtCod_Paciente.text
No Recordset virá os dados do Paciente e o nome da cidade juntos.
Depois é só acrescentar a carga do campo no formulário.
   
Luciano_vb
CÁCERES
MT - BRASIL
ENUNCIADA !
Postada em 07/05/2009 23:24 hs            
Obrigado pela dica J. Carlos, vou tentar fazer..
Nossa como é difícil migrar né... nos acostumamos com algo depois para fazer diferente ficamos perdidos.
 
mas de qualquer forma agradeço desde já.
 
Luciano.
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 08/05/2009 11:46 hs            
bem, pelo que vejo ai nao é questao de migrar e sim questao da linguagem sql . se vc conhece pelo menos o basico da linguagem teria feito o join sem problemas, vc esta migrando de que para que ?
   
Página(s): 1/1    

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