Vb.net 为了让人们进一步了解我的要求,nut看起来我不够清楚。但是感谢againGreat,是的,很好用,代码就是我想要的,非常感谢…上帝保佑分享知识谢谢siva,顺便说一句,我之前玩的是DataReader,但不能做相反的部分,还有我希望得到列名的网格,这就是我
Vb.net 为了让人们进一步了解我的要求,nut看起来我不够清楚。但是感谢againGreat,是的,很好用,代码就是我想要的,非常感谢…上帝保佑分享知识谢谢siva,顺便说一句,我之前玩的是DataReader,但不能做相反的部分,还有我希望得到列名的网格,这就是我,vb.net,datagrid,datagridview,ssis,Vb.net,Datagrid,Datagridview,Ssis,为了让人们进一步了解我的要求,nut看起来我不够清楚。但是感谢againGreat,是的,很好用,代码就是我想要的,非常感谢…上帝保佑分享知识谢谢siva,顺便说一句,我之前玩的是DataReader,但不能做相反的部分,还有我希望得到列名的网格,这就是我为什么要尝试的原因。@Siva:我在你的答案中找不到截图。请尽快提供相同的内容。@Siva:尽管我尝试了IE 9.0、Firefox 11.0和Google Chrome浏览器,但还是看不到任何屏幕截图。 Public Sub Main()
为了让人们进一步了解我的要求,nut看起来我不够清楚。但是感谢againGreat,是的,很好用,代码就是我想要的,非常感谢…上帝保佑分享知识谢谢siva,顺便说一句,我之前玩的是DataReader,但不能做相反的部分,还有我希望得到列名的网格,这就是我为什么要尝试的原因。@Siva:我在你的答案中找不到截图。请尽快提供相同的内容。@Siva:尽管我尝试了IE 9.0、Firefox 11.0和Google Chrome浏览器,但还是看不到任何屏幕截图。
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
CREATE TABLE [dbo].[Source1](
[Id] [int] IDENTITY(1,1) NOT NULL,
[ItemNumber] [varchar](20) NOT NULL,
[ItemName] [varchar](50) NOT NULL,
CONSTRAINT [PK_Source1] PRIMARY KEY CLUSTERED ([Id] ASC)) ON [PRIMARY]
GO
CREATE TABLE [dbo].[Source2](
[Id] [int] IDENTITY(1,1) NOT NULL,
[Country] [varchar](20) NOT NULL,
[StateProvince] [varchar](50) NOT NULL,
CONSTRAINT [PK_Source2] PRIMARY KEY CLUSTERED ([Id] ASC)) ON [PRIMARY]
GO
CREATE TABLE [dbo].[TablesList](
[Id] [int] IDENTITY(1,1) NOT NULL,
[TableName] [varchar](50) NOT NULL,
[FilePath] [varchar](255) NOT NULL,
CONSTRAINT [PK_Tables] PRIMARY KEY CLUSTERED ([Id] ASC)) ON [PRIMARY]
GO
Public Sub Main()
Dim varCollection As Variables = Nothing
Dts.VariableDispenser.LockForRead("User::TableName")
Dts.VariableDispenser.LockForRead("User::FileName")
Dts.VariableDispenser.LockForRead("User::Delimiter")
Dts.VariableDispenser.GetVariables(varCollection)
Dim fileName As String = varCollection("User::FileName").Value.ToString()
Dim query As String = "SELECT * FROM " & varCollection("User::TableName").Value.ToString()
Dim delimiter As String = varCollection("User::Delimiter").Value.ToString()
Dim writer As StreamWriter = Nothing
Dim connection As OleDbConnection = New OleDbConnection(Dts.Connections("SQLServer").ConnectionString)
Dim command As OleDbCommand = Nothing
Dim reader As OleDbDataReader = Nothing
Try
If File.Exists(fileName) Then
File.Delete(fileName)
End If
connection.Open()
command = New OleDbCommand(query, connection)
reader = command.ExecuteReader()
If reader.HasRows Then
writer = New System.IO.StreamWriter(fileName)
Dim row As Integer = 0
While reader.Read()
Dim header As Integer = 0
Dim counter As Integer = 0
Dim fieldCount As Integer = reader.FieldCount - 1
If row = 0 Then
While header <= fieldCount
If header <> fieldCount Then
writer.Write(reader.GetName(header).ToString() & delimiter)
Else
writer.WriteLine(reader.GetName(header).ToString())
End If
header += 1
End While
End If
While counter <= fieldCount
If counter <> fieldCount Then
writer.Write(reader(counter).ToString() & delimiter)
Else
writer.WriteLine(reader(counter).ToString())
End If
counter += 1
End While
row += 1
End While
End If
Catch ex As Exception
Throw ex
Finally
connection.Close()
writer.Close()
End Try
Dts.TaskResult = ScriptResults.Success
End Sub