Question

VB中BOF或EOF中有一个是真,或者当前的记录已被删除,所需的操作要求一个当前的记录

sql = "select * from 学生信息表"
rname.Open sql
rname.MoveFirst
rname.Find ("学号='" & Text2.Text & "'")
If rname.RecordCount > 0 Then
Text1.Text = Trim(rname.Fields("姓名"))————这里变成黄色
Else
MsgBox ""
End If
我就是想把在数据库中对应已知学号的信息读到text中，怎么读不进去？？
而且数据库中表中是没有问题的。。。。

Answer 1

sql = "select * from 学生信息表"
rname.Open sql
rname.MoveFirst
rname.Find "学号='" & Text2.Text & "'"
If Not rname.EOF Then
Text1.Text = Trim(rname.Fields("姓名"))
Else
MsgBox ""
End If

因为rname.RecordCount > 0并不表示你找到了需要的记录，Find命令并不会改变记录集的记录个数的，只是改变了记录指针。所以不管找没找到符合指定学号的记录，rname.RecordCount的值是不变的。应该用EOF来判断是否找到了记录。

追问

rname.MoveFirst
While Not rname.EOF
Text21.Text = Trim(rname.Fields("班级名")) & Text21.Text
rname.MoveNext
Wend
虽然错误没了，我还是读不进去。。

Answer 2

sql = "select [姓名] from [学生信息表] where [学号]='" & Text2.Text & "'"
rname.Open sql

If rname.RecordCount > 0 Then
Text1.Text = Trim(rname(0))
Else
MsgBox "null"
End If

Answer 3

表中没有姓名这一列，建议不要直接用名子，可以用rname.Fields(0)，这样表示第一列，看一下你的姓名是在哪一列，就用rname.Fields(n-1).

Answer 4

看说明书啊

追问

看啥说明书？？？？？

追答

百度上的

追问

说详细点好吗，我这个语句该怎么改？改成什么样的？