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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Campo Autonumeração access
Everton Nog
SANTA CRUZ DO RIO PARDO
SP - BRASIL
Postada em 12/05/2008 19:39 hs            

Ola pessoal, tenho um codigo que cria uma tabela e cria um campo, queria que este campo fosse do tipo autonumeração do access. Alguem sabe como? (Obs nâo quero somar +1 queria do tipo autonumeração). Muito obrigado a todos.

Dim WRK As Workspace
Dim DB As Database
Dim TB As New TableDef
Dim Campo1 As New Field
Set WRK = DBEngine.Workspaces(0)
'Abre o banco de dados:
Set DB = WRK.OpenDatabase(App.Path & "Dados.mdb")
'Atribui nome e utras propriedades à tabela e aos campos:
TB.Name = "NomeTabela"
Campo1.Name = "Codigo"
Campo1.Type = vbLong

'Cria os campos na tabela
TB.Fields.Append Campo1

'Cria a tabela:
DB.TableDefs.Append TB

DB.Close
WRK.Close

     
IceEyes
BRASIL
MS - BRASIL
ENUNCIADA !
Postada em 12/05/2008 20:25 hs            
para criar tabela acho melhor

dim SQL AS STRING
dim DAT AS DATABASES

SQL="create table Nome_Tabela (Codigo as  AUTOINCREMENT)"
dat.execute SQL
   
Everton Nog
SANTA CRUZ DO RIO PARDO
SP - BRASIL
Postada em 13/05/2008 10:41 hs            
Deu erro na difinição do campo....

Mas mesmo assim muito obrigado IceEyes

Help
     
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 13/05/2008 11:44 hs            
ice, esse dat.execute, nao existe esse metodo. fiz o teste aqui nao funcionou
   
Everton Nog
SANTA CRUZ DO RIO PARDO
SP - BRASIL
Postada em 13/05/2008 12:30 hs            
Existe sim é que ele digitou errado na declaração é DATABASE e não DATABASES

Mas mesmo assim não ta funcionando não....vlw
     
IceEyes
BRASIL
MS - BRASIL
Postada em 13/05/2008 17:57 hs            
para declarar essa variavel tem q ter pelo menos um objeto data no projeto
     
Página(s): 1/2      PRÓXIMA »

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