尝试在VB .NET中执行DTS包时“无效的类字符串”

时间:2010-03-10 18:48:52

标签: .net sql-server dts

我有一个在我们的MS SQL Server 2000数据库服务器上运行的DTS包,并且需要一种方法让用户从他们自己的机器上执行它。 (该包创建文件,然后由我的应用程序传输到客户端计算机。)我已在应用程序中包含“Microsoft DTSPackage对象库”COM引用,但在第一步时仍然出现“无效类字符串”错误包执行。我还尝试注册SQL Server 2000光盘的redist.txt文件中指定的所有DLL。任何想法或建议将不胜感激。 DTS包非常简单。它只是将SQL数据库中的数据复制到Visual FoxPro表中。我执行包的代码如下(大部分来自Microsoft的知识库文章:http://support.microsoft.com/kb/321525)。

        Dim pkg As DTS.Package
        pkg = New DTS.Package
        Dim cpContainer As System.Runtime.InteropServices.ComTypes.IConnectionPointContainer
        cpContainer = CType(pkg, System.Runtime.InteropServices.ComTypes.IConnectionPointContainer)
        Dim cpPoint As System.Runtime.InteropServices.ComTypes.IConnectionPoint
        Dim PES As PackageEventsSink = New PackageEventsSink

        Dim guid As Guid = New Guid("10020605-EB1C-11CF-AE6E-00AA004A34D5")

        cpPoint = Nothing
        cpContainer.FindConnectionPoint(guid, cpPoint)

        Dim intCookie As Integer
        cpPoint.Advise(PES, intCookie)

        pkg.LoadFromSQLServer(DTS_SERVER_NAME, , , DTSSQLServerStorageFlags.DTSSQLStgFlag_UseTrustedConnection, dtsPassword, , , dtsName, Nothing)
        If pkg Is Nothing Then Throw New ApplicationException("The DTS Package could not be loaded from the SQL Server.")

        Dim pkgStep As DTS.Step
        For Each pkgStep In pkg.Steps
            pkgStep.Execute()
        Next

        pkg.UnInitialize()
        pkg = Nothing

        cpPoint.Unadvise(intCookie)
        cpPoint = Nothing
        cpContainer = Nothing
        PES = Nothing

2 个答案:

答案 0 :(得分:1)

如果您在用户PC上安装完整的SQL Enterprise Manager客户端工具,作为测试,他们可以成功运行吗?也许你错过了一些要求。请记住,DTS包本身将在用户的PC上本地执行,而不是在服务器上执行。

答案 1 :(得分:0)

尝试使用REGASM / CODEBASE注册您的DLL