strSQL3  =  "select  count(*)  as  count3    from    支柱表,    结果表  where  支柱表.支柱编号=结果表.支柱编号  and  结果表.拉出值/支柱表.拉出值>=1.5"  
Set  myrs3  =  mycon.Execute(strSQL3)  
lcz  =  myrs3("count3")  *  (-10)  
y2  =  lcz  
   Else  
 y2  =  0  
===================================  
执行后,对这句话(Set  myrs3  =  mycon.Execute(strSQL3))的报错是  
实时错误,'-2147217904(80040e10)':  
[microsoft][ODBC  Microsoft  Access  drive]参数不足,期待是1.  
该怎么纠正呢?谢谢

解决方案 »

  1.   

    没有指定模式
    mycon.Execute(strSQL3,1, adCmdText+ adExecuteNoRecords )
      

  2.   

    但是其他的都可以,就是这段有问题,比如,下面就运行正确,
    ==============
    If Check7.Value = 1 Then
       strSQL4 = "select count(*) as count4 from 结果 where 磨耗>0.4"
       strSQL5 = "select count(*) as count5 from 结果 where 磨耗>=0.3 and 磨耗<=0.4"
       Set myrs4 = mycon.Execute(strSQL4)
       Set myrs5 = mycon.Execute(strSQL5)
       mh4 = myrs4("count4") * (-10)
       mh5 = myrs5("count5") * (-6)
       y3 = mh4 + mh5
       Else
       y3 = 0
       End If
      

  3.   


    把第一句改成这样试试strSQL3  =  "select  count(支柱表.*)  as  count3    from    支柱表,    结果表  where  支柱表.支柱编号=结果表.支柱编号  and  结果表.拉出值/支柱表.拉出值>=1.5"  

    strSQL3  =  "select  count(结果表.*)  as  count3    from    支柱表,    结果表  where  支柱表.支柱编号=结果表.支柱编号  and  结果表.拉出值/支柱表.拉出值>=1.5"  
    主要看你要那个表中的数据了
      

  4.   

    不行,那个"count(结果表.*)" 有语法错误