Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
各位老师:
我做了个LoadUserSetting中的用户验证,用户通过SQL数据库验证用户是否存在,代码如下
Dim cmd As New SQLCommand
Dim dt As DataTable
'Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * From {员工信息库} Where [姓名] = '" & User.Name & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
Else
messagebox.show("此账户已停用!")
Syscmd.Project.Exit()
End If
不知为何有错误 提示,我看了下 和菜单有关,请问各位老师,这是啥错误 ?
未定义外部数据源
哦,这样啊,不过我原来做的不用外部数据源比对用户,是将外部表加载到项目中,然后比对user.name就可以,使用了连接外部数据源后就出错了,估计是这个冲突,那狐爸,我想比对当前user.name 是否有SQL表中存在,在哪个事件中比较好呢?
未定义外部数据源
感谢回复,代码贴上来好像数据源指向没了,在我项目中的代码还存在,我估计是狐爸说的差不多。 loadusersetting和关闭项目的冲突
建议用ACCESS作为外部数据源,大家也可以帮你调试。
一楼的这种判断似乎用ExecuteScalar直接返回值更合理些,如:
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(姓名) From {员工信息库} Where [姓名] = '" & User.Name & "'"
If cmd.ExecuteScalar() = 0 Then
MessageBox.show("此账户已停用!")
End If
建议用ACCESS作为外部数据源,大家也可以帮你调试。
感谢lihe60老师,等我做个例子请各位老师帮研究下。
一楼的这种判断似乎用ExecuteScalar直接返回值更合理些,如:
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(姓名) From {员工信息库} Where [姓名] = '" & User.Name & "'"
If cmd.ExecuteScalar() = 0 Then
MessageBox.show("此账户已停用!")
End If
感谢CZY老师,好像教过我 ExecuteScalar的使用方法,问过一个id单号SQL后台判断不存在问题,再次谢谢老师!