Modify BE tables

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to know how to create or delete a table in the Back-End database
programmatically.

Any help is appreciated.
 
Using DAO to add:

Dim dbCurr As DAO.Database
Dim tdfNew As DAO.TableDef
Dim fldNew As DAO.Field

Set dbCurr = OpenDatabase("E:\Folder\BackEnd.mdb")
Set tdfNew = dbCurr.CreateTableDefs("MyNewTable")
With tdfNew
Set fldNew = .CreateField("Id", dbLong)
fldNew.Attributes = fldNew.Attributes Or dbAutoIncrField
.Fields.Append fldNew
.Fields.Append .CreateField("Field1", dbText)
.Fields.Append .CreateField("Field2", dbLong)
End With
dbCurr.TableDefs.Append tdfNew

Using DAO to delete:

Dim dbCurr As DAO.Database

Set dbCurr = OpenDatabase("E:\Folder\BackEnd.mdb")
dbCurr.TableDefs.Delete "MyOldTable"

Other approaches include using DDL (Data Definition Language) or ADOX.
 
Back
Top