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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  chave primaria com valor automatico
oli
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 21/02/2005 12:08 hs            
Quando insiro um registro na minha tabela automaticamente gero um codigo de cliente e esse numero vai sendo incrementado de uma unidade para o proximo registro criado. Duas perguntas: como faco para mostrar no formulario (no textbox correspondente) esse valor (ele so aparece depois que gravo o registro)? Outra pergunta: como faco para excluir "fisicamente" registros q sao apagados pelo comando .delete?
   
Romero
VILHENA
RO - BRASIL
ENUNCIADA !
Postada em 21/02/2005 12:24 hs            
Usando ADO ou DAO
Dim Banco As Database
Dim Tb As TableDef
Dim Cp As Field
Set Banco = DBEngine.CreateDatabase(nomedobanco, dbLangGeneral)
Set Tb = Banco.CreateTableDef(nomedatabela)
Set Cp = Tb.CreateField(nomedocampo, tipodocampo, tamenhodocampo)
'esta é a prorpiedade
Cp.Attributes = dbAutoIncrField

Tb.Fields.Append Cp
Banco.TableDefs.Append Tb
Banco.Close
 
Na atualização utilize o valor de CP
 
   
oli
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 21/02/2005 14:21 hs            
Nao entendi muito bem a resposta mas talvez eu esclarecendo melhor vc pode me ajudar. Ja tenho a tabela criada com o indice sendo o campo ind_cod_cli. Quando adiciono um registro ele ja faz o incremento pra mim so que nao mostra no formulario. Como faco para mostrar no textbox do codigo de cliente esse numero q o sistema ja gerou?
   
Romero
VILHENA
RO - BRASIL
ENUNCIADA !
Postada em 25/02/2005 12:48 hs            
A tá...!!! Pegue no Número do Ultimo Registro....
Retorno = Record1.RecordCount + 1
txt = Retorno
Acho que isso funciona...
   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 25/02/2005 13:22 hs            
 
Pegue o exemplo:
 
Talvez isto te ajude.
 
2º Compacta o banco de dados.
   
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