如何以编程方式添加/删除引用? [英] How to Add/Remove reference programmatically?

问题描述

我的应用程序是为在VB.NET中扫描MS Access数据库而构建的.

My Application is built to a scan MS Access database in VB.NET.

将Access应用程序分发给最终用户时，他们可能具有不同版本的COM组件.是否可以通过编程方式添加/删除引用来解决由于版本不同而导致的引用损坏?

When the Access application is distributed to end users, they may have different versions of COM components. Is it possible to Add/Remove references programmatically to resolve broken references due to differing versions?

请分享我的代码或链接以供参考.

Please share me code or link for reference.

推荐答案

以下是一些示例代码:

从文件创建引用

  Sub AddWS()
  'Create a reference to Windows Script Host, '
  'where you will find FileSystemObject ' 
  'Reference name: "IWshRuntimeLibrary" '
  'Reference Name in references list: "Windows Script Host Object Model" '
  ReferenceFromFile "C:\WINDOWS\System32\wshom.ocx"
  End Sub

  Function ReferenceFromFile(strFileName As String) As Boolean
  Dim ref As Reference

         On Error GoTo Error_ReferenceFromFile
         References.AddFromFile (strFileName)
         ReferenceFromFile = True

  Exit_ReferenceFromFile:
         Exit Function

   Error_ReferenceFromFile:
         ReferenceFromFile = False
         Resume Exit_ReferenceFromFile
   End Function 

删除参考

  Sub DeleteRef(RefName)
  Dim ref As Reference

      'You need a reference to remove '
      Set ref = References(RefName)
      References.Remove ref

  End Sub 


You can use the references collection to find if a reference exists.

存在引用

  Function RefExists(RefName)
  Dim ref As Object

     RefExists = False

     For Each ref In References
         If ref.Name = RefName Then
             RefExists = True
         End If
     Next

  End Function

来自: http://wiki.lessthandot.com/index.php/添加，删除，_检查参考

您可能还希望阅读 http://www .mvps.org/access/modules/mdl0022.htm

这篇关于如何以编程方式添加/删除引用?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！