以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问如何屏蔽access数据库无查找项时的错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15644) |
-- 作者:ajim -- 发布时间:2012/1/4 16:03:00 -- 请问如何屏蔽access数据库无查找项时的错误 代码如下 Dim UserName As String = e.Form.Controls("UserName").Value Dim cmd As New SQLCommand Dim dt As DataTable Dim dr As DataRow cmd.C If UserName = "" Then Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'" dt = cmd.ExecuteReader dr = dt.DataRows(0) If e.Form.Controls("PassWord").Value = dr("Password") Then _UserName = UserName _UserGroup = dr("Group") e.Form.Close Forms("地接").Open() Else Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) |
-- 作者:狐狸爸爸 -- 发布时间:2012/1/4 16:08:00 -- .... |