Set rsData = New ADODB.Recordset CnnStr = "...." cnn.Open CnnStr SQL$ = "select 学号 from 学生 " & "where 姓名 like " & Me.Name rsData.Open SQL$, CnnStr, adOpenKeyset, adLockOptimistic NUM = rsData!学号 If Me.Password = NUM Then test.show else MsgBox "用户名或密码输入不正确!" end if .......
还有一个地方错:Set rsData = New ADODB.Recordset CnnStr = "...." cnn.Open CnnStr SQL$ = "select 学号 from 学生 " & " where 姓名 = '" & Me.Name & "'" rsData.Open SQL$, CnnStr, adOpenKeyset, adLockOptimistic NUM = rsData!学号 If Me.Password = NUM Then test.show else MsgBox "用户名或密码输入不正确!" end if .......
CnnStr = "...."
cnn.Open CnnStr
SQL$ = "select 学号 from 学生 " & "where 姓名 like " & Me.Name
rsData.Open SQL$, CnnStr, adOpenKeyset, adLockOptimistic
NUM = rsData!学号
If Me.Password = NUM Then
test.show
else
MsgBox "用户名或密码输入不正确!"
end if
.......
CnnStr = "...."
cnn.Open CnnStr
SQL$ = "select 学号 from 学生 " & " where 姓名 = '" & Me.Name & "'"
rsData.Open SQL$, CnnStr, adOpenKeyset, adLockOptimistic
NUM = rsData!学号
If Me.Password = NUM Then
test.show
else
MsgBox "用户名或密码输入不正确!"
end if
.......
提示的信息是“BOF或EOF中有一个是‘真’,或者当前的记录已被删除,所需的操作要求一个当前的记录”
这是怎么回事呢?
大家请见谅,我很菜。
看看 rsdate.recordcount=?