如果通过语句修改ACCESS中的表结构

Question

如题,但不知具体的写法,主要是需要增加某一表的字段,给一默认值,并要在此字段上建索引,还有就是修改某一存在的字段的名称,不知能否用语句做到的,注意是ACCESS,不是SQL或ORACLE数据库

Answer 1

用adox
dim cat as new adox.catalog
dim tbl as adox.table
dim col as new column
dim idx as new adox.index
cat.activeconnetion="......" '建立连接
set tbl=cat.tables(“表名”)
col.name="新字段"
’新字段属性
tbl.columns.append col
idx.name="索引名"
idx.columns.append "新字段"
tbl.indexes.append idx