巴人 发表于 2007-9-16 11:18

用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 = "班级 = " &amp; "'" &amp; 2 &amp; "'"</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]

编程论坛