230问答网 > 请高手帮忙写一段VB连接Access数据库的代码，需要实现模糊查询的功能！表的名字query

请高手帮忙写一段VB连接Access数据库的代码，需要实现模糊查询的功能！表的名字query

2025-03-21 16:35:57

推荐回答（1个）

回答1：

public sub connection()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
dim sqlStr as String
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"
cn.Open
sqlStr = ""select * From query where name like" & "%" &你的条件&"%"
rs.Open sqlStr, cn, sqlStr,adOpenStatic, adLockPessimistic
debug.print rs.Fields(0)
end sub