下面这个例子是向 “数据库.mdb” 文件的 “表1” 里添加1个新字段，类型为字符串类型，长度30'通过菜单，[工程] -- [引用]，勾选 Microsoft DAO 3.6 Object library'引用Ado对象Option ExplicitPrivate Sub Command1_Click()Dim Ws As WorkspaceDim MyDB As DatabaseDim myTBL As TableDefDim fid1 As Field'打开数据库文件Set Ws = DBEngine.CreateWorkspace("", "admin", "")Set MyDB =...
