strSQL2 = "SELECT sum(进货数量*进价) as 进价总额,sum(进货数量*售价) as 售价总额 FROM BuyBook WHERE 进货日期 >= #" & strDate1 & "# and 进货日期 <= #" & strDate2 & "# and 图书名称 = '" & Text0.Text & "'"Dim db As Database Dim rs As Recordset Dim num_fields As Integer Dim i As Integer Set db = OpenDatabase(App.Path + "\图书发行系统.mdb") MsgBox strSQL2 Set rs = db.OpenRecordset(strSQL2) num_fields = rs.Fields.Count 上面代码执行时 总说参数不足 这是怎么回事???
DAO我不是很熟,不過你可以先把strSQL2的內容(即你這一句SQL)獨自運行一下(方法可以是在Access里建一個Query,把SQL換成你的SQL.)執行一下,如果有錯就是你的SQL問題,沒錯的話就是在 OpenRecordset時出錯了,看改成這樣行不行: Set rs=db.OpenRecordset(strSQL2,2)
strSQL2 = "SELECT sum(进货数量*进价) as 进价总额,sum(进货数量*售价) as 售价总额 FROM BuyBook WHERE 进货日期 >= #" & strDate1 & "# and 进货日期 <= #" & strDate2 & "# and 图书名称 = '" & Text0.Text & "'"Dim db As Database
Dim rs As Recordset
Dim num_fields As Integer
Dim i As Integer
Set db = OpenDatabase(App.Path + "\图书发行系统.mdb")
MsgBox strSQL2
Set rs = db.OpenRecordset(strSQL2)
num_fields = rs.Fields.Count
上面代码执行时
总说参数不足
这是怎么回事???