请问:在登陆过程中如果数据库中不存在用户名,那么用SQL语句取出的密码是什么?

Question

下面是我连接ORACLE数据库,在数据库中有表new_user,里面有user_name 和 user_pwd 两列.
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=OraOledb.Oracle.1;Password=manager;User ID=system;Data Source=ora9;Locale Identifier=2052"
Cn.Open
Rs.Open "select * from new_user where user_name='" & Text1.Text & "'", Cn, adOpenKeyset, adLockOptimistic当我执行完上面的语句,我要判断text2.text是否等于Rs.Fields("user_pwd"),如果等于,让用户登陆,
但是现在我输入的text1.text(用户名)是错误的,那么得到的Rs.Fields("user_pwd")是什么呢?If Rs.Fields("user_pwd") = ???????? Then
   MsgBox ("您的用户名错误！")
   Exit Sub
End If请帮忙,如何判断?

Answer 1

If isNull(Rs.Fields("user_pwd")) Then

Answer 2

Rs.Open "select * from new_user where user_name='" & Text1.Text & "' and user_pwd='" & Text2.Text & "'", , Cn, adOpenKeyset, adLockOptimistic然后判断RS是否为空不就行了

Answer 3

'查询数据库中是否有合法用户
If strcode <> "" And strPassword <> "" Then
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  strsql = "select * from P_user where usercode '" & strcode & "'  and userPW= '" & strPassword & "' "
  conn.Open Module1.connstring
  rs.Open strsql, conn   If rs.EOF Then    '登录不成功
      count = count + 1
      MsgBox "用户名不存在或密码不正确，请重新输入！", Button = vbOK, "登录错误"
      txt_username.Text = ""
      txt_password.Text = ""
      txt_username.SetFocus
   Else               '登录成功
      loginsucceeded = True
      
      usercode = strcode
      userright = rs("UserRight").Value
      
      Me.Hide
   End If
   
  '关闭数据集、连接并释放
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing
End If

Answer 4

得到空记录集，记录数为0，没法用Rs.Fields("user_pwd")的

Answer 5

//If isNull(Rs.Fields("user_pwd")) Then
jinjazz(近身剪（N-P攻略）) 的方法不对，这是判断有记录，但字段值为空的情况

Answer 6

判断记录集是否空，用
if Rs.EOF AND Rs.BOF Then

Answer 7

ljhdi()的我试了，但判断还是有问题？

Answer 8

Rs.Open "select * from new_user where user_name='" & Text1.Text & "' and user_pwd='" & Text2.Text & "'", Cn, adOpenKeyset, adLockOptimistic
多了个逗号。
然后用 viena(维也纳nn-实心木头人) 的判断方法就行了