QTP连接SQ;数据库问题

闪闪金光

我的代码是这样的!
Sub OpenDB(conn,sql,res)
   Set cnn=CreateObject("adodb.connection")
   cnn.open conn
   Set res=CreateObject("adodb.recordset")
   res.open sql,cnn ,1,1
End Sub
conn= "DRIVER=SQL Server;SERVER=192.168.126.106;UID=cmWD=133456;APP=QuickTest Professional;WSID=JZT-BE5292ADBAA;DATABASE=jointownes"
sql="exec pro_zxgl_zlfx_jc 'S420821002X002HA','2009-09-05'"
Call OpenDB(conn, sql,res)
在执行到Call语句的时候,出现错误!提示说:"内存不够",可是我任务管理器的可用物理内存还有200M,
数据库连接没有什么问题,在读取数据的时候,报"内存不够"的错误!
请问是什么原因呀!

ls_721521

sub里加个
Set cnn=nothing
Set res=nothing
试试

闪闪金光

这个我写在CloseDB这个函数里面了
直接诶调用的

闪闪金光

请教各位给我解决解决啥!

闪闪金光

问题已经解决了,是我定义了一个一维数组,里面的值是-1,所以才内存不够