VB调用sql server 的数据转换服务(DTS)

最新推荐文章于 2022-07-28 18:06:32 发布

原创最新推荐文章于 2022-07-28 18:06:32 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sql server #vb #string

VB资料专栏收录该内容

40 篇文章

订阅专栏

本文介绍了如何在VB中调用SQL Server的数据转换服务（DTS）来执行预先创建的DTS包。首先，在SQL Server中创建并保存DTS包为.dts文件，然后在VB工程中添加Microsoft DTSPackage引用。接着，定义一个Private Sub RunPackage函数，实例化DTS.Package2对象，并设置相关步骤和任务以运行指定的DTS包。通过调用Execute方法执行包，完成数据转换任务。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

先在sql server 的数据转换服务（DTS）中新建DTS包，保存为*.dts文件，VB中调用一下即可。
    注：工程--引用---Microsoft DTSPackage ....选中。
    --------------------------------------------------
    Private Sub RunPackage(ByVal S As String)'S is FileName
     Dim objPackage As DTS.Package2
     Dim objStep As DTS.Step
     Dim objTask As DTS.Task
     Dim objExecPkg As DTS.ExecutePackageTask

     'On Error GoTo PackageError
     Set objPackage = New DTS.Package
     Set mobjPkgEvents = objPackage
     objPackage.FailOnError = True

     'Create the step and task. Specify the package to be run, and link the step to the task.
     Set objStep = objPackage.Steps.New
     Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
     Set objExecPkg = objTask.CustomTask
     With objExecPkg
     .PackagePassword = ""
     .FileName = S
     .Name = "ExecPkgTask"
     End With
     With objStep
     .TaskName = objExecPkg.Name
     .Name = "ExecPkgStep"
     .ExecuteInMainThread = True
     End With
     objPackage.Steps.Add objStep
     objPackage.Tasks.Add objTask

     'Run the package and release references.
     objPackage.Execute

     Set objExecPkg = Nothing
     Set objTask = Nothing
     Set objStep = Nothing
     Set mobjPkgEvents = Nothing

     objPackage.UnInitialize
    End Sub