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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Inclusão automatica em tabela
Jorge Wilson
SÃO PAULO
SP - BRASIL
Postada em 01/10/2004 21:22 hs            
Pessoal,
 sou iniciante no uso do VB e estou montando um sistema onde tenho uma situação tipo Cabeçalho de Pedido e Itens, a minha pergunta é .... eu faço a inclusão do cabeçalho  do pedido ( sendo que o numero é autonumeração) e como faço para que o numero do pedido também seja incluido no item ??
estou utilizando o VB6 e banco de dados Access no windows 2000.
 
          Valeu PessoalEmoções
                
     
Fuintersoft1
SAO PAULO
SP - BRASIL
Postada em 07/10/2004 09:29 hs            
temos dois tratamentos a se fazer.
 
1- banco de dados - a tabela pedido contem o cabeçalho serto e temos que ter a tabela item com os campos dos itens numero do item, nome, quantidade e valor, sendo que tem que ter também o numero do pedido (1 cabeãlho pedido para varios itens)
2- no vb - ao gera um cabeçalho do pedido quarde o numero em uma variavel public
e quando for incerir os itens inclua o numero do pedido no item.
     
Jorge Wilson
SÃO PAULO
SP - BRASIL
Postada em 07/10/2004 18:14 hs            
ok, Blz entendi.. porém aí vem outra pergunta.... como faço pra pega o numero  do pedido , se ele é autonumeração ?? não é verdade que ele só fica disponivel após a gravação do banco ???Emoções
     
Gutenberg Ageu
não registrado
Postada em 07/10/2004 19:47 hs   
Utilizo assim:
 
Private Gravar()
Dim rsProvisorio As Recordset
strAutoNumeracao = ""
...    'Após Gravar na Tabela 
Set rsProvisorio = New Recordset
rsProvisorio.Open "SELECT @@Identity FROM NomeDaTabela", Cnn, adOpenStatic, adLockReadOnly
strAutoNumeracao = rsProvisorio(0).Value
rsProvisorio.Close
Set rsProvisorio = Nothing
End Sub
 
Obs.: Não esquecer de fazer tratamento de erro
     
Jorge Wilson
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 07/10/2004 20:02 hs            
Valeu Pessoal!!!!!!Emoções
   
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