中科新闻网aegisub 字幕代码:VB编程ADO，数据库用access
来源：百度文库 编辑：中科新闻网 时间：2024/05/01 06:31:31
我用VB编程时候为什么总是提示DataEnv.rsStudent.AddNew中的“rsStudent”未找到成员或方法？希望各位赐教，急啊
我是想用DAO做，但DAO支持不到ACCESS2000啊。我找遍了，真的搞不懂rsstudent是什么意思,就是下面的程序：：：
Private Sub cmdList_Click()
'针对所选的班级，列出班级中所有的学籍信息
Dim strSQL
If cboClass.Text = "全部" Then
strSQL = " from 学生信息表 order by serial"
Else
strSQL = " from 学生信息表 where class='" & cboClass & "' order by serial"
End If
DataEnv.rsStudent.Close
DataEnv.rsStudent.Open "select * " & strSQL
DataEnv.rssqlSeek.Close
DataEnv.rssqlSeek.Open "select serial, name " & strSQL
Call RefreshGrid
Call ChangeBrowseState
Call grdScan_Change
End Sub
我是想用DAO做，但DAO支持不到ACCESS2000啊。我找遍了，真的搞不懂rsstudent是什么意思,就是下面的程序：：：
Private Sub cmdList_Click()
'针对所选的班级，列出班级中所有的学籍信息
Dim strSQL
If cboClass.Text = "全部" Then
strSQL = " from 学生信息表 order by serial"
Else
strSQL = " from 学生信息表 where class='" & cboClass & "' order by serial"
End If
DataEnv.rsStudent.Close
DataEnv.rsStudent.Open "select * " & strSQL
DataEnv.rssqlSeek.Close
DataEnv.rssqlSeek.Open "select serial, name " & strSQL
Call RefreshGrid
Call ChangeBrowseState
Call grdScan_Change
End Sub
rsStudent 应该是 你定义的一个RecordSet 吧，他当然不是方法了，是对象。
后面的AddNew() 应该是方法，是成员函数。
你的rsStudent没有被找到，看看你是否定义了该对象
或者看看此处的代码是否能找到该对象。
建议用DAO，DAO功能比ADO强大，虽然在搜索方面偏弱，但是绝对简单，不会有太多错误～
估计是你写数据环境这一块没有设置好相关参数，检查一下