《VBA数据库解决方案》教程(版权10090845)是我推出的第二套教程,目前已经是第二版修订了。这套教程定位于中级,是学完字典后的另一个专题讲解。数据库是数据处理的利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。
这套教程共两册,八十四讲,今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是:VBA数据库解决方案第十三讲:如何获取数据库中表的相关信息【分享成果,随喜正能量】 不要在乎他人的评论,不必理论与他人有关的是非,你只要做好自己就够了。苔花如米小,也学牡丹开。无论什么时候,都要有忠于自己的勇气,去做喜欢的事,去认识喜欢的人,去过期待的日子,去圆满自己的心。有理想,有热爱,然后全力以赴。。
第十三讲 如何获取数据库中表的相关信息大家好,今天给继续讲解VBA数据库解决方案的第13讲:如何获取数据库中的表的信息。在处理表,特别是查询的时候,我们需要一些表的信息,如表的名字,表的属性,那么有没有办法在程序中获得,并显示出来呢?
今天的内容就是讲解如何把数据库中的所有表的名称,性质列出来,并放到一个工作表文件中。数据库的讲解有时候是枯燥的,很多的知识点如果不弄懂很难再进行下一步的操作,我的这套教程只能按大概的先后顺序让读者慢慢的了解,掌握。有的朋友和我反馈说:都懂,就是代码写不出来,怎么办?其实这时你缺少的就是实践,一是要多实际练习,一是要紧扣自己的需求,比如工作遇到什么问题,马上以问题为切入点,细致的研究分析。我在初学VBA的时候为了弄懂一个知识点需要反复的测试,还要去问别人,但人家不告诉你啊,为了一个“With”的语句我问了好几遍,可没人真正的告诉你,那时真的很难,没有资料,求人难。现在好了,进入了知识爆炸的年代,只要你想学,只要你肯学,肯于去专研,学会变得很容易。在我的教程中,尽可能让讲解浅显些。今日的问题如何解决呢?
1 提取数据库中表信息的代码及代码解读我们还是直接看代码,然后我再一步步的讲解吧。
Sub mynz_13() '获取所有表的名称 第13讲:如何获取数据库中的表的信息
Dim catADO As Object
Dim myTable As Object
Dim strPath As String
Dim i As Integer
Set catADO = CreateObject("ADOX.Catalog")
strPath = ThisWorkbook.Path & "\mydata2.accdb"
catADO.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
Sheets("13").Select
Cells.ClearContents
Cells(1, 1) = "数据表名"
Cells(1, 2) = "类型"
i = 1
For Each myTable In catADO.Tables
i = i + 1
Cells(i, 1) = myTable.Name
Cells(i, 2) = myTable.Type
Next myTable
Set myTable = Nothing
Set catADO = Nothing
End Sub
代码截图:
代码解读:
① Set catADO = CreateObject("ADOX.Catalog")
strPath = ThisWorkbook.Path & "\mydata2.accdb"
catADO.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
创建一个ADOX对象,并连接到数据库,数据库含地址为:strPath = ThisWorkbook.Path & "\mydata2.accdb"
② Cells.ClearContents
Cells(1, 1) = "数据表名"
Cells(1, 2) = "类型"
清空工作表,并在A1 和B1 单元格写入表头
③ For Each myTable In catADO.Tables
i = i + 1
Cells(i, 1) = myTable.Name
Cells(i, 2) = myTable.Type
Next myTable
这里用了一个FOR EACH循环,对对象中的每一个表进行名称和属性的提取,并记录。同时写道工作表中。这里用的是循环语句,详细大家通过VBA的学习应该不陌生吧?
2 提取数据库表信息的实现效果下面我们先看看ACCESS中的表,要点击显示系统表,看下面的截图:
上面用红色框框起来的是系统表。一般情况下这些系统表是隐藏的,读者如果想查看,可以选择显示即可,关于ACCESS的设置不做详细的解释了。
看我们的代码运行结果:
今日内容回向:
1 如何能够把数据库中表的名称和属性全部显示出来呢?
2 是否清楚哪些是系统表和自己建立的表了吗?
本讲内容参考程序文件:VBA与数据库操作(第一册).xlsm
我20多年的VBA实践经验,全部浓缩在下面的各个教程中: