[浏览完整版]
标题：ACCESS用ADO用户登录报错？
11楼
lin98 发表于：2024/6/17 12:19:00Dim UserName As String = e.Form.Controls("UserName").Value
Dim db = HySq-l.DataBaseFactory.CreateDatabase("YF123")
If UserName = "" Then
Messagebox.show("请选择用户!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
Dim Sq-l = "Selec-t * From Users Where Name = '" & UserName & "'"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)
'Msgbox(dt.Rows.Count)
Msgbox(1)
'If dt.DataRows.Count = 0 Then 'ACCESS---EF
If dt.Rows.Count = 0 Then
Messagebox.show("此用户不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
Msgbox(2)
Dim dr As system.data.DataRow
dr = dt.Rows(0) '
Msgbox(3)
'e.Form.Controls("PassWord").BindingField = "用户登录_Table1.PassWord"
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
_UserRole = dr("Role")
e.Form.Close
Else
Messagebox.show("密码错误!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Msgbox(4)
红代码执行报错：从类型“DBNull”到类型“String”的转换无效。
12楼
有点蓝 发表于：2024/6/17 13:31:00If e.Form.Controls("PassWord").text = dr("Password").tostring Then
13楼
lin98 发表于：2024/6/17 13:37:00If e.Form.Controls("PassWord").text = dr("Password").tostring Then |
还是报错，
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,用户登录,Button1,Click
详细错误信息：
从类型“DBNull”到类型“String”的转换无效。
14楼
有点蓝 发表于：2024/6/17 13:46:00都加上.tostring
15楼
lin98 发表于：2024/6/17 14:18:00可以执行，但不安全，因为选择用户，按确定就可以登录，不用输入密码，存在不安全,如何解决？
此主题相关图片如下：登录问题.png
此主题相关图片如下：登录问题.png16楼
有点蓝 发表于：2024/6/17 14:29:00参考这里的方法退出项目：http://www.foxtable.com/webhelp/topics/2048.htm