VC中如何返回Recordset到ASP中

[LuoQS1]

VC中如何返回Recordset到ASP中，如果要在组件中串很多数据到ASP中显示，大家一般事如何做的，用字符串还是用Recordset或者用数组????.希望高手指点。本人在线恭候

[LuoQS1]

希望高手指点???????????????????????????

[LuoQS1]

大家在开发中没有遇到类似的问题吗

[qhq800]

关注

[LuoQS1]

我去回答10个别人的技术问题后回来，希望有高手回答

[freegoal]

我这是用动态连接库的方式实现的，你可以用Com DLL实现：

extern "C" __declspec(dllexport) _Recordset * WINAPI GetRecordsetBySQL(const char* bstrSQL)
{
char cnstr[260] = { 0 };

try{
_RecordsetPtr sp_rs(_uuidof(Recordset));
_ConnectionPtr sp_con(_uuidof(Connection));

//sp_con->ConnectionString ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=adostudent.MDB;DefaultDir=C:\\;";
::strcpy(cnstr, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=");
::strcat(cnstr, m_LocalDBPath);
sp_con->ConnectionString = cnstr;
// sp_con->ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=pubs;Data Source=ricka5;";
sp_con->CursorLocation = adUseClient;

sp_con->Open( "", "", "", -1 );

_variant_t vRows((short)0);

sp_rs = sp_con->Execute(bstrSQL, &vRows, adCmdText);
sp_rs->PutRefActiveConnection(NULL);// Disassociate the connection from the recordset.
sp_con->Close();
sp_rs->AddRef();

return sp_rs;
}
catch( _com_error &e){
cLogFile.LogFile("GetRecordsetBySQL: %s", e.ErrorMessage );
return NULL;
}

}

[LuoQS1]

to freegoal(呵呵):
其实比较难的就是在接口定义文件中如果把_Recordset 作为接口定义的一个参数会出现编译错误。如下
[id(5), helpstring("method GetADORecordset")] HRESULT GetADORecordset([out, retval] _Recordset **ppRecordset);

出现如下的编译错误
syntax error : expecting a type specification near "_Recordset"

我现在头疼就是如何解决这个编译错误，我知道用VARIANT*是可以的但是他又出现一个我到现在也无法解决另一个问题

[LuoQS1]

高手是不是都去赚钱去了？？？？？？？？

[white_whan]

需要在idl文件中引入_Recordset的声明。
另外，返回rs时使用rs->QueryInterface(IID_IDispatch, (void*)&pDispath)返回IDispatch接口指针比较稳妥。

[LuoQS1]

to white_whan(white):
不好意思，我还不知道如何在idl文件中引入_Recordset的声明。您能否详细说明一下,谢谢！

[white_whan]

我以前做过现在记不大清楚了。
在idl文件中使用：
importlib("C:\....\..\msado15.dll");
or
引入类型库文件tlb也可以。
要是不行的话，我回去查一下。

[LuoQS1]

先谢谢white_whan(white)，我去试一下

[waynebaby]

如果使用 ado 2.5以上，可以把 recordset 保存成为xml
然后返回 cstr 或者 bstr 到asp
然后用asp的rs 重新读取

我是做vb的，用vb代码就是这样

com里面：
dim st as new adodb.stream
rs.save st,(这里是存为xml的一个枚举类型，俺忘了咋写了)
dim strXML as string
strXML=st.read(st.acturasize)

这样返回得就是 xml字符串

以后，asp里面就可以用 rs读取xml了
asp里面
dim st
set st=createobject("adodb.stream")
st.open
st.write strXML

rs.open st

rs就出现在asp里面了

顺便说，这个rs是离线的。。。。对不起，俺只会离线的
有些记不得拼写。。。。大家原谅

[white_whan]

另外需改写IDL文件如下（ODL）：
import "oaidl.idl";
import "ocidl.idl";

[
uuid(41AC6B64-752C-48BB-981D-D9F02287D208),
version(1.0),
helpstring("idltest 1.0 Type Library")
]
library IDLTESTLib
{
importlib("stdole32.tlb");
importlib("stdole2.tlb");
importlib("D:\\Program Files\\Common Files\\System\\ado\\msado26.tlb");

[
object,
uuid(AEE096FB-6A07-4AED-9BC5-E9D0F63460FA),
dual,
helpstring("IADOCOM Interface"),
pointer_default(unique)
]
interface IADOCOM : IDispatch
{
[id(1), helpstring("method GetRecordset")] HRESULT GetRecordset(_Recordset**ppRS);
};

[
uuid(F7E38FC8-C5AA-4485-B7A6-0D9AA3CF7089),
helpstring("ADOCOM Class")
]
coclass ADOCOM
{
[default] interface IADOCOM;
};
};

将接口定义放入Library内即写成ODL文件格式。

[tpProgramer]

white_whan(white) 的方法是对的，我做过，可以的。这个idl文件已经和自动生成的不同了。

还有就是在接口函数返回的时候，要注意下面代码的最后返回部分：
_RecordsetPtr pRSMems;
try
{
_bstr_t strSQL;
strSQL = "Select * from Memebers";
//Now make a recordset that can be passed up to the asp page.
hr = pRSMems.CreateInstance(__uuidof(Recordset));
if(FAILED(hr))
_com_raise_error(hr);
hr = pRSMems->Open(strSQL, VS_CONNECT, adOpenstatic,
adLockReadOnly,adCmdText);
if(FAILED(hr))
_com_raise_error(hr);
}
catch(_comm_error &e)
{
return e.Error();
}
//Return the recordset to the asp page.
*pRS = (IDispatch *) pRSMems.Detach();
return S_OK;

[similar99]

试试看用IDispatch ** 代替 _Recordset ** ?

[similar99]

哦, 找到一些相关源码

接口定义中使用 VARIANT
返回 _variant_t((IDispatch*)pRs); //pRs 是 _RecordsetPtr 型

[white_whan]

直接使用IDispatch也是可以的。另外别忘了为它获得引用计数

[tpProgramer]

下面是一个例子：

STDMETHODIMP CMemberData::Search(BSTR strLastName ,IDispatch ** pRS)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState())
_RecordsetPtr pRSMems;
try
{
_bstr_t strSQL;
strSQL = "Select * from Memebers";
//Now make a recordset that can be passed up to the asp page.
hr = pRSMems.CreateInstance(__uuidof(Recordset));
if(FAILED(hr))
_com_raise_error(hr);
hr = pRSMems->Open(strSQL, VS_CONNECT, adOpenstatic,
adLockReadOnly,adCmdText);
if(FAILED(hr))
_com_raise_error(hr);
}
catch(_comm_error &e)
{
return e.Error();
}
//Return the recordset to the asp page.
*pRS = (IDispatch *) pRSMems.Detach();
return S_OK;
}

[LuoQS1]

谢谢white_whan(white):给分