HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS

VB.NET 2003の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2003 Tips > コントロール > DataSet Tips メニュー

05.フィールド名を取得する

UPDATE:2004/05/08 

<< 前のTips  次のTips >>

 

　DataSet内のテーブルのフィールド名を取得するにはTablesプロパティをDataTableオブジェクトに格納します。次に取得した DataTableオブジェクトのColumnsプロパティをDataColumnオブジェクトに格納し、フィールド名を取得します。

手順
1)変数の宣言
2)接続文字列の作成
3)データを取得するためのSQL文の作成
4)データセットにデータを取得する
5)データセットからテーブルを取得する
6)Columnsプロパティでフィールドを取得
7)フィールド名を取得する

　
サンプル1
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    '1)変数の宣言
    Dim OleConn As OleDb.OleDbConnection = New OleDb.OleDbConnection
    Dim OleDA As OleDb.OleDbDataAdapter
    Dim dtSet As DataSet = New DataSet("アドレステーブル")
    Dim dtTable As DataTable
    Dim dtCol As DataColumn

    '2)接続文字列の作成
    OleConn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Work\Test.mdb;" & _
        "Persist Security Info=False"

    '3)データを取得するためのSQL文を作成する
    OleDA = New OleDb.OleDbDataAdapter("SELECT * FROM ADDRESS_TBL", OleConn)

    '4)データセットにデータを取得する
    OleDA.Fill(dtSet, "アドレステーブル")

    '5)データセットからテーブルを取得する（名前を指定）
    dtTable = dtSet.Tables("アドレステーブル")

    '6)Columnsプロパティでフィールドを取得
    'Columns(0)とすることで１番目のフィールドを取得します
    dtCol = dtTable.Columns(0)

    '7)フィールド名を取得する
    MessageBox.Show("フィールド名:" & dtCol.ColumnName) 

End Sub


　
サンプル2
'6)すべてのフィールド名を取得する
Dim strAllColName As String
For I As Integer = 0 To dtTable.Columns.Count - 1
    strAllColName &= I.ToString & ": " & dtTable.Columns(I).ColumnName & ControlChars.NewLine
Next

'7)取得したフィールド名を表示する
MessageBox.Show(strAllColName)