如果执行这个语句返回的值大于0
说明数据库中存在此用户
Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么 *** 作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2) '把字段year显示给textbox2else msgbox "数据库没有检索到你要搜索的记录!",vbokonly,"提示" end ifADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)