(请教) CurrentDB.Execute 执行出错

疾风

我平时用的是 Docmd.RunSQL StingSql + DoCmd.SetWarnings 来运行查询的
改用CurrentDb.Execute SQL 后出现运行出错信息:“运行时错误 '3061' ; 参数不足,期待是1”，对此百思不得其解，望高手们指点一下迷津，感激不尽！

附：1、引用的是DAO3.6
      2、VBA语句为:    CurrentDb.Execute "INSERT INTO 送货单明细 ( 送货流水号, 工件序号, 送货数, 送货类型, 送货单价, 批量折扣 ) SELECT 添加工件到送货单.送货流水号, 添加工件到送货单.工件序号, 添加工件到送货单.送货数, 添加工件到送货单.送货类型, 添加工件到送货单.送货单价, 添加工件到送货单.批量折扣 FROM 添加工件到送货单;"
      3、换用Docmd.RunSQL 该查询正常运行

zhuyiwen

试试:

Dim DB As DAO.Database

Set DB = CurrentDb

DB.Execute "INSERT INTO 送货单明细 ( 送货流水号, 工件序号, 送货数, 送货类型, 送货单价, 批量折扣 ) SELECT 添加工件到送货单.送货流水号, 添加工件到送货单.工件序号, 添加工件到送货单.送货数, 添加工件到送货单.送货类型, 添加工件到送货单.送货单价, 添加工件到送货单.批量折扣 FROM 添加工件到送货单;"

疾风

多谢朱总的指教，不过还是不行，还是那行出错的信息，如果换用注释的Docmd.RunSQL语句就正常运行，真是奇怪了！

附该命令按钮的VBA过程：

Private Sub Cmd加入到送货单_Click()
    Dim Dbs As DAO.Database
    Dim Rst As Recordset
    Dim Number As String
    Set Dbs = CurrentDb
    Set Rst = Dbs.OpenRecordset("送货单")
    Call 更新流水号("'送货流水号'")
        Number = Trim("S" & "-" & Format(Date, "yymmdd") & "-" & Format(DLookup("[记录值]", "流水号记录", "[流水号名称]='送货流水号'"), "000"))
        Rst.AddNew
        Rst("送货流水号") = Number
        Rst("客户序号") = Me.Combo选择客户
        Rst("送货日期") = Date
        Rst("制单") = Me.Combo制单
        Rst("仓管") = Me.Combo仓管
        Rst.Update
    Dbs.Execute "INSERT INTO 送货单明细 ( 送货流水号, 工件序号, 送货数, 送货类型, 送货单价, 批量折扣 ) SELECT 添加工件到送货单.送货流水号, 添加工件到送货单.工件序号, 添加工件到送货单.送货数, 添加工件到送货单.送货类型, 添加工件到送货单.送货单价, 添加工件到送货单.批量折扣 FROM 添加工件到送货单;"
    Dbs.Close
'    DoCmd.SetWarnings False
'    DoCmd.RunSQL ("INSERT INTO 送货单明细 ( 送货流水号, 工件序号, 送货数, 送货类型, 送货单价, 批量折扣 ) SELECT 添加工件到送货单.送货流水号, 添加工件到送货单.工件序号, 添加工件到送货单.送货数, 添加工件到送货单.送货类型, 添加工件到送货单.送货单价, 添加工件到送货单.批量折扣 FROM 添加工件到送货单;")
'    DoCmd.SetWarnings True
End Sub

zhuyiwen

如果换成

CurrentProject.Connection.Execute "INSERT INTO 送货单明细 ( 送货流水号, 工件序号, 送货数, 送货类型, 送货单价, 批量折扣 ) SELECT 添加工件到送货单.送货流水号, 添加工件到送货单.工件序号, 添加工件到送货单.送货数, 添加工件到送货单.送货类型, 添加工件到送货单.送货单价, 添加工件到送货单.批量折扣 FROM 添加工件到送货单"

可行吗?

疾风

试过了，出错的信息为：“运行时错误'-2147217904  (80040e10)':至少一个参数没有被指定值”(注:数据库使用Access2002格式，同时引用DAO3.6和ADO2.7)

开始的时候我两种都试过了，觉得DAO的出错信息比ADO的出错信息要短，可能比较容易解决吧。

其实如果真的不行，用Docmd.RunSQL也不影响使用，再次感谢朱总的支持。

zhuyiwen

以下是引用疾风在2004-2-16 15:46:34的发言：
试过了，出错的信息为：“运行时错误'-2147217904  (80040e10)':至少一个参数没有被指定值”(注:数据库使用Access2002格式，同时引用DAO3.6和ADO2.7)

开始的时候我两种都试过了，觉得DAO的出错信息比ADO的出错信息要短，可能比较容易解决吧。

其实如果真的不行，用Docmd.RunSQL也不影响使用，再次感谢朱总的支持。

能否把库挂上来? [em25]

疾风

“进仓单”窗体上的“加到送货单”，现在用的是Docmd.RunSQL，可以正常使用，若换用其它那两种办法后就会出错！