在VB中怎么调用DTS进行数据的导入、导出？

bluesage 2002-11-07 07:02:14

DTS可以保存为BAS，可是很多地方都限定了，怎么能更灵活的调用n???

...全文

124 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

w18ily 2002-11-12

打赏
举报

呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~

cm8983 2002-11-12

打赏
举报

哦~~~~~~~~~~~~~~~~~

bluesage 2002-11-12

打赏
举报

不胜感激！！！

bluesage 2002-11-11

打赏
举报

只能在生成的BAS基础上修改吗？

ketao_78 2002-11-11

打赏
举报

呜~~~~~~~~~~~~~~~~ 卡兰

w18ily 2002-11-11

打赏
举报

最近我在看DTS，大家一起交流！！：）

w18ily 2002-11-11

打赏
举报

先在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

当然如果你保存成*.BAS文件，那么自己直接修改调用就可以了！！

w18ily 2002-11-11