function传递参数 类型不匹配

[christy_fang]

function getrow(area)       
    rowsqlstr="select d_coding,d_name from hydepart h where len(d_coding)=6 and isdzx='"&area&"' "
    rowsqlstr=rowsqlstr+"and d_coding in (select left(d_coding,6) from hydepart where len(d_coding)>6 "
    rowsqlstr=rowsqlstr+"and d_coding in (select pb_dep from purchasebill where pb_flag=1))"
    set rowRs=server.CreateObject("adodb.recordset")
    rowRs.Open rowsqlstr,conn,3
    If not rowRs.EOF then
        RTT=rowRs.RecordCount
    else
        RTT=0
    end if
    getrow=RTT
    rowRs.Close
    set rowRs=nothing
end function


<%
       getrow("东")
     %>


上面是自己写的方法，用来读行数
下面调用，很简单的
可是为什么就是报“类型不匹配”呢？
找不到问题所在啊，所以来请教大家咯！

[christy_fang]

赋值了也是错的！结果一样1

[christy_fang]

想了另外的方法解决了 谢谢大家了！

[黑心]

from hydepart h where

[hookee]

哪句报错？
最好直接用select count(*) from...

function getrow(area)       
    rowsqlstr="select d_coding,d_name from hydepart h where len(d_coding)=6 and isdzx='" & area & "' "
    rowsqlstr=rowsqlstr & "and d_coding in (select left(d_coding,6) from hydepart where len(d_coding)>6 "
    rowsqlstr=rowsqlstr & "and d_coding in (select pb_dep from purchasebill where pb_flag=1))"
    set rowRs=server.CreateObject("adodb.recordset")
    rowRs.CursorLocation = 3
    rowRs.Open rowsqlstr,conn,1,1
    If not (rowRs.EOF AND rowRs.BOF) then
        RTT = rowRs.RecordCount
    else
        RTT = 0
    end if
    getrow=RTT
    rowRs.Close
    set rowRs=nothing
end function

[christy_fang]

就是传参数的地方出错
<%
getrow("东")
%>
这里
说类型不匹配

[hookee]

要赋值
<%
s = getrow("东")
%>

[不耐烦]

isdzx 字段是什么类型的 如果不是 文本 就会出错

[hookee]

问题应该不是赋值

[hookee]

conn是全局打开的吗?

[christy_fang]

是啊 isdzx也是varchar类型的啊！
就是找不到是哪的错！郁闷1

[不耐烦]

[Quote=引用 7 楼 hookee 的回复:]
conn是全局打开的吗?
[/Quote]

也许是这个问题

[christy_fang]

conn是全局打开的，而且我下面也写了个类似的方法，那个就没有问题！

[hookee]

如果是函数错，应该报到函数里面吧
把函数中的代码单独调试看看

[凡夫与俗子]

单独调试看看。

[christy_fang]

asp我不知道调试@！！！！

[gxq323]

rowRs.Open rowsqlstr,conn,3
就一个参数吗？

[lzp4881]

<%=getrow("东")%>