SSIS script task中用代码的方式查询数据库样例

            Dim sqlconstr As String = "Data Source=" + Dts.Variables("SQL01").Value.ToString() + ";Initial Catalog=EDW_PreSource;Integrated Security=True"
            Dim conn As SqlConnection = New SqlConnection(sqlconstr)
            Try
                conn.Open()
                Dim sSql As String = "select top 1 substring(dw_file_name,1,len(dw_file_name)-4) + '_' +  replace(replace(replace(CONVERT(varchar, dw_insert_date, 120 ),'-',''),' ',''),':','') + '.txt' as DW_FILE_NAME2" + _
                                    " FROM [EDW_PreSource].[dbo].[WELLCARE_SERVICEFUND] order by DW_INSERT_DATE desc"
                Dim cmd As SqlCommand = New SqlCommand(sSql, conn)
                Dts.Variables("FileShortName_ServiceFund").Value = Convert.ToString(cmd.ExecuteScalar())
                Dts.TaskResult = Convert.ToInt32(ScriptResults.Success)
            Catch
                Dts.TaskResult = Convert.ToInt32(ScriptResults.Failure)
            Finally
                conn.Close()
            End Try 



   Enum ScriptResults
        Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success
        Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure
    End Enum