[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错误。

...全文

516 13 打赏收藏转发到动态举报

写回复

用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。