数据库调用的问题

Question

我在用VB编程时用到了DataEnv.rsStudent.EOF这个语句，可是提示我无法找到方法或数据成员，我是个新手，能不能帮帮忙告诉我是什么问题啊？谢谢！

Answer 1

这只是出现问题的那段代码
Private Sub Form_Load()
    On Error Resume Next
    If frmMain.mnUserType = 1 Then
        fraSeek.Enabled = False
        fraBrowse.Enabled = False
        cmdAdd.Enabled = False
        cmdDelete.Enabled = False
        txtSerial.Enabled = False
        dcbClass.Enabled = False
        grdScan.Enabled = False
        If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then这句报错
             Dim Temp As String
             Temp = "name=" & "'" & frmMain.msUserName & "'"
             DataEnv.rsStudent.MoveFirst
             DataEnv.rsStudent.Find Temp
             Call RefreshBinding
        End If
        Exit Sub
    Else
        fraSeek.Enabled = True
        fraBrowse.Enabled = True
        cmdAdd.Enabled = True
        cmdDelete.Enabled = True
        txtSerial.Enabled = True
        dcbClass.Enabled = True
        grdScan.Enabled = True
    End If
    Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset
    Set rsDep = DataEnv.rsDepartment
    Set rsClass = DataEnv.rsClass
    rsDep.Open
    cboDep.Clear
    cboDep.AddItem "全部"
    cboDep.ItemData(0) = 0
    While Not rsDep.EOF
        cboDep.AssItem rsDep("Name")
        cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id")
        rsDep.MoveNext
    Wend
    cboClass.ListIndex = 0
    cboClass.Clear
    cboClass.AddItem "全部"
    While Not rsClass.EOF
        cboClass.AddItem rsClass("Name")
        rsClass.MoveNext
    Wend
    cboClass.ListIndex = 0
    cmdList.Value = True
    fraManage.Enabled = True
    mbClose = True
    Call grdScan_Change
End Sub

Answer 2

这段程序主要是判断登录用户的类型，如果是学生则设置相关的控件为不可用，然后将此学生的信息显示在明细区域，如果是教务管理人员，则执行cboDep组合框和cboClass组合框的初始化。
报错的是rsStudent
帮忙解答，谢谢啦！急！！！

Answer 3

DataEnv.rsStudent
-------------
我知道rsstudeng是记录集,
dataenv是什么,提示就是找不到成员吗!!!

Answer 4

DataEnv是建的一个数据环境设计器，是在“工程”菜单中的“添加Data Environment”菜单项，向工程中添加一个数据环境设计器。因为采用的是ADO作为数据连接的手段，同时采用数据环境设计器作为数据链接ADO的载体。

Answer 5

展开你的 Data Environment，下面没有 rsStudent 对象，或者名称不一致。

Answer 6

嗯，是没有，我在这个窗口的代码中添加定义还是在Data Environment中添加一个？或者是都要？

Answer 7

数据环境我从来都不用,我都是用ado处理的.所以不会.

Answer 8

Data Environment中添加一个Connection后，连接完，还得刷一下

Answer 9

与数据库连接的时候，测试过，可以连接的。而且在运行的时候已经调用了数据库，连接应该没有问题吧？
就是不知道是不是我没有定义rsStudent的原因，该怎么定义？

Answer 10

当查回来的数据总数为0时会用DataEnv.rsStudent.EOF操作数据集会报错的,用DataEnv.rsStudent.EOF时先要判断是否已经移动到了最后一条或者数据总数是否为0,尽量少用DataEnv.rsStudent.EOF,用rsStudent.RecordCount做个循环处理好一些

Answer 11

把DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF换成
rsStudent.RecordCount<=0应该就可以了

Answer 12

如果 Data Environment下面没有 rsStudent，那么就需要新建一个名为 rsStudent 的查询。