|
|
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
|
|
|
|
|
|
Postada em 13/05/2008 10:41 hs
Deu erro na difinição do campo....
Mas mesmo assim muito obrigado IceEyes
Help
|
|
|
|
|
|
Postada em 13/05/2008 11:44 hs
ice, esse dat.execute, nao existe esse metodo. fiz o teste aqui nao funcionou |
|
|
|
|
|
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
|
|
|
|
|
|
Postada em 13/05/2008 17:57 hs
para declarar essa variavel tem q ter pelo menos um objeto data no projeto
|
|
|
|
