在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 ...
Access应用程序本身(msaccess.exe)有一些导出函数,是对win32api的再次封装,比如下面这个选择颜色对话框调用就很方便。 Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "WizChooseColor@8" (ByVal hwnd As Long, rgb As Long) As Long Private Sub GetColor() Dim lRgb ...