View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
merjet merjet is offline
external usenet poster
 
Posts: 812
Default 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