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 |
All times are GMT +1. The time now is 12:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com