access中的VBA实验8-6数据库编码用户定义类型未定义

更新时间2018-06-14 06:46:21

 Private Sub login_Click()   Dim str As String 

 Dim rs As New ADODB.Recordset   Dim fd As ADODB.Field    

 Set db = CurrentProject.Connection   

  logname = Trim(Me!username)   

  pass = Trim(Me!password)  

 If Len(Nz(logname)) = 0 Then     

   MsgBox "请输入用户名"   

ElseIf Len(Nz(pass)) = 0 Then    

    MsgBox "请输入密码"   

Else    

str = "select * from 密码表 where 用户名='" & logname & "'and  密码    ='" & pass & "'"  

  rs.Open str, cn, adopenDynamic, adLockoptimistic, adCmdText     

  If  rs.EOF   Then

          MsgBox "没有这个用户名或密码输入错误请重新输入"

          Me.username = ""    

      Me.password = ""       

Else       

   DoCmd.OpenForm "主窗体"

          MsgBox "欢迎使用教学管理系统"      

          End If    

    End If    

End Sub

VBA支持ADODB.Recordset这个对象吗？VBA支持的对象没有VB那么多

相关标签:数据库，实验