⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 my package.bas

📁 This project is developed for school management system in vb and sql server 2000. All source code in
💻 BAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
        oStep.TaskName = "Create Table [College].[dbo].[Query2] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from Query2 to [College].[dbo].[Query2] Step"
        oStep.Description = "Copy Data from Query2 to [College].[dbo].[Query2] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from Query2 to [College].[dbo].[Query2] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = True
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Create Table [College].[dbo].[Query3] Step"
        oStep.Description = "Create Table [College].[dbo].[Query3] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[Query3] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from Query3 to [College].[dbo].[Query3] Step"
        oStep.Description = "Copy Data from Query3 to [College].[dbo].[Query3] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from Query3 to [College].[dbo].[Query3] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = True
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Create Table [College].[dbo].[Query4] Step"
        oStep.Description = "Create Table [College].[dbo].[Query4] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[Query4] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from Query4 to [College].[dbo].[Query4] Step"
        oStep.Description = "Copy Data from Query4 to [College].[dbo].[Query4] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from Query4 to [College].[dbo].[Query4] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = True
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Create Table [College].[dbo].[STUD_SUBJECT Query] Step"
        oStep.Description = "Create Table [College].[dbo].[STUD_SUBJECT Query] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[STUD_SUBJECT Query] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from STUD_SUBJECT Query to [College].[dbo].[STUD_SUBJECT Query] Step"
        oStep.Description = "Copy Data from STUD_SUBJECT Query to [College].[dbo].[STUD_SUBJECT Query] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from STUD_SUBJECT Query to [College].[dbo].[STUD_SUBJECT Query] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = True
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Create Table [College].[dbo].[STUDENT Query] Step"
        oStep.Description = "Create Table [College].[dbo].[STUDENT Query] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[STUDENT Query] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from STUDENT Query to [College].[dbo].[STUDENT Query] Step"
        oStep.Description = "Copy Data from STUDENT Query to [College].[dbo].[STUDENT Query] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from STUDENT Query to [College].[dbo].[STUDENT Query] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = True
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Create Table [College].[dbo].[STUDENT Query1] Step"
        oStep.Description = "Create Table [College].[dbo].[STUDENT Query1] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[STUDENT Query1] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from STUDENT Query1 to [College].[dbo].[STUDENT Query1] Step"
        oStep.Description = "Copy Data from STUDENT Query1 to [College].[dbo].[STUDENT Query1] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from STUDENT Query1 to [College].[dbo].[STUDENT Query1] Task"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = True
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("Copy Data from COURSE to [College].[dbo].[COURSE] Step")
Set oPrecConstraint = oStep.precedenceConstraints.New("Create Table [College].[dbo].[COURSE] Step")
        oPrecConstraint.StepName = "Create Table [College].[dbo].[COURSE] Step"
        oPrecConstraint.PrecedenceBasis = 0
        oPrecConstraint.Value = 4
        
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("Copy Data from EMPLOYEE to [College].[dbo].[EMPLOYEE] Step")
Set oPrecConstraint = oStep.precedenceConstraints.New("Create Table [College].[dbo].[EMPLOYEE] Step")
        oPrecConstraint.StepName = "Create Table [College].[dbo].[EMPLOYEE] Step"
        oPrecConstraint.PrecedenceBasis = 0
        oPrecConstraint.Value = 4
        
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("Copy Data from EXAMS to [College].[dbo].[EXAMS] Step")
Set oPrecConstraint = oStep.precedenceConstraints.New("Create Table [College].[dbo].[EXAMS] Step")
        oPrecConstraint.StepName = "Create Table [College].[dbo].[EXAMS] Step"
        oPrecConstraint.PrecedenceBasis = 0
        oPrecConstraint.Value = 4
        
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("Copy Data from QUALIFICATION to [College].[dbo].[QUALIFICATION] Step")
Set oPrecConstraint = oStep.precedenceConstraints.New("Create Table [College].[dbo].[QUALIFICATION] Step")
        oPrecConstraint.StepName = "Create Table [College].[dbo].[QUALIFICATION] Step"
        oPrecConstraint.PrecedenceBasis = 0
        oPrecConstraint.Value = 4
        
oStep.precedenceConstraints.Add oPrecConstraint
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -