ado vc调oracle 存储过程问题？求救！！

anran2008 2008-12-08 03:39:16
oracle存储过程：
...
type my_cursor is ref cursor;
...
procedure my_proc
(id in number, f3 out my_cursor,f4 out my_cursor);
is begin
open f3 for select * from sdb.test_table where age>id;
open f4 for select * from sdb.test_table2 where age>2*id;
end;
end;

表test_table
id number, name varchar2, age number
链接数据库：
_RecordsetPtr m_recordset;
_ConnectionPtr m_connection;
_CommandPtr m_command;
...初始化环境...
m_connection->Open("Provider=MSDAORA.1;Use ID=sdf;Password=sdf;Data Source=oranetwork;Persist Security Info=True;");
m_command.CreateInstance(__uuidof(Command));
m_recordset.CreateInstance(__uuidof(Recordset));
m_command->ActiveConnection = m_connection;
m_command->CommandText = "{call pro_test_tabs(24)}";//存储过程
m_command->PutCommandType(adCmdText);
m_recordset = m_command->Execute(0,0,adCmdUnknown);
//取存储过程中游标的值
if (m_recordset->Fields->Count == NULL || m_recordset->Fields->Count==0)
{
std::cout << "没结果集" << std::endl;
}
else
{
int ncount = 0;
_variant_t varparam;
_bstr_t bstr;
while (!(m_recordset == NULL))
{
long colnum = m_recordset->Fields->Count;//去表格列数
if (colnum == 0) break;
std::cout << "\n--------------#table" << ++ncount << "-----------\n";
for (int j=0; j<colnum; j++)
{
varparam = m_recordset->Fields->GetItem((long)j)->Name;//获取列名
while (!m_recordset->EndOfFile)
{
for (int i=0; i<colnum; i++)
{
varparam.Clear();
varparam = m_recordset->GetFields()->GetItem((long)i)->Value;//获取表格单元格内容
if (varparam.vt != VT_NULL)
bstr = varparam;
else
bstr = "NULL";
printf(" %s ",(const char*)bstr);;//输出表格单元格内容
}//for
m_recordset->MoveNext();
}//while
long lngRec = 0;
m_recordset = m_recordset->NextRecordset((VARIANT *)lngRec);//获取下一个游标集合???获取不到
}while
}

问题：！！！！！！
问题1：
在调用存储过程"{call pro_test_tabs(24)}"中其参数24正确传入存储过程中，即在
my_proc
(id in number, f3 out my_cursor,f4 out my_cursor);
打印出的是整个test_table表，并没有按age>id 来处理，跟踪发现获取到的id为空？？？？？？？？？？？？想不通！
问题2：
取不到第二个游标f4的值，有报错：当前提供程序不支持从单一执行返回多个记录集。
该怎样取到f4游标中的值？
请高手帮忙，谢谢！


...全文
74 点赞 收藏 16
写回复
16 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
zhangyong369 2008-12-08
[Quote=引用 14 楼 codearts 的回复:]
引用 12 楼 anran2008 的回复:
codearts 你的oracle 版本是多少的啊？
但是收到的结果是不是整个表达内容，id>v_id这个限制没有用上啊？


用上了。
你用sqlplus来测试下就知道了。
sql>var x1 refcursor;
sql>var x2 refcursor;
sql>begin my_proc(24, :x1, :x2);
sql>print :x1;
sql>print :x2;

你在sqlplus下依次执行以上的命令，看看结果就知道了。
[/Quote]可以
 回复 赞
codearts 2008-12-08
你的代码，最前面的那个for的逻辑有点错误，应该是：

		int ncount = 0; 

		_variant_t varparam; 

		_bstr_t bstr; 

			while (!(m_recordset == NULL)) 

			{ 

				long colnum = m_recordset->Fields->Count;//去表格列数 

				if (colnum == 0) break; 

				//std::cout < < "\n--------------#table" < < ++ncount < < "-----------\n"; 

				for (int j=0; j <colnum; j++) 

				{ 

					varparam = m_recordset->Fields->GetItem((long)j)->Name;//获取列名 

					//输出列名

				}//for ------- 这个 for 应该在这里结果



				while (!m_recordset->adoEOF) 

				{ 

					for (int i=0; i <colnum; i++) 

					{ 

							varparam.Clear(); 

							varparam = m_recordset->GetFields()->GetItem((long)i)->Value;//获取表格单元格内容 

							if (varparam.vt != VT_NULL) 

							bstr = varparam; 

							else 

							bstr = "NULL"; 

							//printf(" %s ",(const char*)bstr);;//输出表格单元格内容 

					}//for 

					m_recordset->MoveNext(); 

				}//while 

			

				long lngRec = 0; 

				m_recordset = m_recordset->NextRecordset((VARIANT *)lngRec);//获取下一个游标集合???获取不到 

			}//while
回复 赞
codearts 2008-12-08
[Quote=引用 12 楼 anran2008 的回复:]
codearts 你的oracle 版本是多少的啊？
但是收到的结果是不是整个表达内容，id>v_id这个限制没有用上啊？
[/Quote]

用上了。
你用sqlplus来测试下就知道了。
sql>var x1 refcursor;
sql>var x2 refcursor;
sql>begin my_proc(24, :x1, :x2);
sql>print :x1;
sql>print :x2;

你在sqlplus下依次执行以上的命令，看看结果就知道了。
 回复 赞
anran2008 2008-12-08
codearts 这个100分给你了，要是能再帮我看下id>v_id这个v_id没传进去的原因，我再开个新的100给你
 回复 赞
anran2008 2008-12-08
codearts 你的oracle 版本是多少的啊？
但是收到的结果是不是整个表达内容，id>v_id这个限制没有用上啊？
 回复 赞
codearts 2008-12-08
由此看来，你的问题：
取不到第二个游标f4的值，有报错：当前提供程序不支持从单一执行返回多个记录集。

就是连接字符串里没有设置PLSQLRSet=1造成的。

----------------------------------
你的第一个问题：
打印出的是整个test_table表，并没有按age>id 来处理，跟踪发现获取到的id为空？？？？？？？？？？？？想不通！

很明显了，你的表有个id字段，而你的my_proc这个sp也有个id的参数，这2个搞混了，建议你改这个参数名：v_id。否则，oracle选择id是字段名，而非参数名
 回复 赞
codearts 2008-12-08
上面的代码，测过我的测试（在我本机），可以获取到2个集合。

--这个是我的sp

create or replace procedure my_proc

(

	v_id number

   ,v_f3 out sys_refcursor

   ,v_f4 out sys_refcursor

) 

as

begin 

	open v_f3 for select * from test_table where id>v_id;

	open v_f4 for select * from test_table2 where id>2*v_id;

end;
回复 赞
codearts 2008-12-08


		_RecordsetPtr m_recordset; 

		_ConnectionPtr m_connection; 

		_CommandPtr m_command; 



		m_connection.CreateInstance(__uuidof(Connection));

		m_command.CreateInstance(__uuidof(Command)); 

		//m_recordset.CreateInstance(__uuidof(Recordset)); 



		//...初始化环境... 

		m_connection->Open("Provider=OraOLEDB.Oracle.1;Use ID=scott;Password=dba123;Data Source=ora1;PLSQLRSet=1", "scott", "dba123", NULL); 

		m_command->ActiveConnection = m_connection; 

		m_command->CommandText = "{call my_proc(24)}";//存储过程 

		//m_command->PutCommandType(adCmdText); 

		m_recordset = m_command->Execute(0,0,adCmdUnknown); 

		//





		//取存储过程中游标的值 

		if (m_recordset->Fields->Count == NULL || m_recordset->Fields->Count==0) 

		{ 

			//std::cout < < "没结果集" < < std::endl; 

			//CString str = "没有结果集";

		} 

		else 

		{ 

		int ncount = 0; 

		_variant_t varparam; 

		_bstr_t bstr; 

			while (!(m_recordset == NULL)) 

			{ 

				long colnum = m_recordset->Fields->Count;//去表格列数 

				if (colnum == 0) break; 

				//std::cout < < "\n--------------#table" < < ++ncount < < "-----------\n"; 

				for (int j=0; j <colnum; j++) 

				{ 

					varparam = m_recordset->Fields->GetItem((long)j)->Name;//获取列名 

					while (!m_recordset->adoEOF) 

					{ 

						for (int i=0; i <colnum; i++) 

						{ 

								varparam.Clear(); 

								varparam = m_recordset->GetFields()->GetItem((long)i)->Value;//获取表格单元格内容 

								if (varparam.vt != VT_NULL) 

								bstr = varparam; 

								else 

								bstr = "NULL"; 

								//printf(" %s ",(const char*)bstr);;//输出表格单元格内容 

						}//for 

						m_recordset->MoveNext(); 

					}//while 

				}//for

				

				long lngRec = 0; 

				m_recordset = m_recordset->NextRecordset((VARIANT *)lngRec);//获取下一个游标集合???获取不到 

			}//while 

		} 





		return 0;
 回复 赞
xcluii 2008-12-08
你这样调用存储过程只能接收单一查询结果，而实际上你的存储过程输出了两个记录集。
你可以用union的方式合并两个结果集
 回复 赞
codearts 2008-12-08
等会我搞个vc test一下， 赚这100分先，呵呵
 回复 赞
anran2008 2008-12-08
虽然我的问题还没解决 还是 谢谢 codearts！
 回复 赞
codearts 2008-12-08

m_connection->Open("Provider=MSDAORA.1;Use ID=sdf;Password=sdf;Data Source=oranetwork;Persist Security Info=True;PLSQLRSet=1");

找了一圈终于找到，这个PLSQLRSet=1是必顺设置的。

你其它的代码还有没有问题，就不知道了
 回复 赞
anran2008 2008-12-08
还要什么参数？
为什么"{call pro_test_tabs(24)}"中的24无法传入到存储过程中去？
 回复 赞
codearts 2008-12-08
m_connection->Open("Provider=MSDAORA.1;Use ID=sdf;Password=sdf;Data Source=oranetwork;Persist Security Info=True;");

这个连接字符串有点问题的，在ado里面要调用out参数的ref cursor,应该还有个参数指定的。否则你调用不到out的refcursor
 回复 赞
Andy__Huang 2008-12-08
你查一下test_table2里面的数据,按你的意思,里面的内容肯定有不符合要求的内容了

还有这两条select 语句
open f3 for select * from sdb.test_table where age>id;
open f4 for select * from sdb.test_table2 where age>2*id;
应该用select 具体的字段,这是写良好代码的习惯
 回复 赞
sleepzzzzz 2008-12-08
好象很多类似你这个问题的,不知道他们解决了没有?

vc里处理NULL值，是要注意的，应该写成这样DBNULL.value
 回复 赞
相关推荐
VC使用ADO连接Oracle数据库 VC使用ADO连接Oracle数据库 内涵详细使用说明，可以按照说明配置学习使用
C++ ADO方式连接oracle数据库 https://blog.csdn.net/wangchao712217/article/details/78728164 这个作者的源代码，但是他的编译不过，我修改过后了，现在是可以的，不缺少文件的。
VC ADO ORACLE 采用C++流的方式对oracle数据做select ,update ,insert,delete操作，并且采用绑定变量的方式提高效率
VC ado调用oracle执行存储过程获取记录集 测试过程中发现执行sql语句没什么问题，但是执行存储过程就失败了。主要是oracle和SQL Server在存储过程上差异比较大。 在网上搜了一下，基本方法都是创建一个oracle存储过程，如果需要返回记录集
VC ADO调用存储过程 关于ADO调用存储过程的标准的做法：按照以下步骤进行： 　1、生成并初始化一个_CommandPtr对象； 　2、生成调用存储过程需要的参数，这些参数都是_ParameterPtr对象； 　3、按照顺序将使用_CommandPtr的Append方法为...
VBA中如何调用ADO调用ORACLE存储过程 VBA中如何调用ADO调用ORACLE存储过程 VBA中如何调用ADO调用ORACLE存储过程 VBA中如何调用ADO调用ORACLE存储过程
使用ADO处理存储过程VC源代码:stored_proc_using_ado 使用ADO处理存储过程源代码:stored_proc_using_ado 关键字：stored_proc_using_ado,存储过程
VC+ADO+ORACLE连接 这里实现ADO连接数据库的最简单代码,有利于初学数据库编程人员的参考,希望能对你有帮助!!!
在VC6中使用ADO读取Oracle中的BLOB字段 在VC6中使用ADO读取Oracle中的BLOB字段
delphi7调用oracle存储过程实例 DELPHI通过创建ADOSTOREDPROC调用ORACLE数据库实例。
MFC使用ADO实现与Oracle数据库的操作 MFC通过ADO实现了对Oracle数据库的增删改查，主要实现了数据的增加、删除、修改、查找功能。该资源本原本是日文的，我通过个人的学习和翻译，把相关重要代码的注释以及界面都翻译成了中文。并且在此基础上添加了不少...
C# Ado.net实现读取SQLServer数据库存储过程列表及参数信息示例 主要介绍了C# Ado.net实现读取SQLServer数据库存储过程列表及参数信息,结合实例形式总结分析了C#针对SQLServer数据库存储过程及参数信息的各种常见操作技巧,需要的朋友可以参考下
VCADO调用存储过程[定义].pdf VCADO调用存储过程[定义].pdf
Excel使用ADO调用SQL Server存储过程示例 后期对于投票结果需要进行一些...但是，在调用存储过程的过程中却遇到了问题，一直无法返回记录集。最后发现问题出现在记录集的CursorLocation属性设置上，下面便把此问题的过程和解决方案提供如下，以免发生类似问题。
VB下利用ADO技术访问Oracle数据库 VB下利用ADO技术访问Oracle数据库
ADO.NET(五) 调用存储过程(oracle为例) 存储过程是保存在数据库上的批次执行的一条或者多条SQL语句，存储过程和函数相似，他们都是良好的逻辑封装体 可以接受传入和传出参数，存储过程有很多优点。 1、更易于维护 你可以优化存储过程中的命令而不用重新...
Delphi7 ado 连接远程oracle11g 这个文档，涵盖了64位oracle11g服务端的安装，因为我的win7系统是64位的，所以你们可以根据系统定安32还是64的，但是客户端和plsql是32位的，这个不区分，因为一般网上这两个都是免安装的文件夹形式，只需要拿过来...
ADO连接oracle数据库 的dll ，c++ ADO连接oracle数据库 的dll ，c++，详细讲解请到博客 http://blog.csdn.net/wangchao712217?ref=toolbar
ADO.Net对oracle数据库操作的实例代码 ADO.Net对oracle数据库操作的实例代码，需要的朋友可以参考一下
用VC ADO实现SQL存储过程的调用.pdf 用VC ADO实现SQL存储过程的调用.pdf
发帖
Oracle
创建于2007-09-28

1.6w+

社区成员

5.5w+

社区内容

Oracle开发相关技术讨论
申请成为版主
帖子事件
创建了帖子
2008-12-08 03:39
社区公告
暂无公告