SysCapstone
asked on
Create MS Access database
I am using the following code to create an MS Access database. It creates the database but not the table. It turns up a first chance exception of type 'System.Runtime.InteropSer vices.COME xception'
Public Function CreateDatabase(ByVal DBFullPath As String, ByVal InitialTable As String) As Boolean
'PURPOSE: Creates an access database, with one table. The
'table will have one numeric field, ID
'PARAMETERS: DBFULLPATH: FileName/Path of database to create
'InitialTable: Name of table to create
'RETURNS: TRUE IF SUCCESSFUL, FALSE OTHERWISE
Dim db As Database
Dim td As New TableDef
Dim ID As New Field
Dim Juris As New Field
Dim Month As New Field
Dim Type As New Field
Dim Count As New Field
On Error GoTo ErrorHandler
Dim engine As New DBEngine
db = engine.CreateDatabase(DBFu llPath, DAO.LanguageConstants.dbLa ngGeneral)
td = db.CreateTableDef(InitialT able)
'Optional for add a primary key field to Table
Dim IDX As Index
td.Fields.Append(td.Create Field("ID" , ADOX.DataTypeEnum.adIntege r))
td.Fields("ID").Attributes = DAO.FieldAttributeEnum.dbA utoIncrFie ld
IDX = td.CreateIndex("IDXID")
IDX.Fields.Append(td.Creat eField("ID "))
IDX.Primary = True
td.Indexes.Append(IDX)
ID = td.CreateField("ID", ADOX.DataTypeEnum.adIntege r)
Juris = td.CreateField("ID", ADOX.DataTypeEnum.adVarCha r)
Month = td.CreateField("ID", ADOX.DataTypeEnum.adDate)
Type = td.CreateField("ID", ADOX.DataTypeEnum.adVarCha r)
Count = td.CreateField("ID", ADOX.DataTypeEnum.adIntege r)
td.Fields.Append(ID)
td.Fields.Append(Juris)
td.Fields.Append(Month)
td.Fields.Append(Type)
td.Fields.Append(Count)
db.TableDefs.Append(td)
CreateDatabase = True
ErrorHandler:
If Not db Is Nothing Then db.Close()
End Function
I call the function like this in the main form:
CreateDatabase("C:\Documen ts and Settings\Melissa Thomason\Desktop\GRASP\VA 1 .mdb", "Crime Data")
any help appreciated. thanks!
Public Function CreateDatabase(ByVal DBFullPath As String, ByVal InitialTable As String) As Boolean
'PURPOSE: Creates an access database, with one table. The
'table will have one numeric field, ID
'PARAMETERS: DBFULLPATH: FileName/Path of database to create
'InitialTable: Name of table to create
'RETURNS: TRUE IF SUCCESSFUL, FALSE OTHERWISE
Dim db As Database
Dim td As New TableDef
Dim ID As New Field
Dim Juris As New Field
Dim Month As New Field
Dim Type As New Field
Dim Count As New Field
On Error GoTo ErrorHandler
Dim engine As New DBEngine
db = engine.CreateDatabase(DBFu
td = db.CreateTableDef(InitialT
'Optional for add a primary key field to Table
Dim IDX As Index
td.Fields.Append(td.Create
td.Fields("ID").Attributes
IDX = td.CreateIndex("IDXID")
IDX.Fields.Append(td.Creat
IDX.Primary = True
td.Indexes.Append(IDX)
ID = td.CreateField("ID", ADOX.DataTypeEnum.adIntege
Juris = td.CreateField("ID", ADOX.DataTypeEnum.adVarCha
Month = td.CreateField("ID", ADOX.DataTypeEnum.adDate)
Type = td.CreateField("ID", ADOX.DataTypeEnum.adVarCha
Count = td.CreateField("ID", ADOX.DataTypeEnum.adIntege
td.Fields.Append(ID)
td.Fields.Append(Juris)
td.Fields.Append(Month)
td.Fields.Append(Type)
td.Fields.Append(Count)
db.TableDefs.Append(td)
CreateDatabase = True
ErrorHandler:
If Not db Is Nothing Then db.Close()
End Function
I call the function like this in the main form:
CreateDatabase("C:\Documen
any help appreciated. thanks!
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER