在前端窗体界面添加数据，完成后端点击【添加按钮】

添加成功，在后端表已添加前端录入的数据

【代码分享和注释说明】

Private Sub Command添加_Click()

' 定义按钮点击事件 "Command添加"

On Error GoTo 添加失败错误

' 如果代码运行过程中发生错误，跳转到 "添加失败错误" 标签处执行

If 员工号 = "" Or IsNull(员工号) = True Then

' 检查变量“员工号”是否为空或为 Null

MsgBox "员工号值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

If 姓名 = "" Or IsNull(姓名) = True Then

' 检查变量“姓名”是否为空或为 Null

MsgBox "姓名值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

If 性别 = "" Or IsNull(性别) = True Then

' 检查变量“性别”是否为空或为 Null

MsgBox "性别值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

If 部门 = "" Or IsNull(部门) = True Then

' 检查变量“部门”是否为空或为 Null

MsgBox "部门值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

If 职位 = "" Or IsNull(职位) = True Then

' 检查变量“职位”是否为空或为 Null

MsgBox "职位值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

If 联系方式 = "" Or IsNull(联系方式) = True Then

' 检查变量“联系方式”是否为空或为 Null

MsgBox "联系方式值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

If 工资 = "" Or IsNull(工资) = True Then

' 检查变量“工资”是否为空或为 Null

MsgBox "工资值为空！"

' 如果为空，弹出提示框

Exit Sub

' 退出子过程

End If

Dim db_pathname As String

' 定义字符串变量 db_pathname，用于存储数据库文件路径

db_pathname = "C:\Users\liang\Desktop\前后端示例\后端.accdb"

' 初始化数据库路径

Dim add_conn As New ADODB.Connection

' 定义一个 ADODB.Connection 对象，用于连接数据库

Dim add_rs As New ADODB.Recordset

' 定义一个 ADODB.Recordset 对象，用于操作数据库中的记录

With add_conn

' 使用 With 语句操作 add_conn 对象

.Provider = "microsoft.ace.oledb.12.0;Jet OLEDB:Database Password='aaa123'"

' 设置数据库提供程序为 Access，并指定数据库密码

.ConnectionString = db_pathname

' 设置数据库的连接字符串为指定路径

.Open

' 打开数据库连接

End With

add_rs.Open "员工表", add_conn, adOpenKeyset, adLockOptimistic

' 打开数据库中的“员工表”，以允许修改和动态查看的方式（adOpenKeyset 和 adLockOptimistic）

add_rs.AddNew

' 添加一个新记录到当前游标位置

On Error Resume Next

' 启用错误处理，忽略运行时错误并继续执行后续代码

With add_rs

' 使用 With 语句操作 add_rs 对象

add_rs!员工号.Value = 员工号.Value

' 将表单中的“员工号”值赋给新记录的“员工号”字段

add_rs!姓名.Value = 姓名.Value

' 将表单中的“姓名”值赋给新记录的“姓名”字段

add_rs!性别.Value = 性别.Value

' 将表单中的“性别”值赋给新记录的“性别”字段

add_rs!部门.Value = 部门.Value

' 将表单中的“部门”值赋给新记录的“部门”字段

add_rs!职位.Value = 职位.Value

' 将表单中的“职位”值赋给新记录的“职位”字段

add_rs!联系方式.Value = 联系方式.Value

' 将表单中的“联系方式”值赋给新记录的“联系方式”字段

add_rs!工资.Value = 工资.Value

' 将表单中的“工资”值赋给新记录的“工资”字段

End With

add_rs.Update

' 保存当前新记录的更改到数据库

add_rs.Close

' 关闭 Recordset 对象

Set add_rs = Nothing

' 释放 Recordset 对象资源

add_conn.Close

' 关闭数据库连接

Set add_conn = Nothing

' 释放 Connection 对象资源

MsgBox "添加完成！"

' 弹出提示框，显示“添加完成！”

Exit Sub

' 退出子过程

添加失败错误:

' 错误处理标签

MsgBox Err.Description

' 弹出提示框，显示错误信息

End Sub

' 子过程结束