标题: ADO的一个小问题 [打印本页] 作者: 行云 时间: 2006-7-3 03:17 标题: ADO的一个小问题 Dim cnnDB As New ADODB.Connection '定义一个ADO链接
Dim rstDB As New ADODB.Recordset '定义一个ADO记录集
Dim cmmDB As New ADODB.Command
Dim strSQL As String
Set cnnDB = CurrentProject.Connection '定义cnnDB等于当前连接
'sql功能:输入日期,列出到期日期在输入日期之前的记录,并临时建立“临时表_结转数据”库
strSQL = "SELECT 借据资料.记帐日期, 客户资料.客户号, 借据资料.贷款帐号 AS 贷款帐号, 客户资料.借款户名称, 借据资料.借款日期, 借据资料.到期日期, 借据资料.结清 INTO 临时表_结转数据 FROM 客户资料 INNER JOIN 借据资料 ON 客户资料.客户号 = 借据资料.客户号 GROUP BY 借据资料.记帐日期, 客户资料.客户号, 借据资料.贷款帐号, 客户资料.借款户名称, 借据资料.借款日期, 借据资料.到期日期, 借据资料.结清 HAVING (((借据资料.到期日期)<[Forms]![科目结转]![结转日期]) AND ((借据资料.结清)=False))"
Set rstDB = cnnDB.Execute(strSQL)
以上语句总是报“至少一个参数没有指定”错误
我是Access初手,对很多ADO不了解,希望大家帮帮我,先过了!!!作者: fan0217 时间: 2006-7-3 03:39
'sql功能:输入日期,列出到期日期在输入日期之前的记录,并临时建立“临时表_结转数据”库
strSQL = "SELECT 借据资料.记帐日期, 客户资料.客户号, 借据资料.贷款帐号 AS 贷款帐号, 客户资料.借款户名称, 借据资料.借款日期, 借据资料.到期日期, 借据资料.结清 INTO 临时表_结转数据 FROM 客户资料 INNER JOIN 借据资料 ON 客户资料.客户号 = 借据资料.客户号 GROUP BY 借据资料.记帐日期, 客户资料.客户号, 借据资料.贷款帐号, 客户资料.借款户名称, 借据资料.借款日期, 借据资料.到期日期, 借据资料.结清 HAVING (((借据资料.到期日期)<[Forms]![科目结转]![结转日期]) AND ((借据资料.结清)=False))"
Set M = CurrentDb.OpenRecordset("SELECT 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期, Sum([数量]) AS 出量 " _
& "FROM 订单 INNER JOIN 订单明细 ON 订单.订单ID = 订单明细.订单ID " _
& "GROUP BY 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期;")
& "HAVING (((订单.订购日期)>=[forms]![A先先]![订购开始日期] And (订单.订购日期)<=[forms]![A先先]![订购终止日期]))<>0));")
'M.Filter = "[订购日期] =[forms]![A先先]![订购开始日期]"
Set M = M.OpenRecordset
Do While Not M.EOF
Set M = CurrentDb.OpenRecordset("SELECT 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期, Sum([数量]) AS 出量 " _
& "FROM 订单 INNER JOIN 订单明细 ON 订单.订单ID = 订单明细.订单ID " _
& "GROUP BY 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期;")
M.Filter = "[订购日期]>=#" & Format([Forms]![A先先]![订购开始日期], "yyyy-mm-dd") & "# and [订购日期]<=#" & Format([Forms]![A先先]![订购终止日期], "yyyy-mm-dd") & "# and [产品ID]=" & [Forms]![A先先]![ID] & ""
Set M = M.OpenRecordset
Do While Not M.EOF