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

Imports System.Data.OracleClient
:
:省略
:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    '1)変数の宣言
    Dim OraConn As OracleConnection = New OracleConnection
    Dim OraDA As OracleDataAdapter
    Dim dtSet As DataSet = New DataSet("EMP")
    Dim dtView As New DataView

    '2)接続文字列の作成
    OraConn.ConnectionString = _
        "user id=SCOTT;" & _
        "password=TIGER;" & _
        "Data Source=OracleServer"

    '3)SELECT文の作成
    Dim strSelect As String
    strSelect = "SELECT * FROM EMP"

    '4)SELECT用コマンドオブジェクトの作成
    Dim SelectCmd As New OracleCommand
    SelectCmd.Connection = OraConn
    SelectCmd.CommandText = strSelect

    '5)データアダプタの作成
    OraDA = New OracleDataAdapter
    OraDA.SelectCommand = SelectCmd

    '6)データセットにデータを取得する
    OraDA.Fill(dtSet, "EMP_TBL")

    '7)DataViewにDataSetのテーブルを連結する
    dtView.Table = dtSet.Tables(0)

    'DataGridで確認する場合下記のコメントをはずす
    'DataGrid1.DataSource = dtView

End Sub