在调试robot脚本过程中出现了overflow

bb64844866

脚本完成得是连接一个SQL Server2000数据库，执行查询语句取出相关字段信息，然后将取出的字段值赋给String型的变量，接着把这些变量作为参数传递给了function中（脚本中自定义得函数，函数的参数就是用连接数据库取出的字段值，有String、也有Integer）。主要功能框架就是这个意思，我单步调试过程中连接数据库取值都没有问题，但是到了call "函数名"这一步，突然弹出提示overflow，不知道怎么回事。。。难道是数据库得问题吗？有经验的人多发表意见！

[ 本帖最后由 bb64844866 于 2008-8-26 13:36 编辑 ]

bb64844866

declare function fun1(a as string,b as integer)
Sub Main
'定义数据对象
dim conn as object,record as object
dim con,sql as string
dim a,b as string
set conn=createobject("adodb.connection")
con="... ...连接参数"
conn.open strcon
set record=createobject("adodb.recordset")
sql="sql语句"
record.open sql,conn
do while not record.eof
a=record("字段1") '说明：字段1在SQL Server2000数据库建表时定义的是varchar(50)型
b=record("字段2") '说明：字段2在SQL Server2000数据库建表时定义的是decimal(9)型
... ...
loop
call fun1(a,b)  执行到红色这行脚本停止，弹出了 Overflow
End Sub

function fun1(a as string,b as integer)
... ...
... ...
end function

[ 本帖最后由 bb64844866 于 2008-8-26 13:49 编辑 ]