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

Question

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

Answer 1

if (FAILED(hr=OleSaveToStream(pIPersist, *ppStream))) // ==

Answer 2

liuxiuk() : 你觉得应该把 = 换成 == ？ 无语。

Answer 3

顺便更正一个笔误， H_NOINTERFACE  ------〉 E_NOINTERFACE帮我猜一下可能的错误原因也好，我现在没什么头绪。 :(cmd->Execute 返回的 Recordset 可以取出数据，但就是不知道为什么 OleSaveToStream 会返回 E_NOINTERFACE。

Answer 4

靠 --
--
没仔细看---
 sorry

Answer 5

http://support.microsoft.com/kb/242249
http://msdn2.microsoft.com/en-us/library/ms678407.aspx

Answer 6

*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. 

Answer 7

dyw(道不同不相为谋) : 这两个文档都看过，SaveRS 的代码就是从微软网站上拷贝下来的。OleLoadFromStream 不太懂，不过在 SaveRS 里面的细节，应该不用我管吧？yxz_lp() ：文档说的是 ppstm 不能为空，而不是 *ppstm 。

Answer 8

这篇文章 http://support.microsoft.com/kb/242249 的例子中，SaveRS 是没问题的。但是，如果是数据库查询后返回来的 Recordset ，执行 SaveRS 就会失败。至今仍不得其解。

Answer 9

问题扩展：（追加问题，同样为100分）如何序列化 _variant_t 呢？

Answer 10

猜测：从数据库返回的记录集有数据库的连接状态，因此不能SaveRS。尝试将AcitveConnection属性清除后，看看能否保存。pRS->putref_ActiveConnection(NULL);

Answer 11

这个问题我也遇到了，求解~
用command执行得到的recordset就是不能SaveRs