VB调用sql server 的数据转换服务（DTS）
编号：QA004608
建立日期: 2002年4月2日 最后修改日期：2002年4月21日
所属类别：
坚坚:
操作系统：windows2000 ，ms sql server7.0
编程工具：visual basic 6.0
问题：使用vb调用sql server 的数据转换服务（DTS）,把sql server中的数据库或表转换成其他数据库格式（包括文本格式、excel、access等），请写出具体的调用方法。
水平: 中级
回答:
先在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
Wang Mike的意见：
我知道MSSQL Server 2000的，MSSql server 7.0好久不用了。sql server 2000在DTS向导的最后一步，有一个保存VB脚本的选项，选中即可！
此问题由曹敏回答。
| |
|
|
| |
|
|
