VB 查询问题

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

为什么我无论输入登记了的号码还是输入没有登记的号码都显示没有登记，我那里做错了，请高手指点

If len( thisproxid) > 0 Then '如果是有效的卡号
改行Adodc1.Recordset.Find "proxid='" + thisproxid + "'", , , 1

为sql查询，where 一下，不要把全部的卡号去取出来，省点内存吧

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息