当前位置:编程学习 > VB >>

求助高手 很早开发的一个项目 VB com+ 组件 客户端无法访问到server 端的dll (有代码 )

Public Function ConnGetRecordSetBySql(ByVal SQL As String) As ADODB.Recordset
    On Error GoTo ERROR     'U0038 add
    Set Conn = Nothing
'    MsgBox "New Getrecordset"     'test
    Set Conn = New GetRecordSet.clsMain   'V0028 Mark  'V0029 unmark
'    MsgBox "Set Getrecordset"     'test
    Set ConnGetRecordSetBySql = Conn.GetRecordSetBySql(SQL)
'    MsgBox "Set Getrecordset Ok" 'test
    Set Conn = Nothing

    Exit Function
ERROR:
    MsgBox Err.Number & Err.Description
End Function




问题就出在  Set Conn = New GetRecordSet.clsMain    这句话上, GetRecordSet.clsMain 是注册在server上的,com+组件引用的 GetRecordSet的dll。    原来没做过的com+的项目,现在有点代码反而卡在这里,请帮帮忙。。
学习  upupupupupupupupupupupupupupupupupup 不懂,up GetRecordSet 要在本机注册
Set Conn = CreateObject("GetRecordSet.clsMain", "192.168.1.3") '服务端的IP

参考
VB6企业版中提供的范例,一个标准的三层分布式应用
你可以在 BV6安装目录\MSDN98\98VS\2052\SAMPLES\VB98\misc\booksale 找到
远端的DLL需要在本地注册。 misc\booksale 
我连这个目录都没有
引用 3 楼 ldy888 的回复:
GetRecordSet 要在本机注册
Set Conn = CreateObject("GetRecordSet.clsMain", "192.168.1.3") '服务端的IP

参考
VB6企业版中提供的范例,一个标准的三层分布式应用
你可以在 BV6安装目录\MSDN98\98VS\2052\SAMPLES\VB98\misc\booksale 找到


可以把这个例子发给我一下吗?
邮箱:86150302@qq.com 远端布署太麻烦.
建议改掉吧. 恩 现在解决了  GetRecordSet 本地是需要注册的 不然没法调用  我这个问题应该是系统账户的权限问题。。。
补充:VB ,  COM/DCOM/COM+
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,