发布网友 发布时间:2022-10-11 15:42
共1个回答
热心网友 时间:2023-10-13 16:55
首先打开表yuangong,假设 Res 是所打开的数据库表的记录集对象,再假设你输入工号是在文本框text1中进行,那么(下面就接以下代码操作即可达到你的目的):
Res.Filter = "gonghao = '" & Trim(Text1.Text) & "'" '在这里设置精确查询的过滤条件
If Trim(Text1.Text) = Res.Fields("gonghao") Then
msgbox "通过验证"
else
msgbox "工号不存在"
end if
以上的用法是我的某些软件中正使用着的方案,另外建议:你除了比对完用户名或工号之后,你应该紧接着比对密码才是哦。所谓“用户名”与“密码”是成对的哦。 如下图所示: