1. 首先建立对DAO对象库Microsoft DAO3.6 Object Library的引用.在VBA界面下: 工具-引用,选中”Microsoft DAO3.6 Object Library” 2. 代码: Public Sub1_1() Dim myDb As DAO.Database ‘定义DAO的Database(数据库)对象变量 Dim myTbl As DAO.TableDef ‘定义DAO的TableDef(数据表)对象变量 Dim myData As String ‘定义
动态创建一个ACCESS数据库，动态创建access的代码是这样的，当窗体激活时执行下列代码自动创建数据库： Dim myDB As DAO.Database Set myDB = DAO.Workspaces(0).CreateDatabase("mydb.mdb", dbLangGeneral) Dim str_SQL As String str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)" m
