上一节我们部署了数据库的连接VB数据保存到数据库简单吗？主要还是掌握方法，这节我直接调用，就可以将数据保存到库里了，先看一下，我已在根目录已创建了一个MDB数据库，库中有一个“用户表”，表中有5个字段，
打开上节课的工程，设计一个提交数据的窗体，
双击“保存”按钮，进入单击事件编写代码，
Private Sub Command1_Click() “保存”单击事件If OpenConn = 0 Then Exit Sub 判断，上节已写好的 OpenConn 函数过程，如果返回 0 ，那么数据库打开失败了，则退出过程如果打开成功Set Rs = New ADODB.Recordset 设置新记录集类模块Rs.Open "select * from 用户表", Db, 1, 3 打开记录集 Rs.AddNew 新增记录 Rs!姓名 = Text1.Item(0).Text 保存姓名到字段 Rs!性别 = Text1.Item(1).Text 保存性别到字段 Rs!电话 = Text1.Item(2).Text 保存电话到字段 Rs!地址 = Text1.Item(3).Text 保存地址到字段 Rs.Close 关闭记录集Set Rs = Nothing 清除记录集对象Call CloseConn 关闭数据库MsgBox "保存成功", 64, "完成" 提示信息End Sub 结束事件过程
这样数据就可以保存到库中了。
另外有个事需要大家纠正一下，由于上节课模块中声明的两个变量：
DimDb As New ADODB.Connection 声明新的 ADO 连接类模块Dim Rs As New ADODB.Recordset 声明新的 ADO 记录集类模块
此两个变量需要在整个工程使用的，所以我们需要改为公有声明
PublicDb As New ADODB.Connection 声明新的 ADO 连接类模块Public Rs As New ADODB.Recordset 声明新的 ADO 记录集类模块
Dim改为 Public。
下一节我们学习如何读取数据，注意关注。
如果觉得《VB保存数据到Access数据库中 ADO操作实例》对你有帮助，请点赞、收藏，并留下你的观点哦！
