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 New OracleConnection
    Dim strSQL As String = "SELECT * FROM EMP"

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

    '3)OracleCommandを作成
    'SQL文を指定して作成する
    Dim OraCmd As New OracleCommand(strSQL, OraConn)

    '4)接続する(Openメソッド)
    OraConn.Open()

    '5)OracleDataReaderを作成
    Dim OraReader As OracleDataReader
    OraReader = OraCmd.ExecuteReader()

    '6)データを取得する
    Dim strData As String
    While OraReader.Read()
        strData &= " EMPNO:" & OraReader.GetInt32(0) & ControlChars.NewLine
        strData &= " ENAME:" & OraReader.GetString(1) & ControlChars.NewLine
        strData &= " JOB:" & OraReader.GetString(2) & ControlChars.NewLine
        strData &= "HIREDATE:" & OraReader.GetDateTime(4) & ControlChars.NewLine
    End While

    '7)OracleDataReaderを閉じる
    OraReader.Close()

    '8)切断する
    OraConn.Close()

End Sub