|
Dim DB As Database
Set DB = CreateDatabase("C:\Temp\Db.mdb", dbLangGeneral & ";pwd=MiaPassword") 'possibile alternativa di esempio: 'Set DB = CreateDatabase("C:\Temp\Db.mdb", dbLangSpanish), o cose del genere Dim Td As TableDef Set Td = DB.CreateTableDef("Tabella1") Td.Fields.Append Td.CreateField("Campo1", dbInteger) Td.Fields.Append Td.CreateField("Campo2", dbText, 50) Td.Fields.Append Td.CreateField("Campo3", dbBoolean) Td.Fields.Append Td.CreateField("Campo4", dbDate) 'e cosi' via... DB.TableDefs.Append Td 'ripetere per creare nuove tabelle Dunque, la creazione di un nuovo database interamente da codice VB puo' essere realizzata comodamente con gli appositi metodi e proprieta' di alcuni oggetti del DAO. Faccio un esempio semplice per creare un database del tipo semplice: |