DAO.Recordset的问题

大熊屋　发表于：2008-12-05 23:59:02 　

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("temp销售表明细", dbOpenDynaset)

上面的语句就可以执行，

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT temp销售表明细.单据编号, temp销售表明细.序号 FROM temp销售表明细 WHERE (((temp销售表明细.单据编号)='" & 单据编号 & "'))", dbOpenDynaset)

怎么就不行了怎他提示错误，参数不支持 -1 什么的请大家帮着指点一下。

Top

黎红军发表于：2008-12-06 00:04:54

应当是你后一个返回纪录有问题，就是可能没有符合条件的纪录。所以你可能需要针对有纪录返回与无记录返回而报错做不通的处理。

Top

大熊屋发表于：2008-12-06 09:42:28

那就是说 Set rst = CurrentDb.OpenRecordset("SQL查询", dbOpenDynaset)，这个语句的用法没错是我其中的SQL结果不对

我一直以为是语句的用法有错误。

Top

钱玉炜发表于：2008-12-09 09:21:57

应该是你的sql语句没写对，没在表中查询到记录

Top

sosopain 发表于：2008-12-09 09:28:41

在这个语句设置一个中断,运行到这里的时侯在即使窗口运行一下

? "SELECT temp销售表明细.单据编号, temp销售表明细.序号 FROM temp销售表明细 WHERE (((temp销售表明细.单据编号)='" & 单据编号 & "'))"

检查一下结果对不对

估计是你这个单据编号出了问题.. 在VBA中最好不要用纯中文作为变量名, 如果是窗体记录..用 me!单据编号, 如果是变量, 用str单据编号, 如果是控件, me.txt_单据编号.value

这样比较不容易发生错误

Top

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

Access交流中心

DAO.Recordset的问题