如何在vb中調用sql的DTS包,請教各位大俠

Question

我以前也試過最後還是放棄了用的SQLInsert的,強烈關注

Answer 1

在保存DTS包的时候，选择保存为Visual Basic文件，就存成.bas文件，你就可以直接用了。

Answer 2

注：工程--引用---Microsoft DTSPackage ....选中。 
    -------------------------------------------------- 
    Private Sub RunPackage(ByVal S As String)'S is DTS FileName 
     Dim objPackage As DTS.Package2 
     Dim objStep As DTS.Step 
     Dim objTask As DTS.Task 
     Dim objExecPkg As DTS.ExecutePackageTask 
     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 
注：若DTS包用SQL语句并要传递参数，在设计DTS时要声明、定义.