VB一个简单的小问题！！

显示全部楼层 · 2011-5-21 11:48:37

做了一个用户名与密码登陆界面，用了这两个函数判断用户名与密码

FunctionSearchData1(Schstr$)AsBoolean
SearchData1=False
rs.MoveFirst
rs.Find\"usernm=\"defds123Chr(39)defds123Schstrdefds123Chr(39)
IfNotrs.EOFThenSearchData1=True
EndFunction
下面一个函数和上面一个一样，只是将数据表中的用户名字段usernm改成了passw
FunctionSearchData2(Schstr$)AsBoolean
SearchData2=False
rs.MoveFirst
rs.Find\"passw=\"defds123Chr(39)defds123Schstrdefds123Chr(39)
IfNotrs.EOFThenSearchData2=True
EndFunction
问题：运行后，发现只要用户名和密码在数据库中存在，那就能登陆系统，所以这个是失败的。
请问该怎样改？问题所在是rs.Find？有没有更好的方法？find是查找，有没有直接就是判断的？
不知道有没有人回答，暂时不加分，回答满意会加分的

千问 · 2011-5-21 11:48:37

FunctionSearchData1(Schstr1$,Schstr2$)AsBoolean
SearchData1=False
rs.MoveFirst
rs.Find\"usernm=\"defds123Chr(39)defds123Schstr1defds123Chr(39)
IfNotrs.EOFandrs.Fields!passw=Schstr2ThenSearchData1=True
EndFunction
调用时ifSearchData1(text1.text,text2.text)Then

一定可用！