[HELP]把 Recordset 保存为 IStream 出错……

sungengyu 2007-08-15 10:48:15

HRESULT SaveRS(_RecordsetPtr pRS/*IN*/, IStream* * ppStream/*OUT*/)
{
HRESULT hr=S_OK;
try
{
*ppStream=NULL;

// QI and return IPersistStream
IPersistStreamPtr pIPersist(pRS);
if (pIPersist )
{
//Create a standard stream in memory
if (FAILED(hr=CreateStreamOnHGlobal(0, TRUE, (IStream **)ppStream)))
return hr;

// Persist the pRS
if (FAILED(hr=OleSaveToStream(pIPersist, *ppStream)))
return hr;

}
else
return E_NOINTERFACE;
}
catch (_com_error & e)
{
return e.Error();
}
return S_OK;

}

void MyFunc()
{
if( ! AfxOleInit() )
return ;

using namespace ADODB ;
try
{
HRESULT hr = 0 ;

//
_ConnectionPtr pConnection ;
if( FAILED(pConnection.CreateInstance(__uuidof(Connection))))
return ;

CString strConn = "Provider=OraOLEDB.Oracle;User ID=hello;Password=hello;Persist Security Info=True;Data Source=local" ;
if( FAILED(pConnection->Open(_bstr_t(strConn),"","",adConnectUnspecified)))
return ;

//
_CommandPtr cmd ;
if(FAILED(cmd.CreateInstance(__uuidof(Command))))
return ;

cmd->ActiveConnection = pConnection ;
cmd->CommandText = (LPCTSTR)"Select * From PacsUser" ;

_RecordsetPtr pRS = cmd->Execute(NULL,NULL,adCmdText) ;

IStreamPtr pStream ;
hr = SaveRS(pRS,(IStream**)&pStream) ; // 这里返回 H_NOINTERFACE,调试后发现,是OleSaveToStream错误。
...全文
515 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
chenyu2202863 2012-04-09
  • 打赏
  • 举报
回复
这个问题我也遇到了,求解~
用command执行得到的recordset就是不能SaveRs
dyw 2007-08-22
  • 打赏
  • 举报
回复
猜测:从数据库返回的记录集有数据库的连接状态,因此不能SaveRS。

尝试将AcitveConnection属性清除后,看看能否保存。

pRS->putref_ActiveConnection(NULL);
dyw 2007-08-17
  • 打赏
  • 举报
回复
http://support.microsoft.com/kb/242249
http://msdn2.microsoft.com/en-us/library/ms678407.aspx
sungengyu 2007-08-17
  • 打赏
  • 举报
回复
问题扩展:(追加问题,同样为100分)

如何序列化 _variant_t 呢?
sungengyu 2007-08-17
  • 打赏
  • 举报
回复
这篇文章 http://support.microsoft.com/kb/242249 的例子中,SaveRS 是没问题的。但是,如果是数据库查询后返回来的 Recordset ,执行 SaveRS 就会失败。

至今仍不得其解。
sungengyu 2007-08-17
  • 打赏
  • 举报
回复
dyw(道不同不相为谋) : 这两个文档都看过,SaveRS 的代码就是从微软网站上拷贝下来的。OleLoadFromStream 不太懂,不过在 SaveRS 里面的细节,应该不用我管吧?

yxz_lp() :文档说的是 ppstm 不能为空,而不是 *ppstm 。
yxz_lp 2007-08-17
  • 打赏
  • 举报
回复
*ppStream=NULL;//这行去掉看看
//////////////////////////////////////////////////
ppstm
[out] The address of IStream* pointer variable that receives the interface pointer to the new stream object. Its value cannot be NULL.

liuxiuk 2007-08-15
  • 打赏
  • 举报
回复
看到try头就大了
liuxiuk 2007-08-15
  • 打赏
  • 举报
回复
靠 --
--
没仔细看

---
sorry
sungengyu 2007-08-15
  • 打赏
  • 举报
回复
顺便更正一个笔误, H_NOINTERFACE ------〉 E_NOINTERFACE

帮我猜一下可能的错误原因也好,我现在没什么头绪。 :(

cmd->Execute 返回的 Recordset 可以取出数据,但就是不知道为什么 OleSaveToStream 会返回 E_NOINTERFACE。

长尾巴的悟空 2007-08-15
  • 打赏
  • 举报
回复
我也无语
sungengyu 2007-08-15
  • 打赏
  • 举报
回复
liuxiuk() : 你觉得应该把 = 换成 == ?

无语。

liuxiuk 2007-08-15
  • 打赏
  • 举报
回复
if (FAILED(hr=OleSaveToStream(pIPersist, *ppStream))) // ==

4,018

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC 数据库
社区管理员
  • 数据库
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧