我的里面都有源码什么的都写好了，就是在验证的时候出现了    一个属性不可用的提示，请高手帮忙解决下

[ 本帖最后由 殇·逝 于 2010-11-28 16:26 编辑 ]

谢谢，这位大哥，现在已经能验证正确的用户名和密码了，但是在验证错误的用户名的时候就会报错了
Private Sub Command1_click()

If Text1 = "" Or Text2 = "" Then '检验文本内容是否为空

   MsgBox "请输入用户名或密码", vbInformation, "提示"
   
Else
  Adodc1.Refresh '数据控制刷新
  
  Adodc1.Recordset.Find "用户名='" & Text1 & "'"
   
   If Adodc1.Recordset.Fields("用户名").Value <> Text1 Then
      
     MsgBox "用户名不存在", vbInformation, "提示"
     
     Else
        
        If Adodc1.Recordset.Fields!密码 = Text2 Then
         
          MsgBox "登陆成功", vbInformation, "提示"
        
        Else
         
          MsgBox "密码错误", vbInformation, "提示"
        
        End If
     
     End If
     
End If

End Sub



在帮我改一下吧！谢谢！   我已经把改好的重新上传了！

[ 本帖最后由 殇·逝 于 2010-11-28 16:27 编辑 ]

  Adodc1.Recordset.Find "用户名='" & Text1 & "'"

感觉是这句的问题。没用过 ADODC 的 FIND 功能。我一般都是用 SQL 命令来查找用户名。

按用户名查找，返回结果为0 ，没有记录，就说明用户名错。
如果返回只有一条记录，用户名正确，再判断 密码。
如果返回有二条或以上记录，数据库错。


你程序里，使用 find 功能，ADODC 我不知道是如何返回结果的，根据你的代码，应该是返回的 记录集，那么用户名错时，因为没有记录集返回，
所以 If Adodc1.Recordset.Fields("用户名").Value <> Text1 Then  这句一定会报错。

 Adodc1.Recordset.Fields("用户名").Value     这是访问记录集。

建议这里判断 adodc.recordset 中有多少条记录。是不是1条记录。

Private Sub Command1_click()

If Text1 = "" Or Text2 = "" Then '检验文本内容是否为空

   MsgBox "请输入用户名或密码", vbInformation, "提示"
   
Else
  Adodc1.Refresh '数据控制刷新
  
  Adodc1.Recordset.Find "用户名='" & Text1 & "'"
   
   If Adodc1.Recordset.EOF Then
      
     MsgBox "用户名不存在", vbInformation, "提示"
     
     Else
        
        If Adodc1.Recordset.Fields!密码 = Text2 Then
         
          MsgBox "登陆成功", vbInformation, "提示"
        
        Else
         
          MsgBox "密码错误", vbInformation, "提示"
        
        End If
     
     End If
     
End If

End Sub

小弟在这谢过了！