0

VB.NET で SQL クエリを実行するのに役立ちます。これは、テーブル データを csv に変換するためのクエリです。

USE newdb 
 GO
 -- Check Table Column
 SELECT *
 FROM accountexample 
 GO
 -- Get CSV values
 SELECT SUBSTRING(
 (SELECT ' ' + s.BPl + ',' + s.Lo  + ',' + s.Ltion + ',' + s.Ite + ',' + s.HNO + ',' + s.QNo + ',' + s.Country + ',' + s.STATE + ',' + s.Rem + CHAR(10)
  FROM   accountexample s
 ORDER BY s.BPl
 FOR XML PATH('')),2,200000) AS CSV
 GO
4

1 に答える 1

0

最初に必要なレコードをデータセットに選択します

次に、次の関数を使用してデータセットを CSV ファイルに変換します。

データセットをCSVに変換する機能

Sub SetDataTable_To_CSV(ByVal dtable As DataTable, ByVal path_filename As String, ByVal sep_char As String)

    Dim writer As System.IO.StreamWriter

    Try

        writer = New System.IO.StreamWriter(path_filename)



        Dim _sep As String = ""

        Dim builder As New System.Text.StringBuilder

        For Each col As DataColumn In dtable.Columns

            builder.Append(_sep).Append(col.ColumnName)

            _sep = sep_char

        Next

        writer.WriteLine(builder.ToString())



        For Each row As DataRow In dtable.Rows

            _sep = ""

            builder = New System.Text.StringBuilder



            For Each col As DataColumn In dtable.Columns

                builder.Append(_sep).Append(row(col.ColumnName))

                _sep = sep_char

            Next

            writer.WriteLine(builder.ToString())

        Next

    Catch ex As Exception



    Finally

        If Not writer Is Nothing Then writer.Close()

    End Try

End Sub

以下のリンクから取得

http://redsouljaz.com/2010/06/03/vb-net-set-data-table-to-csv-file/

VB.netを介して私のSQL側でやりたい場合。

次に、ストアドプロシージャを作成できます

CREATE PROC ConvertCSV
AS
BEGIN
   SELECT SUBSTRING(
 (SELECT ' ' + s.BPl + ',' + s.Lo  + ',' + s.Ltion + ',' + s.Ite + ',' + s.HNO + ',' + s.QNo + ',' + s.Country + ',' + s.STATE + ',' + s.Rem + CHAR(10)
  FROM   accountexample s
 ORDER BY s.BPl
 FOR XML PATH('')),2,200000) AS CSV
END

そして、vb.netからこの手順を呼び出します

Dim con As New SqlConnection("Data Source=<datasource>;Initial Catalog=<databasename>;User ID=<username>;Password=<password>")
con.Open()

Dim cmd As New SqlCommand("ConvertCSV", con)

Try
    cmd.CommandType = CommandType.StoredProcedure
    cmd.ExecuteNonQuery()

Finally
    If cmd IsNot Nothing Then cmd.Dispose()
    If cn IsNot Nothing AndAlso cn.State <> ConnectionState.Closed Then cn.Close()
End Try

お役に立てれば

于 2012-12-06T06:58:04.163 に答える