VB 对数据库access的模糊查询代码

Option Explicit

Dim conn As New ADODB.Connection '定义connection 对象

Dim rs As New ADODB.Recordset

Private Sub Form_Load() '初始化程序

Set conn = New ADODB.Connection   '分配一个connection对象

Set rs = New ADODB.Recordset  '分配一个recordset对象

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data source=" & App.Path & "\tjn.mdb;" & _

"Persist Security Info=False"  '设置连接字符串

conn.Open  '打开连接

rs.Open "person", conn, , adCmdTable '打开数据表EmTabl

Set MSHFlexGrid1.DataSource = rs  '打开数据控制源为rs对象

rs.Close   '关闭recordset对象

conn.Close '关闭connection对象

End Sub

Private Sub MSHFlexGrid1_RowColChange()       '当点击里面的文本时候会将选择的文本进行操作

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data source=" & App.Path & "\tjn.mdb;" & _

"Persist Security Info=False"  '设置连接字符串

conn.Open  '打开连接

rs.Open "select * from person where address='10' and datt like '2018/7/11%'", conn, adOpenKeyset

If rs.RecordCount > 0 Then

Text2.Text = "日期：" & rs.Fields(0) & "编号：" & rs.Fields(1) & "基站：" & rs.Fields(2)

End If

rs.Close

conn.Close

End Sub