用DAO对象连接数据库,查询数据出了问题,请高人解答?
<P>Option Explicit</P><P>Dim db As Database<BR>Dim rs As Recordset</P>
<P>Private Sub Form_Load()<BR> Set db = OpenDatabase(App.Path + "\学生成绩管理表.mdb")<BR> Set rs = db.OpenRecordset("学生成绩表")<BR>End Sub</P>
<P>Private Sub Command1_Click()<BR> Dim strQuery As String<BR> dim i as integer<BR> strQuery = "班级 = " & "'" & 2 & "'"</P>
<P> rs.FindFirst strQuery<BR> i=rs.AbsolutePosition<BR> <BR>End Sub<BR>每次运行时总会针对“rs.FindFirst strQuery<BR> i=rs.AbsolutePosition<BR> <BR>”跳出“这种对象不支持该操作”错误提示?<BR>请高手解答我的问题?<BR></P>
页:
[1]
