| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 431 人关注过本帖
标题:模糊查询
只看楼主 加入收藏
xxyyx82
Rank: 1
等 级:新手上路
帖 子:22
专家分:3
注 册:2015-7-16
结帖率:50%
  问题点数:0  回复次数:2   
模糊查询
程序代码:
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Sub mysql()
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123456;Data Source=" & App.Path & "\FData.mdb"
End Sub

Private Sub Command1_Click()
List1.Clear
Call mysql
rs.Open "select * from [FileData] Where FileNamemy Like '" & Text1.Text & "%'", cn, 1, adLockReadOnly
Label1.Caption = rs.RecordCount
Do Until rs.EOF = True
List1.AddItem rs.Fields("FileNamemy")
rs.MoveNext
Loop
cn.Close
End Sub


模糊查询,看看哪里错了,换用"*"通配符不行
MDB附件已上传



附件: 您没有浏览附件的权限,请 登录注册
2018-02-28 19:58
xxyyx82
Rank: 1
等 级:新手上路
帖 子:22
专家分:3
注 册:2015-7-16
  得分:0 
VB的问题,调试状态下异常,生成EXE后正常
重新安装VB,已正常

2018-03-01 11:42
PandaHero
Rank: 1
等 级:新手上路
威 望:1
帖 子:5
专家分:2
注 册:2016-3-29
  得分:0 
那可以自己结贴了   
2018-03-07 08:56







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026886 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved