请教ADO连接SQLserver的问题

ty_1029

两个问题:
首先说明一下，我是用用户名或拥护ID来登陆，由于同一用户的名字和ID都唯一，所以对应的密码是唯一的，就是方便使用者。

1、首先是判断当前用户或用户ID是否存在的问题。
我参考了一下“红尘如烟”的事例，修改了以下，代码如下：

1. Private Sub UserName_AfterUpdate()
   
2. Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
   
3. Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
   
4. Dim strCn As String, strSQL As String '字符串变量
   
5. strCn = "Provider=sqloledb;Server=10.52.111.8;Database=CRM;Uid=sa;Pwd=;" '定义数据库链接字符串
   
6. cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
   
7. 
   
8. strSQL = "select * from CRM.dbo.userA where psnam='" & UserName & "'" '定义SQL查询命令字符串
   
9. cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
   
10. rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
    
11. 
    
12. If rs.RecordCount = 0 Then
    
13. setFormPos Me, False
    
14. MsgBox "此用户不存在！", vbCritical, " "
    
15. UserName = ""
    
16. rs.Close
    
17. Set rs = Nothing
    
18. 
    
19. End If
    
20. End Sub
    
21. 
    

复制代码

我的意思是如果数据库表USERA不存在当前用户，则RS肯定是空的，来做判断条件，但好象有问题，一时搞不明白问题出在什么地方了~~
大家帮我看看。

2、是在登陆的使用，怎么感觉我的判断条件不起作用，密码对不对，用户对不对都可以直接进去了，汗~~，代码如下：

1. Private Sub cmdYY_Click()
   
2. On Error Resume Next
   
3. Static n As Integer
   
4. 
   
5. If Nz(Me.UserName) = "" Then
   
6. 
   
7. setFormPos Me, False
   
8. MsgBox "请输入用户名！", vbInformation, " "
   
9. Me.UserName.SetFocus
   
10. Exit Sub
    
11. End If
    
12. 
    
13. If Nz(Me.Password) = "" Then
    
14. setFormPos Me, False
    
15. MsgBox "请输入密码！", vbInformation, " "
    
16. Me.Password.SetFocus
    
17. Exit Sub
    
18. End If
    
19. 
    
20. Dim cn As New ADODB.Connection
    
21. Dim rs As New ADODB.Recordset
    
22. Dim strCn As String, strSQL As String
    
23. strCn = "Provider=sqloledb;Server=10.52.111.8;Database=CRM;Uid=sa;Pwd=;"
    
24. cn.Open strCn
    
25. 
    
26. strSQL = "select * from CRM.dbo.userA where sno='" & UserName & "' or psnam='" & UserName & "'"
    
27. cn.Open strCn
    
28. rs.Open strSQL, cn
    
29. If Me.Password = rs!psword And (Me.UserName = rs!psnam Or Me.UserName = rs!sno) Then
    
30. 
    
31. DoCmd.Close
    
32. DoCmd.Close acForm, "登陆背景", acSaveYes
    
33. 
    
34. DoCmd.OpenForm "窗体1"
    
35. DoCmd.RunCommand acCmdAppMaximize
    
36. rs.Close
    
37. Set rs = Nothing
    
38. Exit Sub
    
39. End If
    
40. If n = 2 Then
    
41. setFormPos Me, False
    
42. MsgBox "您3次密码输入错误！系统即将退出！", vbCritical, "密码错误"
    
43. DoCmd.Quit
    
44. Else
    
45. setFormPos Me, False
    
46. MsgBox "3次密码输入错误将退出系统。您还可以输入" & 2 - n & "次！", vbCritical, "密码错误"
    
47. End If
    
48. Password.SetFocus
    
49. n = n + 1
    
50. End Sub

复制代码

因为第一次使用ACCESS连接SQL，所以不是很懂，
基础较糟糕，主要在参考各位的事例，呵呵，有点拿来主义，大家别介意啊，请帮帮忙吧~~~

ty_1029

各位高手,腾出一点时间帮我看一下吧~~

t小宝

看不出什么问题

ty_1029

我看了半天,我自己感觉问题出在

1. cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
   
2. 
   
3. rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
   

复制代码

两段中,cn.Open strCn 感觉多余,第二段cn后面难道一定要加属性的要求吗?

fytxcf

aaaaaaa