在Access中用代码建立表和字段,通常用DAO的方式。 如: Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set dbs = CurrentDb Set tdf = dbs.CreateTableDef("表1") Set fld = tdf.CreateField("字段1", dbText) tdf.Fields.Append fld dbs.TableDefs.Append tdf ...
SELECT CASE WHEN a.colorder = 1 THEN d .name ELSE '' END AS 表名 , CASE WHEN a.colorder = 1 THEN isnull(f.value, '') ELSE '' END AS 表说明 , a.colorder AS 字段序号 , a.name AS 字段名 , CASE WHEN COLUMNPROPERTY(a.id, a.name, 'IsIdentity') = 1 THEN '√' ELSE '' END AS 标识 ...