数据库查询代码如下,但我查找时总说没有符合条件的记录,请大家帮个小忙,走过路过,不要错过

mingnianjinri 2004-05-05 01:46:41
Private Sub Command1_Click()
Dim msg
msg = Trim(InputBox("请输入职工编号", "查询", 1))
msg = "职工编号 like '%" & msg & "%' "
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
...全文
7 1 点赞 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yinweihong 2004-05-05
do while not data1.record.eof
Data1.Recordset.FindFirst msg

data1.recordset.movenext
loop
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1190

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-05 01:46
社区公告
暂无公告