以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【移动开发】用户名与密码怎么修改为数据库比对呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102369)
--  作者：李孝春
--  发布时间：2017/6/18 19:59:00
--  【移动开发】用户名与密码怎么修改为数据库比对呢？
【移动开发】用户名与密码怎么修改为数据库比对呢？
假设有User表，name，password两个字段。

怎么把下面的代码更改为数据库比对用户名及密码呢？
If UserName = "张三" AndAlso Password = "888" Then  \'实际使用的时候,请改为从数据库读取用户名和密码进行比较
    Verified  = True
ElseIf Username = "李四" AndAlso Password="999" Then
    Verified  = True
End If
--  作者：有点色
--  发布时间：2017/6/18 21:25:00
--  

改成

 

Dim dr As DataRow = DataTables("user").Find("[name] = \'" & UserName & "\'")
If dr isnot Nothing AndAlso Password = dr("password") Then
    Verified  = True
End If

[此贴子已经被作者于2017/6/18 21:25:14编辑过]
--  作者：playmal
--  发布时间：2017/11/7 22:13:00
--  
如果是SQL数据库里面的users表呢，将DataTables("user")改为什么？
--  作者：有点蓝
--  发布时间：2017/11/7 22:34:00
--  
如果已经添加为外部表，直接使用DataTables("users").Find，如果数据没有加载可以使用DataTables("users").SqlFind