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

如题所述

第1个回答 2017-06-11

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追答

加不上

追问

验证林子悠

你的是多少呢，我加你可以么

本回答被提问者和网友采纳

相似回答

vb调用access数据库,并将查询内容写入excel表中答：Sql = "SELECT * FROM Table " '数据库查询语句 'Debug.Print Sql Set vrs = vCnn.Execute(Sql)'这部分是我的原始代码 vrs.MoveFirst '循环生成所需要的文件 While Not vrs.EOF product = vrs.Fields(0)grade = vrs.Fields(1)Set xlBook = xlApp.Workbooks.Add(Temp)'运行模板中已经存在...

EXCEL 人名模糊查询功能(VB能实现也可以!)答：End Function A=Ucase(Range("c" & 1).Value) *读写c1单元格的数据(我在网站上面看的,因为不是自己的电脑,没有vb,无法验证)Z=len(a)-1 *z=字符串的长度-1,因为数组都是从0开始计算的 Dim b(z) as integer For i=0 to z *循环,把输入的字符串给单个的提取出来放入数组中...

vb读写access数据库答：现将你的代码做如下修改，已经过调试通过 Dim nConn As New ADODB.Connection Dim nRs As New ADODB.Recordset nConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=111.mdb;Persist Security Info=False"nRs.Open "Select * form 表1 Teachers where ID=1", nConn, 3, 3 '读数据 Tex...

求高手帮忙逐行注释一下VB这一段的代码, 小弟急需要用,谢谢各位了十 ...答：逐行没必要了，帮你注释下主要的 Private Sub ShowPage(rs As Recordset, nPage As Integer)rs.AbsolutePage = nPage '指定当前记录所在的页,这里最好做rs.recorecound>0判断防止出错 lv.ListItems.Clear ’索引清空 Dim item As ListItem For i = 1 To 40 ’循环 If rs.EOF = True Then '...

关于vb.net连接Access数据库的问题,老出错!请各位高手帮忙!答：Select * from User where Username='" & UserName.Text & "'" 试试 UserName.Text是一个变量，本来就是字符串，外面不能用双引号，否则变成常量了。单引号也要分开到两边，不能跟UserName.Text放一起。下面那句也要改成"Select Password from User where Username='" & UserName.Text & "'"...

VB用SQL访问ACCESS的一个问题～答：rs.open sql,cn,1,1 你这个只是打开了数据库，提交了语句。你还需要填充记录集。用控件显示出结果的。

如何使用VB对ACCESS数据库表中某字段进行统计答：加入用data(取名为data1）控件连接数据库的话，用DBGrid控件显示数据，筛选性别为男的数据，统计个数，在DBGrid控件中显示出来。先将DBGrid控件的datasource属性设置为data1，data1.recordsource="Select * From 表一 where 性别='男'"这一条语句就会使DBGrid显示筛选结果，如要统计数量，则：Form3.msf1...

VB ACCSEE数据库中添加记录时怎么设置数据库的行?意思就是我在数据...答：是两个数据库还是同一个Access里的两张表？如果是不同表的话，则这样设置：Update 表1 set 表1.成绩=表2.成绩 where 表1.学号 in (select 学号 from 表2）

急急急,vb以时间段来查询access数据库问题答："' order by 日期"Adodc1.RecordSource = "select * from 表名 where 日期>'" + Str(DTPicker1.Value) + "' and 日期<' " + Str(DTPicker2.Value) + "' order by 日期"Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 上面代码如果有问题,可以尝试下把select语句中的' 换成 ...

大家正在搜

vb连接sqlserver数据库 vb连接access数据库实例 vb连接数据库access VB连接数据库做一个登录窗体 vb连接数据库代码 vb怎么连接数据库查询 vb连接sql数据库实例 vb连接oracle数据库 vb如何连接mysql数据库