Database - CREARE UN DATABASE

ACCESS # 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.
Ecco un semplice esempio semplice per creare un database del tipo semplice:
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