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")

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

    '3)SELECT文の作成
    Dim strSelect As String
    strSelect = "SELECT EMPNO, ENAME, JOB 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)データテーブルを作成する
    Dim dt As DataTable = dtSet.Tables("EMP_TBL")

    '8)主キーの設定
    '削除するデータを検索するためのキーをセット
    Dim pk() As DataColumn = {dt.Columns("EMPNO")}
    dt.PrimaryKey = pk

    '9)データの削除
    'Findメソッドで主キー値に指定した行を取得します
    Dim delRow As DataRow
    delRow = dt.Rows.Find("888")
    delRow.Delete()

    '10)コマンドを自動作成(DELETE文)
    Dim OCB As New OracleCommandBuilder(OraDA)

    '11)データベースの更新
    OraDA.Update(dtSet, "EMP_TBL")

End Sub