N_chow(一劍飄香++) 呵呵 厉害 多谢!

解决方案 »

  1.   


    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
    上面代码执行时
    总说参数不足
    这是怎么回事???
      

  2.   

    DAO我不是很熟,不過你可以先把strSQL2的內容(即你這一句SQL)獨自運行一下(方法可以是在Access里建一個Query,把SQL換成你的SQL.)執行一下,如果有錯就是你的SQL問題,沒錯的話就是在 OpenRecordset時出錯了,看改成這樣行不行: Set rs=db.OpenRecordset(strSQL2,2)
      

  3.   

    已经搞定了 是select 语句 表的列名不对