1,217
社区成员
发帖
与我相关
我的任务
分享数据库查询代码如下,但我查找时总说没有符合条件的记录,请大家帮个小忙,走过路过,不要错过
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
Dim msg
msg = Trim(InputBox("请输入职工编号", "查询", 1))
msg = "职工编号 like '%" & msg & "%' "
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
...全文
请发表友善的回复…
发表回复
yinweihong 2004-05-05
- 打赏
- 举报
do while not data1.record.eof
Data1.Recordset.FindFirst msg
data1.recordset.movenext
loop
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
Data1.Recordset.FindFirst msg
data1.recordset.movenext
loop
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
前言 帮小忙关键在于漂亮和高效。 帮大忙最重要的则是隐秘和周到。 ｜什么是帮小忙？ 帮小忙的特点是： ...不需要动大额的钱 ...需要求助的时候，求助于帮过自己的大忙的人，或者帮过对方小忙的人...
