データベースを更新する

　今まではデータベースからデータの抽出を行ってきましたが、次にデータベースを更新する方法を見てみましょう。

　その方法として、SQLステートメントを生成して、Commandオブジェクトを通して実行することにより、更新・削除・追加を行うことができます。その他、DataSetの内容をデータベースに反映させるという方法もあります。前者の方法は、「4.2　トランザクション」のサンプルで使用されていました。そこで今回は、後者の方法を見てみましょう。

　DataSetなので、DataAdapterオブジェクトが関係してきます。このDataAdapterオブジェクトにはデータベースに変更を反映させるメソッドが用意されています。それはUpdate()メソッドです。

　しかし、DataSetに行を追加したり、行を削除したりする場合にはコマンドを生成しなくてはなりません。そこで、変更を加えたときに自動的にコマンドを生成してくれるオブジェクトを利用してみましょう。それはSqlCommandBuilderオブジェクトです。

○　プロジェクト

　プロジェクトを作成して確認してみましょう。

プロジェクトの種類 Windows フォーム アプリケーション
プロジェクト名 CommandBuilderTest

サンプルダウンロード

○　フォームデザイン

　次の図のようにコントロールを配置してください。

コントロールの配置例
コントロールの配置例

○　プログラム

　次のように各イベントプロシージャを記述してください。

Form1.vb

  1. 'データテーブルオブジェクトを作成する
  2. Dim dt As New DataTable
  4. 'アダプタオブジェクト用の変数を用意する
  5. Dim ad As SqlClient.SqlDataAdapter
  7. 'データテーブル変更時のコマンド生成用のオブジェクトの変数を用意する
  8. Dim cmd_bld As SqlClient.SqlCommandBuilder
  10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  11. 　'接続文字列を作成する
  12. 　Dim con_string As String = _
  13. 　　"Data Source=.;AttachDbFilename=C:¥Work¥Books.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
  15. 　'コネクションオブジェクトを作成する
  16. 　Dim con As New SqlClient.SqlConnection(con_string)
  18. 　'SQL文を生成する
  19. 　Dim sql As String = "SELECt * FROM M_ユーザー"
  21. 　'アダプタオブジェクトを作成する
  22. 　ad = New SqlClient.SqlDataAdapter(sql, con)
  24. 　'コマンド自動生成オブジェクトを生成する
  25. 　cmd_bld = New SqlClient.SqlCommandBuilder(ad)
  27. 　'データテーブルとデータベースを同期させる
  28. 　ad.Fill(dt)
  30. 　'DataGridViewとDataTableを関連付ける
  31. 　Me.DataGridView1.DataSource = dt
  32. End Sub
  34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  35. 　'更新
  36. 　ad.Update(dt)
  37. End Sub

○　実行結果

実行結果
実行結果

　DataGirdViewのデータに変更を加えて、「更新」ボタンをクリックすると、データベースにも変更が加えられます。新しいデータを追加しても、データベースに新しいレコードが追加されます。

前へ   次へ