小伙伴们好，今日再次讲解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 表明在数据库里有访问限制的组账户。
4 Index 表明数据库表格中的引索。
5 Key 表明数据库表格中的主关键字、外界关键词或唯一关键词。
6 Procedure 表明储存的一个过程。
7 Table 表明数据库表，包含列、引索和关键词。
三 ADOX方法有哪些
1 Append（Columns） 将的 Column 对象导入到 Columns 结合。
2 Append（Groups） 将的 Group 对象导入到 Groups 结合。
3 Append（Indexes） 将的 Index 对象导入到 Indexes 结合。
4 Append（Keys） 将的 Key 对象导入到 Keys 结合。
5 Append（Procedures） 将的 Procedure 对象导入到 Procedures 结合。
6 Append（Tables） 将的 Table 对象导入到 Tables 结合。
7 ChangePassword 变更用户账户的登陆密码。
8 Create 建立一个新的文件目录。
9 Delete 删掉集合中的对象。
10 Refresh 升级集合中的对象，以体现对于服务提供者可利用的和指定对象。
四 ADOX 特性
1 Count 标示集合中的对象总数。
2 DefinedSize 标示列的要求较大尺寸。
3 DeleteRule 标示主关键字被删掉时把实行操作。
4 IndexNulls 标示在索引字段含有 Null 系数的纪录是否存在引索项。
5 Name 标示对象的名字。
6 NumericScale 标示列中标值的范畴。
7 Precision 标示列中数据值最高的精密度。
8 PrimaryKey 标示引索是不是意味着表中主关键字。
9 RelatedColumn 标示有关表格中有关列的名字（仅关键词列）。
10 SortOrder 标示列的排列次序（仅引索列）。
11 Type（关键词） 标示关键词的基本数据类型。
五 大家下面看看一个案例如何运用ADOX创建一个数据库
大家看下面的源代码：
Sub mynzSetData() ‘建立数据库及表
Dim catADO As Object
Dim strPath, strTable, strSQL As String
Set catADO = CreateObject(“ADOX.Catalog”)
strPath = ThisWorkbook.Path & “mydata2.accdb” ‘这里是一个完整的途径
strTable = “职工纪录” ‘表名字
If Dir(strPath) <> “” Then Kill strPath ‘如果有一个名字同样的表，那样删掉
catADO.Create “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & strPath ‘开启数据库连接
‘下边的编码将创建一个名叫”职工纪录”的手表涉及到的字段名有员工编号、名字、胎儿性别、单位、职位、备注名称
strSQL = “CREATE TABLE ” & strTable _
& “(员工编号 long not null primary key,” _
& “名字 text(20) not null,” _
& “胎儿性别 text(1) not null,” _
& “单位 text(20) not null,” _
& “职位 text(20) ,” _
& “备注名称 text(20))”
catADO.ActiveConnection.Execute strSQL
MsgBox “建立数据库取得成功！” & vbCrLf _
& “数据库文件夹名称为：” & strPath & vbCrLf _
& “数据分析表名称为：” & strTable & vbCrLf _
& “储存部位：” & ThisWorkbook.Path, _
vbOKOnly vbInformation, “建立数据库”
Set catADO = Nothing
End Sub
编码截屏：
编码的解释说明：因为绝大多数在编码有注解只可以再表述2个句子：
1 strSQL = “CREATE TABLE ” & strTable
SQL 里的CREATE TABLE 句子用以建立数据库里的表。
SQL CREATE TABLE 词法:
CREATE TABLE 表名字(列名字1 基本数据类型,列名字2 基本数据类型,列名字3 基本数据类型,….)
2 catADO.ActiveConnection.Execute strSQL
这一句的描述在上一讲里已经详尽的说过了，并没有记录集的回到
运作结论：
开启数据库和表：
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
