摘要：前端数据库只包含一个窗体，窗体中输入查询的员工号，可以从后端数据库获取该员工信息，返回到前端窗体显示
前端数据库只包含一个窗体，窗体中输入查询的员工号，可以从后端数据库获取该员工信息，返回到前端窗体显示
前端
后端数据库用于存储数据，当前存储查询的表【员工表】，可以设置数据库打开密码，保证前后端分离数据的安全性。
后端
ADO引用
代码中使用ADO对象前需要设置ADO引用，勾选ADO对象引用
Option Compare Database
Private Sub Command查询_Click
' 当点击查询按钮时，触发该子过程
If Me.员工号 "" Then
' 如果表单中的员工号字段不为空，继续执行后续代码
Call 获取员工信息(Me.员工号)
Else
' 否则（员工号为空）
MsgBox "请输入查询的员工号"
' 弹出提示信息，要求用户输入员工号
Exit Sub
' 退出子过程
End If
End Sub
Sub 获取员工信息(ByVal yg_num As String)
' 定义用于获取员工信息的子过程
On Error GoTo 查询失败错误
' 设置错误处理程序，当发生错误时跳转到“查询失败错误”标签处
Dim db_pathname As String '定义变量存储路径
db_pathname = "C:\Users\liang\Desktop\前后端示例\后端.accdb"
' 定义数据库文件的路径
Dim search_conn As New ADODB.Connection
' 创建一个新的数据库连接对象
Dim search_rs As New ADODB.Recordset
' 创建一个新的记录集对象
With search_conn
.Provider = "microsoft.ace.oledb.12.0;Jet OLEDB:Database Password='aaa123'"
' 设置数据库提供程序为 Access，并指定数据库密码
.ConnectionString = db_pathname
' 设置数据库的连接字符串为数据库文件路径
.Open
' 打开数据库连接
End With
Dim search_SQL As String
' 定义一个字符串变量，用于存储查询 SQL 语句
search_sql = "Select * From 员工表 Where 员工号='" & yg_num & "'"
' 构建 SQL 查询语句，根据表单中的员工号字段查询员工表的对应记录
search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic
' 打开记录集，执行查询，并设置记录集的打开方式和锁定类型
If search_rs.EOF = False Then
' 如果记录集的指针不在末尾（表示查询返回了记录）
员工号.Value = search_rs!员工号.Value
' 将查询结果的员工号字段值赋给表单中的员工号控件
姓名.Value = search_rs!姓名.Value
' 将查询结果的姓名字段值赋给表单中的姓名控件
性别.Value = search_rs!性别.Value
' 将查询结果的性别字段值赋给表单中的性别控件
部门.Value = search_rs!部门.Value
' 将查询结果的部门字段值赋给表单中的部门控件
职位.Value = search_rs!职位.Value
' 将查询结果的职位字段值赋给表单中的职位控件
联系方式.Value = search_rs!联系方式.Value
' 将查询结果的联系方式字段值赋给表单中的联系方式控件
工资.Value = search_rs!工资.Value
' 将查询结果的工资字段值赋给表单中的工资控件
Else
' 如果记录集的指针在末尾（表示查询未返回记录）
姓名.Value = ""
' 清空表单中的姓名控件
性别.Value = ""
' 清空表单中的性别控件
部门.Value = ""
' 清空表单中的部门控件
职位.Value = ""
' 清空表单中的职位控件
联系方式.Value = ""
' 清空表单中的联系方式控件
工资.Value = ""
' 清空表单中的工资控件
MsgBox "未找到对应员工信息"
' 弹出提示信息，告知用户未找到对应员工信息
End If
search_rs.Close
' 关闭记录集
Set search_rs = Nothing
' 释放记录集对象
search_conn.Close
' 关闭数据库连接
Set search_conn = Nothing
' 释放数据库连接对象
Exit Sub
' 退出子过程
查询失败错误:
' 错误处理代码块
MsgBox Err.Description
' 弹出错误信息，显示错误的详细描述
End Sub
来源：麟哥爱科技