Question

这是我的代码：

 rs.Open("Select * from tbl_emp_security WHERE Emp_ID='" & EmpID_account.Text & "'", con)
        If EmpID_account.Text = LVempaccount.Items(rs(0).Value) Then
            MsgBox("this employee have existing account")
        Else
            user_account.Text = "Emp" & Lname_account.Text
            passRandom()
    End If

如果员工尝试添加帐户，如果他已经...将显示消息框，但如果没有。它进入下一行..

empid_accout.text是我要与桌面上的第一项进行比较的文本框。

lvempaccount.tems(rs(0),value)是第1列上的员工ID

的项目

Answer 1

我会按如下方式重写您的代码

希望有所帮助

Dim OutDs AS new Dataset
OutDS = ("Select * from tbl_emp_security WHERE Emp_ID='" & EmpID_account.Text & "'", con)

If OutDs isnot nothing andalso OutDs.Table.Rows.Count > 0  Then
            MsgBox("this employee have existing account")
        Else
            user_account.Text = "Emp" & Lname_account.Text
            passRandom()
    End If

如果选择查询返回数据集，则表示它具有值，因此我使用这种方式..！

如果员工已经拥有帐户，我想显示错误

1 个答案: