Exporting Large Array to Access (2003)
Here is a DAO example:
Private Sub CreateTable()
Dim db As DAO.Database
Dim td As TableDef
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Temp\MyDb1 .mdb")
Set td = pDB.CreateTableDef("Table1")
With td
'Add fields to database
.Fields.Append .CreateField("ID", dbInteger)
.Fields.Append .CreateField("Name", dbText)
.Fields.Append .CreateField("Points", dbDouble)
db.TableDefs.Append td
End With
Set td = Nothing
Set db = Nothing
End Sub
Hth,
Merjet
|