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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  incluir (gravar) dados em 2 tabelas diferentes
Rogerio
não registrado
ENUNCIADA !
Postada em 26/05/2011 09:45 hs   
Como incluir dados em campos de 2 tabelas diferentes?
 
possuo vb6 e uso dao 3.6. e access 2000. Possuo uma tabela tabnomes com campos codnome, nome. uma tabela de servicos Tabservicos com campos codservico, descricao e o codnome relacionado com a tabnomes, pois uma pessoa poderá ter vários serviços num mês.
 
Tabnomes                                            Tabservicos

 

Codnome   nome   endereço              codservico          descricao         Codnome

 

1                 joao     rua a                     10                        servico x         1

2                paulo      rua b                    20                        servico y         2

3                carla       rua c                    30                       servico s          3

                                                           40                        servico l          2

                                                            50                       servico x         2

Para editar (atualizar) fiz assim no clic do botão

 

Set rsnomes= bdnomes.OpenRecordset("SELECT Tabnomes.codnome, Tabnomes.nome,Tabpacientes.end, ,Tabservicos.codservico, Tabservicos.coddescricao FROM Tab Tabnomes inner join Tabservicos on Tab Tabnomes.codnome = Tabservicos.codnome")

 

rsnomes.AddNew

 

‘e atualizei aqui os campos

 

Como faria para gravar (incluir) nas duas tabelas o nome e endereço numa tabela e a descrição e o codnome (campo relacionado) ao mesmo tempo? isto seria para cadastrar a pessoa com serviços em cada mês no banco, a edição e mostragem já consegui fazer,

Agradeço quem puder me fornecer uma dica, obrigado !!

   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 26/05/2011 13:46 hs            
faz o sql que pesquisa:
na tabela : tabnomes se o cliente existe faz update no registro, caso contrario insert into


na tabela: tabservicos um insert into com o codigo serviço e codnome

gravação:


insert into tabnomes (codnome, nome, endereco)values("& textcodigo.text &",'"& textnome.txt &"', '"& textendereco.txt &"')
ou
update tabnomes set nome= '"& textnome.txt &"', endereco=  '"& textendereco.txt &"'where codnome= "& textcodigo.text &"

insert into tabservico codservico, codnome)values("& textcodservico.text &",'"& textcodigo.text &"')
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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