以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据库读取用户名和密码进行比较  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114542)
--  作者：有点色
--  发布时间：2018/2/8 17:31:00
--  

比如

 

Dim dr As DataRow
dr = DataTables("表A").Find("第一列 = \'" & UserName & "\'")  
If dr isnot Nothing AndAlso Password = dr("password") Then
    Verified  = True
End If
--  作者：有点色
--  发布时间：2018/2/8 17:55:00
--  
如何格式的表格，都是可以的，改成你的表名，改成你的列名即可。
--  作者：有点色
--  发布时间：2018/2/8 17:59:00
--  

如果你用config的，参考这里

 

Dim dr As DataRow
dr = DataTables("表A").Find("第一列 = \'" & UserName & "\'") 
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
End If
--  作者：有点色
--  发布时间：2018/2/8 18:09:00
--  
看5楼代码