VBA查询Access数据库操作方法 access数据库查看器怎么用 _vba

Excel VBA操作数据库有什么优势呢？
首先，对于数据库要有一点了解，数据库就是一个库房，里面存放的不是粮食，也不是商品，而是数据，数据这个东西有点虚幻，看得见摸不着。
但通过对数据的应用和处理之后，就变成了某些实体。从基本理论上来讲，数据就是物质世界的本源，一切的存在实体都可以用数据来描述。
所以，未来世界也许就只是一个虚拟的数据世界，而我们的身体或看到或看不到的一切实体将变得可有可无，也就是意识和世界全部数字化了。
本节介绍一下，如何用VBA和数据库建立联系，然后读取数据库里的记录，显示到Excel工作表当中。
为什么要这么做呢？
因为数据库可保存的数据是Excel无法比较的，体量和应用完全不在一个层级上级。
上图表格，就是从数据库读取的信息，并不是在Excel中创建的，具体方法，慢慢讲来。
下图为数据新建的表格内容，和上图对比就明白了。
不会建表操作，需要补一下数据库操作学习，当然了，如果对SQL语句也没有基础，感觉下面的内容也没必要看了，因为涉及数据库操作的方法，是用一些SQL数据库语句完成的。
重点看一下，关键代码
'查询数据库
Sub ()
Dim uADO, rsADO As
Dim ,As
Dim i As , ri As
Set uADO = ("ADODB.") '新建数据库连接对象
Set rsADO = ("ADODB.") '新建记录集对象
= .Path & ".accdb " '设置数据库地址
uADO.Open "=.ACE.OLEDB.12.0;Data ="http://www.kingceram.com/post/&'打开数据库
【VBA查询Access数据库操作方法access数据库查看器怎么用】 = " * FromWHERE 部门='办公室' " '设置查询语句
rsADO.Open , uADO, 1, 3 '执行查询
Dim R As Range
Set R = .Range("B2")
..Clear
For i = 0 To rsADO..Count - 1
R.(0, i).Value = http://www.kingceram.com/post/rsADO.(i).Name'输出字段名
Next i
Set R = R.(1, 0)
Do Until rsADO.EOF '循环查询到数据直到记录最后一条
For i = 0 To rsADO..Count - 1
R.(ri, i).Value = http://www.kingceram.com/post/rsADO.(i).Value'输出数据表内容
Next i
ri = ri + 1