📄 modapi32.bas
字号:
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("UPDATE_FLAG", 3)
oColumn.Name = "UPDATE_FLAG"
oColumn.Ordinal = 3
oColumn.Flags = 16
oColumn.Size = 0
oColumn.DataType = 3
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("TRANFFICSUM", 4)
oColumn.Name = "TRANFFICSUM"
oColumn.Ordinal = 4
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("INPUT_DATE", 5)
oColumn.Name = "INPUT_DATE"
oColumn.Ordinal = 5
oColumn.Flags = 32776
oColumn.Size = 8
oColumn.DataType = 129
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("TOTAL_MONEY", 6)
oColumn.Name = "TOTAL_MONEY"
oColumn.Ordinal = 6
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 6
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("DEPT_NO", 7)
oColumn.Name = "DEPT_NO"
oColumn.Ordinal = 7
oColumn.Flags = 32792
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 4
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("LINE_NO", 8)
oColumn.Name = "LINE_NO"
oColumn.Ordinal = 8
oColumn.Flags = 32792
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("BUS_NO", 9)
oColumn.Name = "BUS_NO"
oColumn.Ordinal = 9
oColumn.Flags = 32792
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("OP_NO", 10)
oColumn.Name = "OP_NO"
oColumn.Ordinal = 10
oColumn.Flags = 32792
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("GROUP_NO", 1)
oColumn.Name = "GROUP_NO"
oColumn.Ordinal = 1
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("IS_SEND", 2)
oColumn.Name = "IS_SEND"
oColumn.Ordinal = 2
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 17
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("UPDATE_FLAG", 3)
oColumn.Name = "UPDATE_FLAG"
oColumn.Ordinal = 3
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 17
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("TRANFFICSUM", 4)
oColumn.Name = "TRANFFICSUM"
oColumn.Ordinal = 4
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("INPUT_DATE", 5)
oColumn.Name = "INPUT_DATE"
oColumn.Ordinal = 5
oColumn.Flags = 8
oColumn.Size = 8
oColumn.DataType = 129
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("TOTAL_MONEY", 6)
oColumn.Name = "TOTAL_MONEY"
oColumn.Ordinal = 6
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 6
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("DEPT_NO", 7)
oColumn.Name = "DEPT_NO"
oColumn.Ordinal = 7
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 4
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("LINE_NO", 8)
oColumn.Name = "LINE_NO"
oColumn.Ordinal = 8
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("BUS_NO", 9)
oColumn.Name = "BUS_NO"
oColumn.Ordinal = 9
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("OP_NO", 10)
oColumn.Name = "OP_NO"
oColumn.Ordinal = 10
oColumn.Flags = 24
oColumn.Size = 0
oColumn.DataType = 131
oColumn.Precision = 8
oColumn.NumericScale = 0
oColumn.Nullable = False
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oTransProps = oTransformation.TransformServerProperties
Set oTransProps = Nothing
oCustomTask1.Transformations.Add oTransformation
Set oTransformation = Nothing
End Sub
'------------- define Task_Sub2 for task DTSTask_DTSExecuteSQLTask_1 (START)
Public Sub Task_Sub2(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask2 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask2 = oTask.CustomTask
oCustomTask2.Name = "DTSTask_DTSExecuteSQLTask_1"
oCustomTask2.Description = "START"
oCustomTask2.SQLStatement = "UPDATE [ZZ_AMC].[DBO].[ZY_COUNTBILL_LOG]" & vbCrLf
oCustomTask2.SQLStatement = oCustomTask2.SQLStatement & "SET IS_SEND=1" & vbCrLf
oCustomTask2.SQLStatement = oCustomTask2.SQLStatement & "WHERE IS_SEND=0"
oCustomTask2.ConnectionID = 1
oCustomTask2.CommandTimeout = 0
oCustomTask2.OutputAsRecordset = False
goPackage.Tasks.Add oTask
Set oCustomTask2 = Nothing
Set oTask = Nothing
End Sub
'------------- define Task_Sub3 for task DTSTask_DTSExecuteSQLTask_2 (END)
Public Sub Task_Sub3(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask3 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask3 = oTask.CustomTask
oCustomTask3.Name = "DTSTask_DTSExecuteSQLTask_2"
oCustomTask3.Description = "END"
oCustomTask3.SQLStatement = "UPDATE [ZZ_AMC].[DBO].[ZY_COUNTBILL_LOG]" & vbCrLf
oCustomTask3.SQLStatement = oCustomTask3.SQLStatement & "SET IS_SEND=2" & vbCrLf
oCustomTask3.SQLStatement = oCustomTask3.SQLStatement & "WHERE IS_SEND=1"
oCustomTask3.ConnectionID = 1
oCustomTask3.CommandTimeout = 0
oCustomTask3.OutputAsRecordset = False
goPackage.Tasks.Add oTask
Set oCustomTask3 = Nothing
Set oTask = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -