VBA与SQL多表连接查询数据库 (vba sql多表连接查询数据库)

随着数据处理和存储的不断增加，数据库查询也变得越来越复杂。数据库查询的效率和精确性是每个数据管理者所关心的问题。在多表连接的情况下，虽然SQL语言在处理数据方面非常强大，但在实际操作中需要使用像VBA一样编程语言进行操作。因此，本文将介绍如何使用VBA和SQL语言多表连接查询数据库。

1. SQL语言多表连接

在SQL中，多表连接是一种在不同表中进行关联操作的方法。将多个表连接起来后，可以通过查询语句实现更全面以及更准确的数据处理。SQL语句中多表连接的基本方法是使用JOIN语句，一般常用的JOIN类型包括INNER JOIN、LEFT JOIN、RIGHT JOIN和FULL OUTER JOIN等。

INNER JOIN即内连接，该方法利用比较运算符关联两个表中的数据，只返回两个表中都满足条件的行。例如，下面的SQL语句实现了两个表的内连接：

SELECT t1.col1, t2.col2 FROM table1 t1 INNER JOIN table2 t2 ON t1.id = t2.t1_id

LEFT JOIN即左外连接，该方法将左边的表中的所有行进行匹配，并返回符合条件的数据以及左表中未匹配的行。如果右表中对应的数据不存在，则使用NULL值填充。例如，下面的SQL语句实现了两个表的左外连接：

SELECT t1.col1, t2.col2 FROM table1 t1 LEFT JOIN table2 t2 ON t1.id = t2.t1_id

RIGHT JOIN即右外连接，该方法和左外连接相似，只是返回右边表中的所有行。例如，下面的SQL语句实现了两个表的右外连接：

SELECT t1.col1, t2.col2 FROM table1 t1 RIGHT JOIN table2 t2 ON t1.id = t2.t1_id

FULL OUTER JOIN即全外连接，该方法返回两个表中的所有行，并将未匹配的行用NULL值进行填充。例如，下面的SQL语句实现了两个表的全外连接：

SELECT t1.col1, t2.col2 FROM table1 t1 FULL OUTER JOIN table2 t2 ON t1.id = t2.t1_id

以上是SQL语言多表连接的基本知识点，但是对于数据处理的复杂业务来说，需要使用到VBA编程语言。

2. VBA与SQL多表连接

VBA是Microsoft Excel表格软件的编程语言，它可以帮助Excel用户协助完成重复且繁琐的任务。除了Excel的操作，VBA还可以处理其他数据和程序，例如多表连接的SQL语句。

需要在Excel中启动编辑器，将SQL语句输入到模块中。常见的方法是在VBA编辑器中创建查询函数，并使用ADO对象库连接数据库。以下是一个简单的例子：

Private Sub TestFunction() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String Set cnn = New ADODB.Connection: cnn.ConnectionString = “Provider=MSDAORA;Data Source=DBName;User ID=UserName;Password=password;” cnn.Open strSQL = “SELECT Products.ProductName, Categories.CategoryName FROM Products INNER JOIN Categories ON Products.CategoryID = Categories.CategoryID;” Set rs = New ADODB.Recordset rs.Open strSQL, cnn Range(“A1”).CopyFromRecordset rs Set rs = Nothing Set cnn = Nothing End Sub

以上VBA代码使用了ADODB对象库连接数据库，并利用INNER JOIN语句连接了两个表：Products和Categories。查询结果存储在Recordset对象中，并将结果复制到Excel的单元格中。

随着数据的增长和更新，在数据处理方面使用多表连接查询数据库是非常常见的。本文介绍了基本的SQL多表连接知识点和利用VBA编程实现多表连接查询的方法。仔细学习这些信息并实践，将有助于提高您在数据处理和管理中的技能水平。

相关问题拓展阅读：

• EXCEL VBA怎么读写SQLSERVER 数据库
• VB6程序查询数据库

EXCEL VBA怎么读写SQLSERVER 数据库

这是EXCEL与SQL结合的一般性的运用，我先给出一些示范代码，自己修改一下。

其实这样的例子网上也很多的。

1.先加入对ADODB的引用

2.定义数羡升耐据库连接的全局变量

dim cnDB as adodb.connection

3.函数

‘2023/4/1

‘打开与系统数据库的连接,返回数据库是否兄春打开

Public Function OpenDatabase() As Boolean

Dim B As Boolean

B = True

With cnDB

If .State adStateOpen Then ‘如果数据库连接未笑晌打开

On Error Resume Next

.Close ‘先关闭数据库连接，忽略任何错误

‘2023/3/15变更服务器，73.1 -> 84.36(hzrpps)

S = “driver={sql server};server=服务器IP;uid=SQL用户名;”

S = S & “pwd=用户密码;database=数据库名;”

.ConnectionString = S

Err.Clear

.Open

If Err.Number 0 Then

B = False

MsgBox “连接数据库时发生错误，请联络。”, vbInformation

End If

End If

End With

OpenDatabase = B

End Function

‘根据指定的sql语句，取得记录列表

Public Function GetRecordList(ByVal sSql As String) As String

Dim tmpRs As New ADODB.Recordset

On Error GoTo Err1

S = “”

If Len(sSql) > 0 Then ‘sql语句不是0长度

If OpenDatabase Then ‘打开数据库成功

With tmpRs

.Open sSql, cnDB, adOpenKeyset, adLockOptimistic

If Not (.BOF And .EOF) Then ‘有记录存在

If .RecordCount = 1 Then ‘如果仅有一条记录,同不要”,”分隔号

S = .Fields(0).Value ‘仅取之一个字段

Else

‘For i = 1 To .RecordCount

‘S = S & .Fields(0).Value & “,” ‘用逗号分隔

‘.MoveNext

‘Next

Do While Not .EOF

S = S & .Fields(0).Value & “,” ‘用逗号分隔

.MoveNext

Loop

S = Left(S, Len(S) – 1)

End If

End If

.Close

End With

End If

End If

GetRecordList = S ‘返回值

Exit Function

Err1:

MsgBox “系统取得数据时发生错误,请联络。”, vbExclamation

End Function

Sub 按钮1_Click()

Dim i As Integer, j As Integer, sht As Worksheet ‘i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表

‘Dim cn As New ADODB.Connection ‘定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

‘Dim rs As New ADODB.Recordset ‘定义记录集对象，保存数据表

‘工具 —〉引用 —〉Microsoft ActiveX data objects ….

‘下面两句就不需要增加引用ADO

Set cn = CreateObject(“Adodb.Connection”)

Set rs = CreateObject(“Adodb.Recordset”)

Dim strCn As String, strSQL As String ‘字符串变量

Dim strCond As String

strCn = “Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password” ‘定义数据库链接字符串

‘下面的语句将读取态衫数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表

strSQL = “select CUSTOMER_NAME from VSC_BI_CUSTOMER ” ‘定义SQL查询命令字符串

cn.Open strCn ‘与数据库建立连接，如果成功，返回连接对碰肢象cn

rs.Open strSQL, cn ‘执行strSQL所含的SQL命令，结果保存在rs记录集对象中

i = 2

Set sht = ThisWorkbook.Worksheets(“Test”) ‘把sht指向当前工作簿的Test工作表

Do While Not rs.EOF ‘当数据指针未移到记录集末尾时，循环下列操作

sht.Cells(i, 1) = rs(“CUSTOMER_NAME”) ‘把当前记录的字段1的值保存到sheet1工作表的第i行第1列

rs.MoveNext ‘把指针移向下一条记录

i = i + 1 ‘i加1，准备把下一记录相关字段的值保存到工作表的下一行

Loop ‘循环

rs.Close ‘关闭记录集，笑闭世至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数

cn.Close ‘关闭数据库链接,释放资源

End Sub

Dim cn As New ADODB.Connection ‘定旅瞎义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

Dim rs As New ADODB.Recordset ‘定义记森镇如录集对此启象，保存数据表

Dim strCn As String, strSQL As String ‘字符串变量

Dim i As Integer, j As Integer, sht As Worksheet

strCn = “Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户;Initial Catalog=hrlink ;Data Source=IP地址”

strSQL = “select * from 表”

strSQL1 = “select * from 表”

cn.Open strCn

rs.Open strSQL, cn

Function qushuju ()

‘定义变量

Dim i As Double

Dim j As Double

Dim a As String

Dim b As String

Dim c As String

Dim d As String

Dim temp_1 As String

Dim temp_2 As String

Dim temp_3 As String

Dim temp_4 As String

Dim temp_5 As Single

Dim temp_6 As Single

Dim temp_7 As Single

Dim temp_8 As Single

Dim temp_9 As Single

Dim temp_10 As Single

Dim temp_11 As Single

Dim temp_12 As Single

Dim temp_13 As Single

Dim temp_14 As Single

Dim temp_15 As Single

Dim temp_16 As Single

Dim temp_17 As Single

Dim temp_18 As Single

Dim temp_19 As Single

Dim temp_20 As Single

Dim temp_21 As Single

Dim temp_22 As Single

Dim temp_23 As Single

Dim temp_24 As Single

Dim temp_25 As Single

Dim x()

x = Array(temp_1, temp_2, temp_3, temp_4, temp_5, temp_6, temp_7, temp_8, temp_9, temp_10, temp_11, temp_12, temp_13, temp_14, temp_15, temp_16, temp_17, temp_18, temp19, temp20, temp21, temp22, temp23, temp24, temp25)

‘初始化变量

i = 1

j = 2

‘初始化表格

ActiveWorkbook.Sheets(2).Select

ActiveWorkbook.Sheets(2).Cells.Select

Selection.ClearContents

‘制表头

Sheets(2).Cells(1, 1) = “DATE”

Sheets(2).Cells(1, 2) = “Period”

Sheets(2).Cells(1, 3) = “Exchid”

Sheets(2).Cells(1, 4) = “cellid”

Sheets(2).Cells(1, 5) = “小区名称”

Sheets(2).Cells(1, 6) = “镇区”

Sheets(2).Cells(1, 7) = “频率”

Sheets(2).Cells(1, 8) = “纤指设备类型”

Sheets(2).Cells(1, 9) = “设备代维公司”

Sheets(2).Cells(1, 10) = “TRU_MO”

Sheets(2).Cells(1, 11) = “TRU_STS”

Sheets(2).Cells(1, 12) = “T完好率”

Sheets(2).Cells(1, 13) = “定义信道”

Sheets(2).Cells(1, 14) = “可用信道”

Sheets(2).Cells(1, 15) = “话务量”

Sheets(2).Cells(1, 16) = “F话务量”

Sheets(2).Cells(1, 17) = “H话务量”

Sheets(2).Cells(1, 18) = “平均分配PDCH”

Sheets(2).Cells(1, 19) = “混合话务量”

Sheets(2).Cells(1, 20) = “STRU数”

Sheets(2).Cells(1, 21) = “配桥坦置EPDCH数”

Sheets(2).Cells(1, 22) = “EPDCH分配数”

Sheets(2).Cells(1, 23) = “EPDCH复用敏竖桐度”

Sheets(2).Cells(1, 24) = “统计时段数”

Sheets(2).Cells(1, 25) = “平均混合话务量”

‘连接SQL数据库

Dim conn As New ADODB.Connection

connStr = “Driver={SQL Server};DataBase=optimize;Server=10.249.5.49;UID=abc;PWD=abc”

conn.Open connStr ‘连接数据库

Dim rs As New Recordset

‘举例：

‘connStr = “Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123”

‘test是数据库名

‘(local)是服务器名或IP地址，可以：192.168.1.1，可以是：

www.sin.cn

‘sa是数据库用户

‘123是数据库用户密码

Sql = “select * from obj_bsc_hwcellmax3” ‘查表

rs.Open Sql, conn, 3, 3

Do While Not rs.EOF

‘下面是数据库里头表格的字段名对应的数据，可以根据自己的数据库表的字段进行修改

x(0) = rs(“DATE”)

x(1) = rs(“Period”)

x(2) = rs(“Exchid”)

x(3) = rs(“CellID”)

x(4) = rs(“小区名称”)

x(5) = rs(“镇区”)

x(6) = rs(“频段”)

x(7) = rs(“主设备类型”)

x(8) = rs(“设备代维公司”)

x(9) = rs(“TRU_MO”)

x(10) = rs(“TRU_STS”)

x(11) = rs(“T完好率”)

x(12) = rs(“定义信道”)

x(13) = rs(“可用信道”)

x(14) = rs(“话务量”)

x(15) = rs(“F话务量”)

x(16) = rs(“H话务量”)

x(17) = rs(“平均分配PDCH”)

x(18) = rs(“混合话务量”)

x(19) = rs(“STRU数”)

x(20) = rs(“配置EPDCH数”)

x(21) = rs(“EPDCH分配数”)

x(22) = rs(“EPDCH复用度”)

x(23) = rs(“统计时段数”)

x(24) = rs(“平均混合话务量”)

ActiveWorkbook.Sheets(2).Cells(j, 1) = Mid(x(0), 1, 6)

ActiveWorkbook.Sheets(2).Cells(j, 2) = Mid(x(1), 1, 8)

For q = 1 To 10 ‘每次从数据库中取出一行，字段“cell”列的数据就同A1：A10进行比较，如果相同K=1，那么输出到表格里

If ActiveWorkbook.Sheets(2).Cells(q, 1) = x(3) Then

k = 1

Else

k = 0

End If

Next q

If k = 1 Then

For m = 3 To 25

ActiveWorkbook.Sheets(2).Cells(j, m) = x(m – 1)

Next m

End If

j = j + 1

‘读取数据库下一条信息

rs.MoveNext

Loop

rs.Close

End Function

VB6程序查询数据库

你这个问题问的模糊，比如没说数据库是什旅穗洞么种类，不同的数据有不同的族携连接方式，如果数据库内容小，还可以全部直接读取到内存中，任你使用

我擅长使用EXCEL，其他数据库不喜欢用，工作中拆枯用不到

数据量不大，又是ACCESS，推荐使用VB6+ACCESS VBA 组合，很好用，还不容易出错

先引用 MC ACCESS 11.O 库，

然后打开该数据库

把数据库中数据全部读入到MSFLEXGRID 控件，然后任你查询。

既然是多方式模糊查询，那么必须具备几个条件：

1、首先有查询方式的选择框，还有查询需要的关键字的输入框；

2、模糊查询结果不是一条记录，那么必须将查询出的所有结果在列表框控件中显示出来；

3、点击列表框中的一条记录，在文本框中显示这条记录的详细内容。毕燃

我比较喜欢念数竖用MSFlexGrid控件显示查询仔大结果，下面给你一个比较实用的范例：

Private Sub Command1_Click() ‘查询

If Combo1.Text = “” Then

MsgBox “你没有选择查询方式，请选择！”, 16, “错误！”

Exit Sub

End If

If Text1.Text = “” Then

MsgBox “你没有填写关键字，请填写！”, 16, “错误！”

Exit Sub

End If

If Combo1.Text = “查询条件1” Then

strSQL = “Select * From 数据表名 字段名1 Like ‘%” & Text1.Text & “%'”

ElseIf Combo1.Text = “查询条件2” Then

strSQL = “Select * From 数据表名 Where 字段名2 Like ‘%” & Text1.Text & “%'”

ElseIf Combo1.Text = “查询条件3” Then

strSQL = “Select * From 数据表名 Where 字段名3 Like ‘%” & Text1.Text & “%'”

End If

Call SJK(db) ‘数据库连接函数

RS.Open strSQL, db, 2, 2

Do While Not RS.EOF

SST = SST + 1

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

If SST = 0 Then

MsgBox “你没有你查询的记录！”, 16, “无记录！”

With MSFlexGrid1

.Cols = 3

.Rows = 1

.TextMatrix(0, 0) = ” 序号”

.TextMatrix(0, 1) = ” 姓名”

.ColWidth(0) = 1000

.ColWidth(1) = 1000

.ColWidth(2) = 0

End With

db.Close

Set db = Nothing

Exit Sub

End If

With MSFlexGrid1

.Cols = 3

.Rows = SST + 1

.TextMatrix(0, 0) = ” 序号”

.TextMatrix(0, 1) = ” 姓名”

.ColWidth(0) = 1000

.ColWidth(1) = 1000

.ColWidth(2) = 0

RS.Open strSQL, db, 2, 2

For I = 1 To SST

.TextMatrix(I, 0) = I

.TextMatrix(I, 1) = RS!姓名

If Option1(0).Value = True Then

.TextMatrix(I, 2) = RS!SID

ElseIf Option1(1).Value = True Then

.TextMatrix(I, 2) = RS!SID

ElseIf Option1(2).Value = True Then

.TextMatrix(I, 2) = RS!SID

ElseIf Option1(3).Value = True Then

.TextMatrix(I, 2) = RS!ZID

ElseIf Option1(4).Value = True Then

.TextMatrix(I, 2) = RS!SID

End If

RS.MoveNext

Next I

RS.Close

Set RS = Nothing

End With

db.Close

Set db = Nothing

Label1(2).Caption = “本次查询结果” & SST & “条”

End Sub

Private Sub MSFlexGrid1_Click()

If Not Val(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2))) = 0 Then

PKID = Val(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)))

Call SJK(db)

strSQL = “select * from 数据表名 Where ID=” & PKID & ” Order By ID”

RS.Open strSQL, db, 3, 3

Text2(0).Text = RS!字段1

Text2(1).Text = RS!字段2

Text2(2).Text = RS!字段3

Text2(3).Text = RS!字段4

Text2(4).Text = RS!字段5

Text2(5).Text = RS!字段6

Text2(6).Text = RS!字段7

Text2(7).Text = RS!字段8

RS.Close

Set RS = Nothing

db.Close

Set db = Nothing

End If

End Sub

要查询,自然要用SQL语句,既然用SQL语句了,

要模糊查询很简单,有个textbox来输入关键字

使用 sql select * from 表 where 关键字段 like textbox.text

如果是模糊查询,那么返回的结果肯定不是一条,表现形兆圆式更好是用listview 选lvvreport

Private Sub txtCZ_Change()

SQL = “select * from 基础档案”

SQL = SQL & ” where 姓名 like ‘%” & Me.txtCZ.Text & “%’ or PY like ‘%” & Me.txtCZ.Text & “%’ ORDER BY zybid ASC”

Call addLIST

End Sub

Private Sub TXTZTC_Change()

SQL = “select * from 基斗猜誉础档案”

SQL = SQL & ” where 原单位 like ‘%” & Me.Txtztc.Text & “%’ ORDER BY zybid ASC”空段

Call addLIST

End Sub

Private Sub addLIST()

Me.ListView1.ListItems.Clear

Call OpenConn

rs.Open SQL, cn, 1, 1

Do While Not rs.EOF

Set addLVW = Me.ListView1.ListItems.Add(, , rs!zybid, , 1)

addLVW.SubItems(1) = rs!PY

addLVW.SubItems(2) = rs!主管部门

addLVW.SubItems(3) = rs!姓名

addLVW.SubItems(4) = rs!身份证号

addLVW.SubItems(5) = rs!年龄

addLVW.SubItems(6) = rs!性别

addLVW.SubItems(7) = rs!类别

addLVW.SubItems(8) = rs!原单位

addLVW.SubItems(9) = rs!家庭住址

addLVW.SubItems(10) = rs!家庭

addLVW.SubItems(11) = rs!手机号码

rs.MoveNext

Loop

Call CloseConn

End Sub

vba sql多表连接查询数据库的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba sql多表连接查询数据库,VBA与SQL多表连接查询数据库,EXCEL VBA怎么读写SQLSERVER 数据库,VB6程序查询数据库的信息别忘了在本站进行查找喔。