Originariamente inviato da yyzyyz
con DAO puoi farlo, aggiungi su progetto > riferimenti microsoft DAO (qualsiasi versione) e poi incolla questo codice sul form:

codice:
Private Sub Form_Load()

Dim db As Database
Dim Td As TableDef

' crea il database
Set db = CreateDatabase("C:\tmpDb.mdb", dbLangGeneral & ";pwd=pwd")

' definisce tabella1
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)

' crea la tabella1
db.TableDefs.Append Td
End Sub
ciao, volevo specificare ke utilizzando la versione Microsoft DAO Object Library 3.6 potrai ottenere database in formato Access2000.


x newbie : ricevo un errore di runtime ke mi dice interfaccia non supportata -? :master: