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

[sungengyu]

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

[liuxiuk]

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

[sungengyu]

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

无语。

[长尾巴的悟空]

我也无语

[sungengyu]

顺便更正一个笔误， H_NOINTERFACE ------〉 E_NOINTERFACE

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

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

[liuxiuk]

靠 --
--
没仔细看

---
sorry

[liuxiuk]

看到try头就大了

[yxz_lp]

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

[sungengyu]

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

yxz_lp() ：文档说的是 ppstm 不能为空，而不是 *ppstm 。

[sungengyu]

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

至今仍不得其解。

[sungengyu]

问题扩展：（追加问题，同样为100分）

如何序列化 _variant_t 呢？

[dyw]

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

[dyw]

猜测：从数据库返回的记录集有数据库的连接状态，因此不能SaveRS。

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

pRS->putref_ActiveConnection(NULL);

[chenyu2202863]

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