RationalRobot中函数使用问题（我的问题）

在写一个测试脚本时，把连接数据库的函数放在 sbl文件中。执行脚本时总不成功，但是直接把函数内容拷贝到脚本中时，却可以执行成功。由于还有别的一些不开心的事情，所以郁闷不已。幸好网上朋友K猪的帮忙，帮俺搞定。我把两个函数都帖出来，以备后用。

错误的写法：

Declare function connect () as long

Function connect () as long 
        connect =  SQLOpen("DBQ=" + Trim("d:\testdata.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)})
        If connect<0 Then
            MsgBox "无法打开自动化测试数据库！"
        End If
End Function   

正确的写法：

Declare function connect () as long

Function connect () as long
        Dim retcode As Variant
        dim l as long
        l = -1
        l =  SQLOpen("DBQ=" + Trim("d:\testdata.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};",retcode,prompt:=2)
        If l<0 Then
            MsgBox "无法打开自动化测试数据库！"
        End If
        connect = l
End Function   
具体错误原因没有搞很清楚，估计是因为给一给函数赋值后，就立刻返回去吗？不清楚。。以后再讨论。

本文地址：http://com.8s8s.com/it/it22862.htm