Mr. Dog Bean
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 02/11/2006 19:57 hs
Olá a todos, preciso de uma ajudinha !!!!! Em buscas na web, encontrei script explicando como se cria campos em uma tabela já existente. Porém não funcionou, o que pode ser ????? Private sub Command1_click() Dim WRK As Workspace
Dim DB as Database
Dim TB as Table
Dim Index1 as New Index
Dim Index2 as New Index
Set WRK = DBEngine.Workspaces(0)
'Abre o banco de dados e a tabela:
set DB = WRK.OpenDatabase("Banco.MDB")
Set TB = DB.OpenTable("Tabela")
'Atribui nome e utras propriedades aos
'índices:
Index1.Name = "Cód"
Index1.Fields = "Código"
Index1.Unique = True
Index1.Primary = True
Index2.Name = "Nom"
Index2.Fields = "Nome"
Index2.Unique = False
Index2.Primary = False
'Cria os indices na tabela:
TB.Indexes.Append Index1
TB.Indexes.Append Index2
'Feche o banco de dados, a tabela e o Workspace:
TB.Close
DB.Close
WRK.Close
Set TB = Nothing
set DB = Nothing
set WRK = Nothing end sub |
|
|
|
|
|
Mr. Dog Bean
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/11/2006 20:10 hs
Obs.: Este scprit foi extraído do site: :www.vbweb.com.br/dicas_visual.asp?Codigo=39
Já fiz consultas também no www.visualbasic.mat.br/forum/tópico.asp?M=10637&T=5336&B=BAT (O script que lá existia também não funcionou !!!)
Mr. Dog Bean
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/11/2006 18:10 hs
Esse código aí está criando índices apenas... veja aqui:
Dim Db as Database
Dim Td as TableDef
Dim Fld as Field
Set Db = DBEngine.Workspaces(0).OpenDatabase("C:anco.mdb")
Set Td = Db.TableDefs("Tabela")
' Cria 2 campos, endereço e Bairro:
Set Fld = Td.CreateField("Endereço"), dbText, 50)
Td.Fields.Append Fld
Set Fld = Td.CreateField("Bairro"), dbText, 30)
Td.Fields.Append Fld
Db.Close
Isso é o básico. Tem que ver depois a questão de índices, relacionamentos, etc. Se o mdb tiver senha, tem que indicar isso também.
|
|
|
|
Mr. Dog Bean
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/11/2006 11:29 hs
|
|
|
|
