一個關于創建對象（Com+)的問題﹐急﹐在線等待。。。

Question

我在form  中的有如下一個Function.Private Function GetRS(ByVal strApServer As String, _
                     yVal strDataName As String, _
                       ByVal strSql As String, _
                 Optional ByRef msgErr As String = "") As ADODB.RecordsetDim obj As Object
On Error GoTo ErrHandlerSet obj = CreateObject("DFOQuerySql.clsBrowse")Set GetRS = obj.GetRS(strApServer, strDataName, strSql, msgErr)Set obj = Nothing
Exit Function
ErrHandler:
    MsgBox Err.Source & Space(2) & Err.Description, vbExclamation + vbOKOnly, "Error"
    
End Function其中DFOQuerySql 是一個Com+ 元件（我自己制作的一個元件。）
我將此元件拉入Win2000的元件服務中。
再分別將其以服務器模式（DFOQuery_Server)和客戶端模式(DFOQuery_Client)匯出。
在一台機子上裝入Sever端的元件﹐ 在另一台上裝入Client端的元件。
且將form 制成 Test.exe
當我將其test.exe 在Sever 上運行時一切正常﹐在Client  上運行時就出錯了。
錯誤就出在我上面的那個Function 中的==》
         Set obj = CreateObject("DFOQuerySql.clsBrowse")
在此一步操作中不能建立此對象。
不知是為什么﹐怎樣才能解決此問題﹖
急急急。。
在線等候。

Answer 1

你的DFOQuerySql需要编译成远程组件，生成一个vbr文件，具体的内容可以看msdn.microsoft.com

Answer 2

我的DFOQuerySql 是編譯成遠程組件的啊

Answer 3

我在調用時出現的錯誤提示如下。
首先是﹕
    Project1 Automation錯誤
    找不到指定的物件輸出程式。點擊"確定" 后又出現如下提示﹕
    沒有設定物件變數或With區塊變數我追蹤的結時是由于執行不過下面這句話所致﹕
Set obj = CreateObject("DFOQuerySql.clsBrowse")