Private Sub call_server()
ic_st = 1
thisproxid = read_iccard '获取卡号
'thisproxid = "1234567890"
If thisproxid > "0" Then '如果是有效的卡号
Adodc1.Recordset.Find "proxid='" + thisproxid + "'", , , 1
If Adodc1.Recordset.EOF Then '找不到卡号
rc = sndPlaySound("no.wav", SND_ASYNC)
disp$ = thisproxid + " 还没登记!"
Text1.Text = disp$
MSHFlexGrid1.AddItem ".", 1
MSHFlexGrid1.TextMatrix(1, 1) = disp$
Else
MsgBox "登陆成功"
End If
End If
End Sub
为什么我无论输入登记了的号码还是输入没有登记的号码都显示没有登记,我用的是MYSQL数据库。我那里做错了,请高手指点
求助VB查询数据问题
答案:2 悬赏:0 手机版
解决时间 2021-04-29 02:32
- 提问者网友:半生酒醒
- 2021-04-28 03:24
最佳答案
- 五星知识达人网友:千杯敬自由
- 2021-04-28 04:01
Adodc1.Recordset.Find "proxid='" + thisproxid + "'", , , 1
改成
Adodc1.Recordset = "select * from tb where proxid='" & thisproxid & "'"
Adodc1.Refresh
全部回答
- 1楼网友:第四晚心情
- 2021-04-28 05:36
不错!
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯