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 > コントロール > OracleDataAdapter Tips メニュー

02.Insert文を発行してデータを挿入する

UPDATE:2004/05/12 

<< 前のTips  次のTips >>

 

　 OracleDataAdapterを用いてデータを挿入するには、OracleCommandBuilderを使用します。（他の方法もありますが）
　 OracleCommandBuilderは自動でコマンドを作成してくれます。

手順
1)変数の宣言
2)接続文字列の作成
3)SELECT文の作成
4)SELECT用コマンドオブジェクトの作成
5)データアダプタの作成
6)データセットにデータを取得する
7)データテーブルを作成する
8)行の追加
9)コマンドの自動作成
10)データベースの更新

　
サンプル
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 dtRow As DataRow = dt.NewRow
    dtRow("EMPNO") = "888"
    dtRow("ENAME") = "HIRO"
    dtRow("JOB") = "CLERK"
    dt.Rows.Add(dtRow)

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

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

End Sub