大家好,今日继续讲解VBA数据库解决方案的第11讲内容,如何动态的建立数据库。VBA代码数据库解决方案一书写到这里,已经讲了很多,相信大家对于数据库的概念应该了然于胸了。我们也开始逐步讲解数据库的实际操作了,有的朋友说你示例总数据库是事先建立的,是否可以用VBA代码动态建立数据库呢?今日的这讲我们就解决这个问题。在程序中动态的建立数据库是完全可以实现的,今日的内容需要用到的知识点为ADOX,我们要先对这个知识点进行必要的讲解。

一 什么是ADOX:ADOX是Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security 的简写,是对ADO对象和编程模型的扩展。可用于创建、修改和删除模式对象,如表格的创建,安全对象的实施,可用于维护用户和组,以及授予和撤销对象的权限。

要通过开发工具使用ADOX,首先需要建立对 ADOX 的引用。引用对象为:"Microsoft ADO Ext. for DDL and Security."当然也可以在过程中创建,估计我这时讲到引用和过程中创建,朋友们不会陌生了。这和ADO的应用和创建是一个道理。

二 ADOX的对象有哪些,ADOX的对象主要用下面的内容

1 Catalog 包含描述数据源模式目录的集合。

2 Column 表示表、索引或关键字的列。

3 Group 表示在安全数据库内有访问权限的组账号。

代码的解释说明:由于大部分在代码有注释只需要再解释两个语句:

1 strSQL = "CREATE TABLE " & strTable

SQL 中的CREATE TABLE 语句用于创建数据库中的表。

SQL CREATE TABLE 语法:

CREATE TABLE 表名称(列名称1 数据类型,列名称2 数据类型,列名称3 数据类型,....)

2 catADO.ActiveConnection.Execute strSQL

这句的解释在上一讲中已经详细的讲过了,没有记录集的返回

运行结果:

vba怎么使用数据库(VBA数据库解决方案第11讲)(1)

打开数据库和表:

vba怎么使用数据库(VBA数据库解决方案第11讲)(2)

今日内容回向:

1 如何创建一个数据库?

2 如何创建数据库中的表?

,