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

fox739 2004-08-30 02:22:10
请问高手,如何用vb调用并执行一个写好的包(包是以结构化存储文件.dts格式保存),谢谢!
...全文
196 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhoujie99 2005-05-06
  • 打赏
  • 举报
回复
VB调用sql server 的数据转换服务(DTS)请看

http://www.china-askpro.com/msg47/qa08.shtml
abc666 2004-09-16
  • 打赏
  • 举报
回复
The following code example shows a DTS package using an ExecutePackageTask, through the Execute and UnInitialize methods:

Private WithEvents mobjPkgEvents As DTS.Package
. . .
Private Sub RunPackage()
'Run the package stored in file C:\DTS_UE\TestPkg\VarPubsFields.dts.
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 = "user"
.FileName = "C:\DTS_UE\TestPkg\VarPubsFields.dts"
.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

nicon 2004-08-30
  • 打赏
  • 举报
回复
应该可以的吧。
fox739 2004-08-30
  • 打赏
  • 举报
回复
我试了一下,可是没有执行成功,不知你是否有调用执行的例子,如果有可以给我看一下吗?我的邮箱:hmliang739@yahoo.com.cn,多谢!
LGYAN 2004-08-30
  • 打赏
  • 举报
回复
SQL会自动生成VB的.bas文件 的呀
fox739 2004-08-30
  • 打赏
  • 举报
回复
高手,这个我知道,我是问像:objstep、execpkgstep等的含义?
titan90 2004-08-30
  • 打赏
  • 举报
回复
objstep.taskname=objexecpkg.name
objstep.name="execpkgstep"
objstep.executeinmainthread=true
fox739 2004-08-30
  • 打赏
  • 举报
回复
这个能解释一下吗?
With objStep
.TaskName = objExecPkg.Name
.Name = "ExecPkgStep"
.ExecuteInMainThread = True
End With
lihonggen0 2004-08-30
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=20536
titan90 2004-08-30
  • 打赏
  • 举报
回复
高用SQL SERVER的DTS
包是以.BAS格式保存的吧

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧