【已解决】不同参数取值方式导致调用函数失败？

topor

Function 功能说明：根据条件查询DB里面某个字段的值，参数：查询条件值
test 功能说明： 传递参数，调用function。
      参数有两种赋值方式：
          方式1： 直接赋值。a="123456"
          方式2：通过datatable 取值。a=DataTable.Value("a",Global)   //在global table 里面已经设好a的值等于123456
      相同函数调用语句：DBfileName=ConnectDB(a)
现在的问题是：
        用方式1，可以调用函数成功返回DB里面的filename。但是用方式2不行，得到的filename为空?


Function 代码如下：
Function ConnectDB(a)                ‘Debug的结果a 的值通过两种方式传入均是一样的，都是123456
   Dim strCon,SQLQuerySentence
   strCon = "Driver={Microsoft ODBC for Oracle}; " & _
         "CONNECTSTRING=(DESCRIPTION=" & _
         "(ADDRESS=(PROTOCOL=TCP)" & _
         "(HOST=***)(PORT=***))" & _
         "(CONNECT_DATA=(SERVICE_NAME=***))); uid=***;pwd=***;"
   Dim oCon
     Set oCon = CreateObject("ADODB.Connection")
   Dim oRs
     Set oRs = CreateObject("ADODB.Recordset")
     SQLQuerySentence = "SELECT * tablename WHERE filecode ="
     SQLQuerySentence = SQLQuerySentence + "'"+a +"'"
     oCon.Open strCon
     Set oRs = oCon.Execute(SQLQuerySentence)
   Dim MSGLink
   While Not oRs.EOF               'debug结果是用方式1的时候oRs.EOF是false,方式2的时候oRs.EOF是true。但是SQLQuerySentence 都是相同一句话。为什么会这样呢？
     MSGLink=oRs.Fields(6).Value
     oRs.MoveNext
    Wend
msgbox MSGLink
  Dim LinkArray,filename
   filename=Mid(MSGLink,42,75)     '
   msgbox XMLname
    oCon.Close
  Set oRs = Nothing
  Set oCon = Nothing
  ConnectDBXML=filename
End Function

[ 本帖最后由 topor 于 2009-8-17 10:08 编辑 ]

liujinkui

DBfileName=ConnectDB(DataTable.Value("a",Global))
这样写试试。

liujinkui

是你写错了。
a=DataTable.Value("a",dtGlobalSheet)

topor

原帖由 liujinkui 于 2009-8-15 15:37 发表
是你写错了。
a=DataTable.Value("a",dtGlobalSheet)

我那样写是正确的，因为我后面有msgbox出来看，value是正确的。
Debug到函数里面看传的参数也是正确的，就是函数里面那个判断DB查询结果的语句两种方式运行结果不一样。
我试过了
a=DataTable.Value("a",dtGlobalSheet)
a=DataTable.Value("a",Global)
两者运行结果是一样的，你可以自己再试试...

topor

原帖由 liujinkui 于 2009-8-15 14:47 发表
DBfileName=ConnectDB(DataTable.Value("a",Global))
这样写试试。

肯定不能这样写了，因为a是一个变量，不能用""的。

liujinkui

Global 里有个a列, 问题应该不在这

liujinkui

SQLQuerySentence = SQLQuerySentence + "'"+a +"'"
这条语句不用+ 用&,试试

wendy811110

不错，学习了～～～

topor

原帖由 liujinkui 于 2009-8-15 23:00 发表
SQLQuerySentence = SQLQuerySentence + "'"+a +"'"
这条语句不用+ 用&,试试

试过了，结果还是一样的。两种方式的运行结果不一样。
为什么呢？

topor

找到问题的根源了，其实两种方式都是可以的。
是因为我datatable里面的那个值多了一个空格，晕死了...
多谢liujinkui 一直的关注，呵呵

linhd030

汗！

DataTable的这种错误常见！！！大家小心了！！

heqingbluesky

vbs中，常见的错误就是空格的问题了。

还有就是路径的调用，也有同样的问题。