在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>VB>F0136343 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 vb中怎么配置COM+组件?back to VB forum  
作者:8788,8级分数:20
日期:2005/5/24 16:08:00类别:VB, 技术问题
回复:5次浏览:2333次
状态:已结贴 [dockbar(19), firefly(1)]

我想建立COM+应用程序,
我要在组件服务中看到它...

不用时可以删除它

在vb中怎样做?

reply[F0136343]
 



 
 re [1] vb中怎么配置COM+组件?VB forum  
- dockbar05-05-26 12:56  

sub AddComApp

  strNewName  = "TESTProj"
  RemoveComPlusApplication(strNewName)

  Set oCatalog = CreateObject("COMAdmin.COMAdminCatalog")
  Set oApplications = oCatalog.GetCollection("Applications")
  oApplications.Populate

  Set oApp = oApplications.Add
  oApp.Value("Name") = strNewName
  oApplications.SaveChanges

  strDllPath = "E:\user\DataTrans\test.dll"
  Err.Clear
  Err.Number = 0
  Call oCatalog.InstallComponent(oApp.Name, strDllPath, vbNullString, vbNullString)
  If (Err.Number <> 0) Then
    msgbox Err.Description
  End If

  oApplications.SaveChanges
  Set oApplications = Nothing
  Set oCatalog = Nothing
end sub


Sub RemoveComPlusApplication(strClassName)
  On Error Resume Next
  Dim oCatalog
  Dim oApplications
  Dim oComponents
  Dim miCount
  Dim miCount1
  Dim blnRemovePkg
  Dim numApps
  Dim numComponents
 
  Set oCatalog = CreateObject("COMAdmin.COMAdminCatalog")
  Set oApplications = oCatalog.GetCollection("Applications")
  oApplications.Populate
   
  ' Remove all applications that contain components with strClassName
  numApps = oApplications.Count
  For miCount = numApps - 1 To 0 Step -1
      blnRemovePkg = False
      Set oComponents = oApplications.GetCollection("Components", oApplications.Item(miCount).Value("ID"))
      oComponents.Populate
      numComponents = oComponents.Count
      For miCount1 = numComponents - 1 To 0 Step -1
        If (UCase(oComponents.Item(miCount1).Name) = UCase(strClassName)) Then
            '
            'There we go, this APP does contains a component with the
            ' specified class name.  It needs be removed
            '
            blnRemovePkg = True
            Exit For
        End If
      Next
     
      If blnRemovePkg Then
        ' Shutdown and Remove
        Call oCatalog.ShutdownApplication(oApplications.Item(miCount).Value("ID"))
       
        ' remove all components in application
        For miCount1 = numComponents - 1 To 0 Step -1
            Call oComponents.Remove(miCount1)
        Next

        Call oApplications.Remove(miCount)
        ' Commit our deletions
        oApplications.SaveChanges
      End If
     
      Set oComponents = Nothing
  Next

  Set oApplications = Nothing
  Set oCatalog = Nothing
End Sub

reply[F0136374]
 



 
 re [2] vb中怎么配置COM+组件?VB forum  
- 878805-05-27 08:06  

真太谢谢了,我找这方面资料好久都没找到.太谢谢了,老兄!

reply[F0136387]
 



 
 re [3] vb中怎么配置COM+组件?VB forum  
- 878805-05-27 14:09  

OK 了 !

reply[F0136398]
 



 
 re [3] vb中怎么配置COM+组件?VB forum  
- firefly05-05-30 13:53  

别忘记结贴哦~

reply[F0136418]
 



 
 re [4] vb中怎么配置COM+组件?VB forum  
- jimmypeter55511-02-22 12:52  

,,,嗨,大家好,
    *

该管道组件我已经是一个简单的事情,它只是用来发送
对已配置的渠道列表数据。这是写在vb.net,
寄存器确定(regsvcs等)出现的问题,在没有在AIC的名单
端口设置在消息管理器,但拒绝保存。我随信附上
该项目如果有人关心一下吧。

发生此错误时,试图挽救码头(即完成设定的端口
上)

我碰到一个“BizTalk消息传送管理器错误“

该消息传送端口不能保存

错误0xC0C0128E:要么这个地址是不正确的语法
应用程序集成组件传输类型的财产,或组件
未注册,否则该组件是不是一个有效的AIC组件。

我一直在撞了一段时间我对这个头...

任何想法...?
cheap armani watches
cheap chopard watches
cheap concord watches
cheap ebel watches
cheap longines watches

reply[F0143992]
 



您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
218.75