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

📄 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.FailPackageOnError = False
        
goPackage.Steps.Add oStep
Set oStep = Nothing

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

Set oStep = goPackage.Steps.New

        oStep.Name = "Copy Data from QUALIFICATION to [College].[dbo].[QUALIFICATION] Step"
        oStep.Description = "Copy Data from QUALIFICATION to [College].[dbo].[QUALIFICATION] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from QUALIFICATION to [College].[dbo].[QUALIFICATION] 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] Step"
        oStep.Description = "Create Table [College].[dbo].[STUD_SUBJECT] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[STUD_SUBJECT] 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 to [College].[dbo].[STUD_SUBJECT] Step"
        oStep.Description = "Copy Data from STUD_SUBJECT to [College].[dbo].[STUD_SUBJECT] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from STUD_SUBJECT to [College].[dbo].[STUD_SUBJECT] 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] Step"
        oStep.Description = "Create Table [College].[dbo].[STUDENT] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[STUDENT] 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 to [College].[dbo].[STUDENT] Step"
        oStep.Description = "Copy Data from STUDENT to [College].[dbo].[STUDENT] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from STUDENT to [College].[dbo].[STUDENT] 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].[SUB_COURSE] Step"
        oStep.Description = "Create Table [College].[dbo].[SUB_COURSE] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[SUB_COURSE] 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 SUB_COURSE to [College].[dbo].[SUB_COURSE] Step"
        oStep.Description = "Copy Data from SUB_COURSE to [College].[dbo].[SUB_COURSE] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from SUB_COURSE to [College].[dbo].[SUB_COURSE] 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].[SUBJECTS] Step"
        oStep.Description = "Create Table [College].[dbo].[SUBJECTS] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[SUBJECTS] 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 SUBJECTS to [College].[dbo].[SUBJECTS] Step"
        oStep.Description = "Copy Data from SUBJECTS to [College].[dbo].[SUBJECTS] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from SUBJECTS to [College].[dbo].[SUBJECTS] 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].[VISITORS] Step"
        oStep.Description = "Create Table [College].[dbo].[VISITORS] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[VISITORS] 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 VISITORS to [College].[dbo].[VISITORS] Step"
        oStep.Description = "Copy Data from VISITORS to [College].[dbo].[VISITORS] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from VISITORS to [College].[dbo].[VISITORS] 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].[Query1] Step"
        oStep.Description = "Create Table [College].[dbo].[Query1] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Create Table [College].[dbo].[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 Query1 to [College].[dbo].[Query1] Step"
        oStep.Description = "Copy Data from Query1 to [College].[dbo].[Query1] Step"
        oStep.ExecutionStatus = 1
        oStep.TaskName = "Copy Data from Query1 to [College].[dbo].[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 new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "Create Table [College].[dbo].[Query2] Step"
        oStep.Description = "Create Table [College].[dbo].[Query2] Step"
        oStep.ExecutionStatus = 1
12345

⌨️ 快捷键说明

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