如何在立即窗口中显示执行查询后的记录集？

春秋　发表于：2009-02-15 15:09:14 　

写了如下一段程序，自己以为写明白了，期望在立即窗口中出现查询结果。对话框提示：类型不匹配。

请教问题出在什么地方？

Private Sub 命令_Click()
Dim cnn1 As New ADODB.Connection '建立联接
Dim cmd1 As ADODB.Command
Dim ret1 As ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set cmd1 = New ADODB.Command
Set rst1 = New ADODB.Recordset

sql = "select * from 每日明细 where 类别='饮食'"
rst1.Open sql, cnn1, adOpenKeyset, adLockOptimistic
Debug.Print rst1
rst1.Close
cnn1.Close
Set rst1 = Nothing
Set cnn1 = Nothing
End Sub

Top

ACMAIN.CHM 发表于：2009-02-15 15:39:18

提问时，请说明出错的语句，这不是考试没必要让别人从头到尾来走查你的代码！与人方便，与已方便。

建议看一下ADO的帮助会有所帮助的。

Private Sub 命令_Click()
    Dim cnn1 As New ADODB.Connection    '建立联接
    Dim cmd1 As ADODB.Command
    Dim ret1 As ADODB.Recordset

    Set cnn1 = CurrentProject.Connection
    Set cmd1 = New ADODB.Command
    Set rst1 = New ADODB.Recordset

    sql = "select * from 每日明细 where 类别='饮食'"
    rst1.Open sql, cnn1, adOpenKeyset, adLockOptimistic
    do while not rst1.eof
        Debug.Print rst1.fields(0).value
        rst1.movenext
    loop

    rst1.Close
    cnn1.Close
    Set rst1 = Nothing
    Set cnn1 = Nothing
End Sub

**************
* 一切皆有可能 *
**************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase
http://www.accessbbs.cn/bbs/index.php
http://www.accessoft.com/bbs/index.asp
http://www.office-cn.net/vvb/?fromuid=141646
http://www.access-programmers.co.uk/forums

http://www.office-cn.net/home/space.php?uid=141646

Top

春秋发表于：2009-02-16 10:46:19

多谢指教。以后再有问题，还会提问请教。当然，我也会更加注意节约帮助者的时间。再次感谢。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何在立即窗口中显示执行查询后的记录集？