VBA数据库之工作表内连接查询-天涯论坛

m5k1umn 发表于 2024-8-4 15:12:29

VBA数据库之工作表内连接查询

【分享成果，随喜正能量】人若能心静如水，则万物不侵。静以修心，静以修身，以静视物，以静观心，我静故我在，静了，你的生活才会听你的安排。。 
《VBA数据库处理方法》教程（10090845）是我推出的第二套教程，日前已然是第1版修订了。这套教程定位置于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中仔细介绍了利用ADO连接ACCDB和EXCEL的办法和实例操作，教程第1版的修订内容重点是完成所有程序文件的32位和64位OFFICE系统测试。
这套教程共两册，八十四讲，今后一段时间会给大众持续推出修订后的教程内容。今日的内容是：VBA数据库之工作表内连接查找
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p26-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/3277af34e3cf42d1908fea741e66a2f1~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=N%2FGK3IombSWrdDRUNWol84c%2B%2B4E%3D" style="width: 50%; margin-bottom: 20px;"></div>
<h1 style="color: black; text-align: left; margin-bottom: 10px;">第五十六讲工作表查找中，内连接Inner join的应用</h1>
大众好，咱们继续讲解VBA数据库处理方法，今日讲解第56讲内容: 数据表查找中，内连接Inner join的讲解。从这讲起始给大众实例讲解在查找中各样连接方式的应用。为何到此刻才讲解这块内容呢？是的，非常多的内容我在之前的文案中已然起始利用了，相信大众已然起始有所了解或许只是概念的欠缺，同期，随着讲解的深入大众发掘SQL语句是操作数据库的一个非常重要的工具，我的观点始终是：搭积木思想。不要太多的纠缠于其中的算法，只要会利用就能够。至于为何这么写，那是专业人员的事情。
<h1 style="color: black; text-align: left; margin-bottom: 10px;">1 什么是内连接，内连接的应用场景</h1>
好了，先给大众简单的解释一下什么是内连接，内连接的查找操作及其特点。
内连接亦叫连接，是最早的一种连接。还能够被叫作为普通连接或自然连接，内连接是从结果表中删除与其他被连接表中无匹配行的所有行。返回与连接要求匹配的数据行，它运用比较运算符比较被连接列的列值。在每一个表中找出符合要求的共有记录。
实例情景，下面的两个工作表，一个是“数据”，一个是“数据1”。我要把其中有型号同样的数据提取出来，然则型号，生产厂，数量来自“数据”工作表，而供应商的数据来自“数据2”的数据。
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/eb8fc70ae4274c8ca0486dbd50f87f2e~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=5HVImRA64rKJEhUtbpq4MIvUdB0%3D" style="width: 50%; margin-bottom: 20px;"></div>
<h1 style="color: black; text-align: left; margin-bottom: 10px;">2 内连接的应用代码及代码诠释</h1>
下面看我给出的内连接的代码，其实代码并不难：
Sub mynzRecords_56() 第56讲
Dim cnADO, rsADO As Object
Dim strPath, strSQL As String
Worksheets("56").Select
Cells.ClearContents
Set cnADO = CreateObject("ADODB.Connection")
Set rsADO = CreateObject("ADODB.Recordset")
strPath = ThisWorkbook.FullName
cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;hdr=yes;imex=1;data source=" & strPath
strSQL = "Select a.型号,a.生产厂,a.数量,b.供应商 From [数据$]as a,[数据2$] as b Where a.型号=b.型号"
strSQL = "Select a.型号,a.生产厂,a.数量,b.供应商 From [数据$] as a INNER JOIN [数据2$] as b ON a.型号=b.型号"
rsADO.Open strSQL, cnADO, 1, 3
For i = 1 To rsADO.Fields.Count
Cells(1, i) = rsADO.Fields(i - 1).Name
Next
Range("a2").CopyFromRecordset rsADO
rsADO.Close
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
End Sub
代码截图：
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/9077c0d31ed640b3bba734f0c21a827c~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=Vo%2BiZ47u7M1ok8QF%2B8AEYo5hDzI%3D" style="width: 50%; margin-bottom: 20px;"></div>
代码讲解：
1） cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;hdr=yes;imex=1;data source=" & strPath
此语句的代码创立起ADO和Excel的连接，大众能够直接利用，只要是连接07版本以上的EXCEL就可。
2） strSQL = "Select a.型号,a.生产厂,a.数量,b.供应商 From [数据$]as a,[数据2$] as b Where a.型号=b.型号"
此语句的代码为一个典型的SQL内连接的语句，用的是WHERE的表达式，大众要重视我字段的写法和定义a,b 两个数据表的写法。不能够有丝毫的错误。
3） strSQL = "Select a.型号,a.生产厂,a.数量,b.供应商 From [数据$] as a INNER JOIN [数据2$] as b ON a.型号=b.型号"
此语句的代码为一个典型的SQL内连接的语句的另一种写法，用的是的INNER JOIN….on…的表达式，大众要重视这种写法和定义a,b 两个数据表的写法。大体上和上面的写法是一致的，读者能够根据自己的习惯利用。
下面看代码的运行：
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/64d45c64a0ce4d2eaf4d788b2ce132df~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=bwVOCX3%2ByZd7rMUnD6JC4dp4My0%3D" style="width: 50%; margin-bottom: 20px;"></div>
大众要重视，以上型号为QQ01的供应商为RRR05是取自数据2的数据。
今日内容回向：
1 什么是内连接？
2 内连接的两种表法方式是什么？
3 倘若将select后的字段去掉换成*号会是什么样的结果？
本讲内容参考程序文件：VBA与数据库操作（第二册）.xlsm
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/efef7cde997547468788de16e0a7d37c~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=kLV6aG%2Br9ddi4lC71ovHYKc0dXM%3D" style="width: 50%; margin-bottom: 20px;"></div>
我20数年的VBA实践经验，所有浓缩在下面的各个教程中：
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/2ce7c9af559f4bf48dcf328607fdb2fe~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=4fipr7e7E%2FMBuvhHIvA2uZSyg00%3D" style="width: 50%; margin-bottom: 20px;"></div>
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/42094149ef1845238dc2c104ad0f7c7f~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=uqqXR682rd52fgKLCxoXctCMluY%3D" style="width: 50%; margin-bottom: 20px;"></div>
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://p3-sign.toutiaoimg.com/tos-cn-i-qvj2lq49k0/6f2a48c23f9d45228a0c07e5456c849a~noop.image?_iz=58558&from=article.pc_detail&lk3s=953192f4&x-expires=1723346812&x-signature=CPCzkfBsqDJXAkRRcR%2Bmz0%2Fzg%2FM%3D" style="width: 50%; margin-bottom: 20px;"></div>
【分享成果，随喜正能量】人生无处不修行，能在世事中心静如水，才可在纷扰中安然无恙，非清闲非导致远，想要成就一番大事，必要要有静气。。

364463952 发表于 2024-8-26 15:46:31

“沙发”（SF，第一个回帖的人）‌

4zhvml8 发表于 2024-10-4 07:32:01

祝福你、祝你幸福、早日实现等。

4lqedz 发表于 2024-10-6 02:56:46

这夸赞甜到心里，让我感觉温暖无比。

b1gc8v 发表于 2024-10-23 03:57:13

你的见解真是独到，让我受益匪浅。

4lqedz 发表于昨天 20:21

交流如星光璀璨，点亮思想夜空。

页: [1]

天涯论坛's Archiver

VBA数据库之工作表内连接查询