Ես փորձում եմ օգտագործել մեկ .dtsx ֆայլ՝ դինամիկ կատարման ֆայլի անունով MS Access VBA-ի միջոցով: Ես փորձում եմ դա անել որպես աշխատավայրում արդեն ստեղծված Access գործիքի մաս: Մինչ ես
Ես կարողացա շրջանցել .dtsx-ը նույն թղթապանակում մի քանի ֆայլերի հետ կապելու խնդիրը՝ յուրաքանչյուր ֆայլ վերանվանելով եզակի, եզակի անունի, գործարկելով .dtsx-ը և այնուհետև փոխելով անունը: Այնուամենայնիվ, թղթապանակի գրացուցակը պարտադիր չէ երաշխավորված, քանի որ շատ այլ օգտվողներ կարող են օգտագործել գործիքը:
Imports Microsoft.SqlServer.Dts.Runtime
Module ApplicationTests
Sub Main()
' The variable pkg points to the location of the
' ExecuteProcess package sample that was installed with
' the SSIS samples.
Dim pkg As String = _
"C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services" & _
"\Package Samples\ExecuteProcess Sample\ExecuteProcess\UsingExecuteProcess.dtsx"
Dim app As Application = New Application()
Dim p As Package = app.LoadPackage(pkg, Nothing)
' Now that the package is loaded, we can query on
' its properties.
Dim n As Integer = p.Configurations.Count
Dim p2 As DtsProperty = p.Properties("VersionGUID")
Dim pl As DTSProtectionLevel = p.ProtectionLevel
Console.WriteLine("Number of configurations = " & n.ToString())
Console.WriteLine("VersionGUID = " & CType(p2.GetValue(p), String))
Console.WriteLine("ProtectionLevel = " & pl.ToString())
Console.Read()
End Sub
End Module
Սա այն կոդը է, որը ես գտա https://docs.microsoft.com/en-us/sql/integration-services/building-packages-programmatically/creating-a-package-programmatically?view=sql-server-ver15, բայց այն աշխատում է միայն VB.Net-ի համար, որը ես մուտք չունեմ: Ես հուսով եմ ընդօրինակել այս գաղափարը, բայց Access VBA-ում ստեղծել/փոփոխել SSIS փաթեթ:
