Não me lembro quem me passou uma vez um tutorial em inglês que explica como criar um BD via código, com seus relacionamentos e suas chaves, se alguém tiver poderia me enviar por e-mail novamente? Ou ainda se tiver algum código? Mas não quero apenas criar o Bd e suas tabelas em DAO ou em ADO, eu quero também que crie as chaves e os relacionamentos, se alguém tiver algum exemplo desse tipo?

Acho que foi o Rocha que me passou, mas está difícil de encontrar ele!

 

[]'s,

 

Marcelo Tamanini

Criando DataBase:

 

Dim Banco As Database
Set Banco = DBEngine.Workspaces(0).CreateDatabase(App.Path & "Clientes.mdb", dbLangGeneral, dbVersion30)

 

Criando as tabelas:

 

Dim Banco As Database
Dim Tabela As TableDef
Dim NomeCliente As Field
Dim CodigoCliente As Field

Set Banco = DBEngine.Workspaces(0).OpenDatabase(App.Path & "Clientes.mdb")
Set Tabela = Banco.CreateTableDef("Clientes")
Set NomeCliente = Tabela.CreateField()
Set CodigoCliente = Tabela.CreateField()
NomeCliente.Name = "NomeCliente"
NomeCliente.Required = True
NomeCliente.Type = dbText
CodigoCliente.Name = "CodigoCliente"
CodigoCliente.Required = True
CodigoCliente.Type = dbInteger
CodigoCliente.AllowZeroLength = False
Tabela.Fields.Append NomeCliente
Tabela.Fields.Append CodigoCliente
Banco.TableDefs.Append Tabela

 

Ufa.....acho que só...

No site do macoratti tem vários artigos que ensina a criar banco, tabelas, campos, indices, relacionamentos e o capeta a quatro... rs

Procure por ADOX... T+

www.macoratti.net