access数据库前后端分离技术:前端录入数据添加至后端表
yund56 2025-03-30 18:36 12 浏览
在前端窗体界面添加数据,完成后端点击【添加按钮】
添加成功,在后端表已添加前端录入的数据
【代码分享和注释说明】
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
' 子过程结束
- 上一篇:高中数学,对数函数的一些易错点来了,一起来检验一下
- 下一篇:前端开发后端开发
相关推荐
- SM小分队Girls on Top,女神战队少了f(x)?
-
这次由SM娱乐公司在冬季即将开演的smtown里,将公司的所有女团成员集结成了一个小分队project。第一位这是全面ACE的大姐成员权宝儿(BoA),出道二十年,在日本单人销量过千万,韩国国内200...
- 韩国女团 aespa 首场 VR 演唱会或暗示 Quest 3 将于 10 月推出
-
AmazeVR宣布将在十月份举办一场现场VR音乐会,观众将佩戴MetaQuest3进行体验。韩国女团aespa于2020年11月出道,此后在日本推出了三张金唱片,在韩国推出了...
- 韩网热议!女团aespa成员Giselle在长腿爱豆中真的是legend
-
身高163的Giselle,长腿傲人,身材比例绝了...
- 假唱而被骂爆的女团:IVE、NewJeans、aespa上榜
-
在韩国,其实K-pop偶像并不被认为是真正的歌手,因为偶像们必须兼备舞蹈能力、也经常透过对嘴来完成舞台。由于科技的日渐发达,也有许多网友会利用消音软体来验证K-pop偶像到底有没有开麦唱歌,导致假唱这...
- 新女团Aespa登时尚大片 四个少女四种style
-
来源:环球网
- 韩国女团aespa新歌MV曝光 画面梦幻造型超美
-
12月20日,韩国女团aespa翻唱曲《DreamsComeTrue》MV公开,视频中,她们的造型超美!WINTER背后长出一双梦幻般的翅膀。柳智敏笑容甜美。宁艺卓皮肤白皙。GISELLE五官精致...
- 女网友向拳头维权,自称是萨勒芬妮的原型?某韩国女团抄袭KDA
-
女英雄萨勒芬妮(Seraphine)是拳头在2020年推出的第五位新英雄,在还没有正式上线时就备受lsp玩家的关注,因为她实在是太可爱了。和其他新英雄不同的是,萨勒芬妮在没上线时就被拳头当成虚拟偶像来...
- 人气TOP女团是?INS粉丝数见分晓;TWICE成员为何在演唱会落泪?
-
现在的人气TOP女团是?INS粉丝数见分晓!现在爱豆和粉丝之间的交流方法变得多种多样,但是Instagram依然是主要的交流手段。很多粉丝根据粉丝数评价偶像的人气,拥有数百、数千万粉丝的组合作为全球偶...
- 韩国女团MVaespa Drama MV_韩国女团穿超短裙子跳舞
-
WelcometoDrama.Pleasefollow4ruleswhilewatchingtheDrama.·1)Lookbackimmediatelywhenyoufe...
- aespa师妹团今年将出道! SM职员亲口曝「新女团风格、人数」
-
记者刘宛欣/综合报导南韩造星工厂SM娱乐曾打造出东方神起、SUPERJUNIOR、少女时代、SHINee、EXO等传奇团体,近年推出的aespa、RIIZE更是双双成为新生代一线团体,深受大众与粉丝...
- 南韩最活跃的女团aespa,新专辑《Girls》即将发布,盘点昔日经典
-
女团aespa歌曲盘点,新专辑《Girls》即将发布,期待大火。明天也就是2022年的7月8号,aespa新专辑《Girls》即将发行。这是继首张专辑《Savage》之后,时隔19个月的第二张专辑,这...
- 章泽天女团aespa出席戛纳晚宴 宋康昊携新片亮相
-
搜狐娱乐讯(山今/文玄反影/图科明/视频)法国时间5月23日晚,女团aespa、宋康昊、章泽天等明星亮相戛纳晚宴。章泽天身姿优越。章泽天肩颈线优越。章泽天双臂纤细。章泽天仪态端正。女团aespa亮...
- Aespa舞台暴露身高比例,宁艺卓脸大,柳智敏有“TOP”相
-
作为SM公司最新女团aespa,初舞台《BlackMamba》公开,在初舞台里,看得出来SM公司是下了大功夫的,虽然之前SM公司新出的女团都有很长的先导片,但是aespa显然是有“特殊待遇”。运用了...
- AESPA女团成员柳智敏karina大美女
-
真队内速度最快最火达成队内首个且唯一两百万点赞五代男女团中输断层第一(图转自微博)...
- 对来学校演出的女团成员语言性骚扰?韩国这所男高的学生恶心透了
-
哕了……本月4日,景福男子高中相关人士称已经找到了在SNS中上传对aespa成员进行性骚扰文章的学生,并开始着手调查。2日,SM娱乐创始人李秀满的母校——景福高中迎来了建校101周年庆典活动。当天,S...
- 一周热门
- 最近发表
-
- SM小分队Girls on Top,女神战队少了f(x)?
- 韩国女团 aespa 首场 VR 演唱会或暗示 Quest 3 将于 10 月推出
- 韩网热议!女团aespa成员Giselle在长腿爱豆中真的是legend
- 假唱而被骂爆的女团:IVE、NewJeans、aespa上榜
- 新女团Aespa登时尚大片 四个少女四种style
- 韩国女团aespa新歌MV曝光 画面梦幻造型超美
- 女网友向拳头维权,自称是萨勒芬妮的原型?某韩国女团抄袭KDA
- 人气TOP女团是?INS粉丝数见分晓;TWICE成员为何在演唱会落泪?
- 韩国女团MVaespa Drama MV_韩国女团穿超短裙子跳舞
- aespa师妹团今年将出道! SM职员亲口曝「新女团风格、人数」
- 标签列表
-
- filter函数js (37)
- filter函数excel用不了 (73)
- 商城开发 (40)
- 影视网站免费源码最新版 (57)
- 影视资源api接口 (46)
- 网站留言板代码大全 (56)
- java版软件下载 (52)
- java教材电子课本下载 (48)
- 0基础编程从什么开始学 (50)
- java是用来干嘛的 (51)
- it入门应该学什么 (55)
- java线上课程 (55)
- 学java的软件叫什么软件 (38)
- 程序开发软件有哪些 (53)
- 软件培训 (59)
- 机器人编程代码大全 (50)
- 少儿编程教程免费 (45)
- 新代系统编程教学 (61)
- 共创世界编程网站 (38)
- 亲测源码 (36)
- 三角函数积分公式表 (35)
- 函数的表示方法 (34)
- 表格乘法的公式怎么设置 (34)
- sumif函数的例子 (34)
- 图片素材 (36)
