access中的VBA实验8-6数据库编码用户定义类型未定义
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那么多