VB6.0基于ADO连接access踩坑之数据库不显示数据

VB6.0连接数据库就可以实现完美的信息软件系统，无论是汇总、查询、添加、删除均可以操作，这对于当前大数据时代，这个应用在当前阶段完全不过时。本篇文章只是单纯解决问题，ADO如何连接数据库，这里不做详细描述，详情大家可以在相关网站，搜索“详细了解VB连接access”等内容，均可以了解到。

先放上一个完整的有效代码，大家按这个代码可以实现数据库的完美连接和数据记录。

Private Sub Command1_Click()
Dim adoN As New ADODB.Connection
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\你的数据库名字.mdb" & ";Persist Security Info=False"
adoN.Open strcnn '打开数据库
Dim adoR As New ADODB.Recordset
Set adoR.ActiveConnection = adoN '连接连接对象
adoR.CursorType = adOpenKeyset '设置游标类型
adoR.LockType = adLockOptimistic '设置锁定类型： 开放式 逐条
SQLs = "SELECT * FROM 表格"
adoR.Open (SQLs)  '打开记录
adoR.AddNew '添加
'adoR("ID") = 自动编号
adoR.Fields("表格列名").Value = Trim(Text1.Text)
MsgBox ("数据保存成功")
adoR.Update
adoR.Close
End Sub

重点来了，各位如果有遇到数据库已经连接上，但唯独不显示记录，那么请注意你的代码中是否有adoR.Update，添加上它后，完美实现。