在写一个测试脚本时，把连接数据库的函数放在 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
具体错误原因没有搞很清楚，估计是因为给一给函数赋值后，就立刻返回去吗？不清楚。。以后再讨论。 
|
本类阅读TOP10