在vb中 实现对ACCESS数据 查询

来源：百度知道 编辑：UC知道 时间：2024/09/20 16:36:06
我已经把VB和数据库连接起来了，
在VB中输入的信息会保存到ACCESS中，
但现在想做一个查询功能，

但是思路没有，
不知道该怎样写代码，

知道的帮个忙，
告诉我该怎样想，怎样写代码，
本人虚心求教
做出来的效果是，
能通过某个字段（ACCESS里也有相同的字段）来搜索，
然后把搜寻到的结果显示在VB里的listview里

Public Function ConnAccess() As Boolean 'Access数据库连函数
Dim conStr As String
Dim dbName As String
dbName = App.Path & "\data.mdb" '数据库路径
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False;Jet OLEDB:Database Password=123456"
Set dbConn = New ADODB.Connection '定义一个ADODB连接对象
If dbConn.State <> adStateOpen Then '判断ADODB连接是否打开
dbConn.Open conStr '如果不是打开状态 就打开连接
End If
ConnAccess = True
End Function

Public Function CloseAccess() As Boolean '关闭数据库连接
If dbConn.State = adStateOpen Then
dbConn.Close: Set dbConn = Nothing
End If
End Function

Private Sub Commond1_Click()
Dim rs As ADODB.Recordset
Dim Strsql As String
Call ConnAccess
listview.Clear
Set rs = New ADODB.Recordset
Strsql = "