#title SSIS - OLEDB 원본 [[TableOfContents]] OLEDB 원본 {{{#!geshi vbnet Imports System Imports System.Data Imports System.Math Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper Imports Microsoft.SqlServer.Dts.Runtime.Wrapper Imports System.Data.OleDb Public Class ScriptMain Inherits UserComponent Dim DBReader As OleDbDataReader Dim DBConn As OleDbConnection Dim DBCommand As OleDbCommand Public Overrides Sub AcquireConnections(ByVal Transaction As Object) Dim ConnString As String = Me.Connections.연결.ConnectionString DBConn = New OleDbConnection(ConnString) DBConn.Open() End Sub Public Overrides Sub PreExecute() DBCommand = New OleDbCommand("select * frmo TableA", DBConn) DBReader = DBCommand.ExecuteReader() End Sub Public Overrides Sub PostExecute() DBReader.Close() End Sub Public Overrides Sub CreateNewOutputRows() ' ' Add rows by calling AddRow method on member variable called "Buffer" ' E.g., MyOutputBuffer.AddRow() if your output was named "My Output" ' Dim sLog() As String Dim sItem() As String Dim sTemp As String Dim i As Integer Do While DBReader.Read With 출력0Buffer .AddRow() .AccountID = DBReader.GetString(0) .RegDT = DBReader.GetDateTime(1) .sArray = DBReader.GetString(2) End With sLog = DBReader.GetString(2).Split(CChar(",")) For i = 0 To sLog.Length - 1 sItem = sTemp.Split(CChar(".")) With 아이템Buffer .AddRow() .AccountID = DBReader.GetString(0) .Item1 = sItem(0) .Item2 = sItem(1) .Item3 = sItem(2) .Item4 = sItem(3) .ITem5 = sItem(4) End With Next Loop End Sub Public Sub New() End Sub End Class }}}