StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POExporting data from multiple SQL tables to different flat files using SSIS Script Task
text
Body
copied!<p>I am trying to create a datagrid and export the contents to a text file using VB.NET and I am doing this inside an SSIS script task in order to automate the process to export a dynamic table to text file. I don't get any error and the files are created but the files are empty. </p> <p>What am I doing wrong here in this code?</p> <pre><code>Public Sub Main() Dim FName As String = "D:\test.TXT" '''''''''''''''''''''''''''''''''''''''''' If File.Exists(FName) Then File.Delete(FName) End If '''''''''''''''''''''''''''''''''''''''''' Dim myConnection As OleDbConnection = New OleDbConnection("Data Source=localhost;Provider=SQLNCLI10;Initial Catalog=AdventureWorksDW2008R2;Integrated Security=SSPI;") Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from Table") Dim ds As DataSet = New DataSet da.Fill(ds, "Test") Dim DataGrid1 As New DataGrid DataGrid1.DataSource = ds.DefaultViewManager Dim DataGridView1 As New DataGridView DataGridView1.DataSource = ds Dim dgvc As DataGridViewCell Dim sw As New System.IO.StreamWriter(FName) For Each dgvr As DataGridViewRow In DataGridView1.Rows Dim intCellCount As Integer = dgvr.Cells.Count Dim intCounter As Integer = 1 For Each dgvc In dgvr.Cells() If intCounter <> intCellCount Then sw.Write(dgvc.Value.ToString & "|") Else sw.WriteLine(dgvc.Value.ToString) End If intCounter += 1 Next Next Dts.TaskResult = ScriptResults.Success End Sub </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload