client 端的程式定義一個 ADO 的 recordset,以取得 ActiveX Server 的 recordset.
我試的結果都不成功耶 !! 是 recordset 不能透過 Remote Automation 傳送嗎 ??
程式片段如下 :
'Client 端的程式
Dim a as object
Dim rst as new ADODB.Recordset
set a=CreateObject("Proj1.Server")
set rst=a.get_rst '此 method 會傳回一 rst 物件
set adodc1.recordset=rst
'Server 端的程式
Dim conn as new ADODB.Connection
Dim rst as new ADODB.Recordset
Function Get_Rst() as ADODB.Recordset
conn .open ConnectionString
rst.open SqlStr,conn,adOpenKeyset,adLockPessimistic
set Get_Rst = rst
End Function
--
[1;32m※ Origin: [33m交大資工鳳凰城資訊站 [37m<bbs.csie.nctu.edu.tw> [m
[1;31m◆ From: [36m203.74.188.2 [m