ACCESS用ADO用户登录报错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim UserName As String = e.Form.Controls("UserName").Value

Dim db = HySql.DataBaseFactory.CreateDatabase("YF123")

If UserName = "" Then

Messagebox.show("请选择用户!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return

End If

'ACCESS

Dim Sql = "Selec-t * From Users Where Name = '" & UserName & "'"

Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)

'Msgbox(dt.Rows.Count)

If dt.DataRows.Count = 0 Then

Messagebox.show("此用户不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return

End If

Dim dr As DataRow

dr = dt.DataRows(0)

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

报错：红代码不是system.data.DataTable，如何解决？

没搞明白，请老师在实例纠正，谢谢

[此贴子已经被作者于2024/6/17 14:33:45编辑过]

dr = dt.DataRows(0)也报同样错

dr = dt.Rows(0)也报同样错

报错：类型system.data.DataRow的值无法转换为DataRows，

Dim 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”的转换无效。

If e.Form.Controls("PassWord").text = dr("Password").tostring Then

还是报错，

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：窗口,用户登录,Button1,Click

详细错误信息：

从类型“DBNull”到类型“String”的转换无效。

可以执行，但不安全，因为选择用户，按确定就可以登录，不用输入密码，存在不安全,如何解决？

此主题相关图片如下：登录问题.png

主题：ACCESS用ADO用户登录报错？