VB6调用oracle存储过程的一个小问题

10年前用VB6编写的程序，不停的修修改改，一直用到现在，而且将继续使用几年。

本人最近接手了这个程序，除了“悲催”，实在想不出来其他词来形容本人的心情了。

废话略过，最近碰到一个调用存储过程的问题，耗费了一些时间，最终解决了，把结果贴出来，如果还有人像本人一样在用VB6，希望能有所帮助。

这个古老的程序，在调用oracle存储过程时，根据配置可使用不同的数据引擎，有2种可选
Provider=OraOledb.Oracle.1
Provider=MSDAORA.1

调用存储过程的代码如下

'cnDb.ConnectionString = "Provider=MSDAORA.1;… "
cnDb.Open
cmd.ActiveConnection = cnDb
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "procName"

cmd.Parameters("para1") =para1

cmd.Parameters("para2") =para2

cmd.Execute 'Provider=OraOledb.Oracle.1时，在这里报错

paraOut = cmd("out") ' 输出参数是string类型

如果使用“Provider=OraOledb.Oracle.1”，调用存储过程时报错“提供程序不能导出参数信息，没有调用 SetParameterInfo”。

如果使用“Provider=MSDAORA.1”，则调用存储过程正常。

查阅了一些资料，修改为下面的代码，使用2种方式都可以正常调用

'cnDb.ConnectionString = "Provider=MSDAORA.1;… "
cnDb.Open
cmd.ActiveConnection = cnDb
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "procName"

cmd.Parameters.Append cmd.CreateParameter( "para1", adLongVarChar, adParamInput, 1000, para1)

cmd.Parameters.Append cmd.CreateParameter( "para2", adLongVarChar, adParamInput, 1000, para2)

cmd.Execute 'Provider=OraOledb.Oracle.1时，不报错了

paraOut = cmd("out") ' 输出参数是string类型

如果存储过程返回结果集，情况更复杂，参见这里：http://topic.csdn.net/t/20060323/15/4634977.html