.NET嵌入式资源上的读取权限问题-访问DB文件和SSIS

Question

我当前正在创建动态SSIS程序包，该程序可以在SQL Server和几个Access DB文件之间导入/导出和访问数据。 （如果需要技术，请使用Jet文件。）

无论如何，只要我的SSIS程序包具有到Access文件的硬编码连接字符串，测试期间一切都将成功。 这很棒，效果很好。 我对此感到高兴。

现在，当我将VB.NET应用程序更改为对Access DB文件（将放置数据的目标文件）使用动态连接字符串时，问题就开始了。 我将Access DB文件作为“嵌入式资源”存储在应用程序中。

这是我用来创建Access目标文件的代码：

    Public Sub CreateDestinationFile(ByVal path As String)

    'Create destination file from embedded project resources 
    Dim asm = System.Reflection.Assembly.GetExecutingAssembly()
    Dim objStream As System.IO.Stream = asm.GetManifestResourceStream("XXX.XXX_Export.mdb")
    Dim abytResource(objStream.Length) As [Byte]
    Dim intLength As Integer = objStream.Read(abytResource, 0, objStream.Length)
    Dim objFileStream = New FileStream(path + "XXX_Export.mdb", FileMode.Create, FileAccess.ReadWrite, FileShare.ReadWrite)

    Try

        While intLength > 0
            'write filestream to create Access DB file
            objFileStream.Write(abytResource, 0, Convert.ToInt32(objStream.Length))
            intLength = objStream.Read(abytResource, 0, objStream.Length)
        End While

        'close the file stream
        objFileStream.Close()

    Catch ex As Exception
        'write error log here - ** omitted
    Finally
        asm = Nothing
        objStream = Nothing
        objFileStream = Nothing
    End Try

End Sub

无论我提供的路径如何，它都可以正常工作，并且确实可以产生正确的结果，一个Access DB文件。 当我的SSIS程序包具有硬编码的连接字符串时，此方法效果很好。

一旦将连接字符串更改为动态，然后重新运行相同的确切测试，就会收到以下错误消息：

“无法读取记录；对“ MSysAccessObjects”没有读取权限”

我的SSIS包中的连接字符串正则表达式如下所示：

--SQL connection string
"Data Source=" + @[User::sourceDatabaseLocation] + ";User ID=" + @[User::sourceDBUserID] + ";Password=" + @[User::sourceDBPassword] + ";Initial Catalog=" + @[User::sourceDBName] + ";Provider=SQLOLEDB.1;Persist Security Info=True;Auto Translate=False;"

--Access connection string
"Data Source=" + @[User::destinationDatabasePath] + ";Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=;"

当我导航到本地硬盘驱动器上的此文件并尝试将其打开时，它提示我它处于不可恢复的状态并进行修复，但从未成功过。

1. 我是否忽略了有关文件创建的某些内容？ （IO？）
2. 我是否在忽略有关嵌入式资源的内容？ （对我来说，它们看起来很简单，但是也许我忽略了一些明显的东西？）
3. 我的文件状态是否损坏？ 我可以使用VS Access在VS.NET IDE和本地打开它。
4. 重新创建此Access文件是否值得？ 我已经读过您可以将架构复制到新文件中以避免维修？ 听起来太冒险了！！

最初，我认为这是一个权限错误，与Access DB文件的用户角色和试图使用该文件的SSIS有关。 但我认为不是那样。 用户设置为Admin，并且（理论上）应该可以工作。

我认为要破解/修复此问题，我目前将尝试不使用嵌入式资源。 我将使用FileIO调用将文件显式移动到所需的文件夹并从那里填充它。 有谁知道为什么嵌入式资源db文件不起作用，但如果不是从嵌入式资源生成的，则同一个文件可以工作？ 从资源创建文件时，是否有未完成的事情？

任何反馈或建议，我们将不胜感激。 任何问题也欢迎。 谢谢。

**** 2009年7月18日更新：**

我修改了[CreateDestinationFile]例程，以执行直接文件/ IO复制，而不使用嵌入式资源。

这是该代码：

        Dim sPath As String = My.Application.Info.DirectoryPath + "\databasenamehere.mdb"

        FileIO.FileSystem.CopyFile(sPath, path + "databasenamehere.mdb", True)

该文件已从项目中正确复制，但是我现在收到此错误：

“发生了OLE DB错误。错误代码：0x80040E09。OLE DB记录可用。源：” Microsoft JET数据库引擎“结果：0x80040E09说明：”记录无法读取； 对“ TABLE_XXXXX”没有读取权限。”

这使我相信SSIS没有将我的本地MS Access DB用作目标文件的适当权限。

这对我来说很奇怪，因为如果我将连接字符串硬编码到SSIS包中，则同一个文件可以工作。 这里发生了什么？

正如您在连接字符串表达式中看到的那样，我以[Admin]作为用户。 所以这应该起作用，对吗？ 另外，此问题的另一个可能原因是，这是在Access 2003中创建的旧版MS Access DB，并且我在盒子上使用Access 2007。 救命？

Answer 1

这不会是一个非常有用的答案，我不在您正在使用的环境中工作，所以永远不必这样做，但是我想到了一些事情。

您正在使用admin作为用户和空白密码，这是默认的Jet登录，但可能是使用了错误的工作组文件。 我记得其他的StackOverflow发布者在通过某些在其连接字符串中没有工作组文件参数的方法连接到Jet文件时遇到问题。 您是否尝试过创建ODBC DSN，然后尝试连接到该DSN？ DSN允许您指定工作组文件，从而可以缓解该问题。 然后，您可以尝试将生成的连接字符串转换为无DSN的连接字符串，然后将其用作参数化连接字符串的模型。

Answer 2

为了解决此问题，我最终使用了在初始项目收集期间提供给我的模板文件。

我正在使用的.mdb文件已针对众多应用程序和测试项目进行了开发和测试。 从第一天开始，该文件就出现了问题。

文件的第一个问题是文件大小为80 mb。 这对我来说很奇怪，因为其中几乎没有数据。 一旦意识到需要“压缩和修复”，它将大小减小到不到200 kb。 这让我感到困惑。 但是我继续使用该文件进行进一步的开发，现在我意识到这是一个很大的禁忌。

我最终决定从我的电子邮件中挖掘出我继承此项目时提供的原始.mdb文件。 原始的.mdb仍然不是理想的，因为它在我要导出到的表中包含数据。 我不得不手动从中删除数千条记录。 一旦这样做，我的SSIS包就可以神奇地工作了。 现在，我可以动态地将数据从SQL导出到Access。

这是我的SSIS包的VB.NET执行，它使用[app.config]配置文件提供的动态连接字符串：

Public Function ExecuteSSISExportPackage(ByVal parameterValue1 As String, ByVal destinationDatabasePath As String) As Integer

    Dim pkg As New Package
    Dim app As New Microsoft.SqlServer.Dts.Runtime.Application
    Dim pkgResults As DTSExecResult
    Dim result As Integer = 1 'defaults to failure
    Dim eventListener As New EventListener()

    'create SSIS variables for dynamic parameters, retrieved from the appSettings in the [app.config] file
    Dim SSISPackagePassword As String = ConfigurationManager.AppSettings.Item("SSISPackagePassword")
    Dim SSISExportPackagePath As String = ConfigurationManager.AppSettings.Item("SSISExportPackagePath")
    Dim SSISExportPackageServerName As String = ConfigurationManager.AppSettings.Item("SSISExportPackageServerName")
    Dim SSISExportPackageServerUserName As String = ConfigurationManager.AppSettings.Item("SSISExportPackageServerUserName")
    Dim SSISExportPackageServerPassword As String = ConfigurationManager.AppSettings.Item("SSISExportPackageServerPassword")
    Dim SSISExportPackageDestinationDBName As String = ConfigurationManager.AppSettings.Item("SSISExportPackageDestinationDBName")

    Try
        'set package password
        app.PackagePassword = SSISPackagePassword
        pkg.PackagePassword = SSISPackagePassword

        'load package from SQL server
        pkg = app.LoadFromSqlServer(SSISExportPackagePath, SSISExportPackageServerName, SSISExportPackageServerUserName, SSISExportPackageServerPassword, eventListener)

        'set package-level variables, to supply to the stored procedure parameters/sql calls in the SSIS Export package
        pkg.Variables("xxxx").Value = parameterValue1

        'set the package-level variable to supply the Access DB's (SSIS destination) file path
        Dim databaseName As String = ConfigurationManager.AppSettings.Item("XXXClientDatabaseName")
        pkg.Variables("destinationDatabasePath").Value = "C:\" + databaseName 

        'Dynamic SQL source connection string values
        pkg.Variables("sourceDatabaseLocation").Value = SSISExportPackageServerName
        pkg.Variables("sourceDBUserID").Value = SSISExportPackageServerUserName
        pkg.Variables("sourceDBName").Value = SSISExportPackageDestinationDBName
        pkg.Variables("sourceDBPassword").Value = SSISExportPackageServerPassword

        'Execute the Import SSIS package, add an eventListener object for SSIS reflection
        pkgResults = pkg.Execute(Nothing, Nothing, eventListener, Nothing, Nothing)

        'Package execution results
        Select Case pkgResults

            Case DTSExecResult.Success
                result = 0

            Case DTSExecResult.Failure
                result = 1

        End Select

    Catch ex As Exception

        'Log the exception error here - omitted

    Finally
        app = Nothing
        pkg = Nothing
    End Try

    Return result

End Function