方法 : LINQ を使用してデータベースのデータを変更する (Visual Basic)

[アーティクル]
09/30/2008

更新 : 2008 年 7 月

統合言語クエリ (LINQ: Language-Integrated Query) のクエリを使用すると、簡単にデータベースの情報にアクセスし、データベースの値を変更できます。

SQL Server データベースの情報を取得して更新する新しいアプリケーションの作成方法の例を以下に示します。

このトピックの例では、Northwind サンプルデータベースを使用します。開発用コンピュータに Northwind サンプルデータベースがインストールされていない場合は、Microsoft ダウンロードセンターの Web サイトからダウンロードできます。手順については、「サンプルデータベースのダウンロード (LINQ to SQL)」を参照してください。

データベースへの接続を作成するには

Visual Studio で、[表示] メニューの [サーバーエクスプローラ] または [データベースエクスプローラ] をクリックして、サーバーエクスプローラまたはデータベースエクスプローラを開きます。
サーバーエクスプローラまたはデータベースエクスプローラで、[データ接続] を右クリックし、[接続の追加] をクリックします。
Northwind サンプルデータベースへの有効な接続を指定します。

LINQ to SQL ファイルを含むプロジェクトを追加するには

Visual Studio で、[ファイル] メニューの [新規作成] をポイントし、[プロジェクト] をクリックします。プロジェクトの種類として、Visual Basic の [Windows フォームアプリケーション] をクリックします。
[プロジェクト] メニューの [新しい項目の追加] をクリックします。[LINQ to SQL クラス] 項目テンプレートをクリックします。
ファイルに northwind.dbml という名前を付けます。[追加] をクリックします。オブジェクトリレーショナルデザイナ (O/R デザイナ) で northwind.dbml ファイルが開かれます。

照会および変更するテーブルをデザイナに追加するには

サーバーエクスプローラまたはデータベースエクスプローラで、Northwind データベースへの接続を展開します。[Tables] フォルダを展開します。

O/R デザイナを閉じている場合は、前に追加した northwind.dbml ファイルをダブルクリックして再度開くことができます。
Customers テーブルをクリックし、デザイナの左ペインにドラッグします。

デザイナによって、プロジェクト用の新しい Customer オブジェクトが作成されます。
変更を保存し、デザイナを閉じます。
プロジェクトを保存します。

データベースを変更するコードを追加し、結果を表示するには

ツールボックスから、DataGridView コントロールを、プロジェクトの既定の Windows フォームである Form1 にドラッグします。
O/R デザイナにテーブルを追加すると、デザイナによって DataContext オブジェクトがプロジェクトに追加されます。このオブジェクトには、Customers テーブルへのアクセスに使用できるコードが含まれます。また、テーブルのローカル Customer オブジェクトと Customers コレクションを定義するコードも含まれます。プロジェクトの DataContext オブジェクトには、.dbml ファイルの名前に基づいて名前が付けられます。このプロジェクトの場合、DataContext オブジェクトの名前は northwindDataContext になります。

コード内に DataContext オブジェクトのインスタンスを作成し、O/R デザイナで指定した Customers コレクションを照会および変更できます。Customers コレクションに対する変更は、DataContext オブジェクトの SubmitChanges メソッドを呼び出して送信するまで、データベースには反映されません。

Windows フォーム Form1 をダブルクリックし、DataContext のプロパティとして公開されている Customers テーブルを照会するためのコードを、Load イベントに追加します。次のコードを追加します。
```
Private db As northwindDataContext

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) _
                       Handles MyBase.Load
  db = New northwindDataContext()

  RefreshData()
End Sub

Private Sub RefreshData()
  Dim customers = From cust In db.Customers _
                  Where cust.City(0) = "W" _
                  Select cust

  DataGridView1.DataSource = customers
End Sub
```
ツールボックスから 3 つの Button コントロールをフォームにドラッグします。最初の Button コントロールを選択します。[プロパティ] ウィンドウで、Button コントロールの Name を AddButton に設定し、Text を Add に設定します。2 番目のボタンを選択し、Name プロパティを UpdateButton に、Text プロパティを Update にそれぞれ設定します。3 番目のボタンを選択し、Name プロパティを DeleteButton に、Text プロパティを Delete にそれぞれ設定します。

[Add] ボタンをダブルクリックし、Click イベントにコードを追加します。次のコードを追加します。

Private Sub AddButton_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles AddButton.Click
  Dim cust As New Customer With { _
    .City = "Wellington", _
    .CompanyName = "Blue Yonder Airlines", _
    .ContactName = "Jill Frank", _
    .Country = "New Zealand", _
    .CustomerID = "JILLF"}

  db.Customers.InsertOnSubmit(cust)

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

[Update] ボタンをダブルクリックし、Click イベントにコードを追加します。次のコードを追加します。

Private Sub UpdateButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles UpdateButton.Click
  Dim updateCust = (From cust In db.Customers _
                    Where cust.CustomerID = "JILLF").ToList()(0)

  updateCust.ContactName = "Jill Shrader"

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

[Delete] ボタンをダブルクリックし、Click イベントにコードを追加します。次のコードを追加します。

Private Sub DeleteButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles DeleteButton.Click
  Dim deleteCust = (From cust In db.Customers _
                    Where cust.CustomerID = "JILLF").ToList()(0)

  db.Customers.DeleteOnSubmit(deleteCust)

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

F5 キーを押してプロジェクトを実行します。新しいレコードを追加するには、[Add] をクリックします。その新しいレコードを変更するには、[Update] をクリックします。その新しいレコードを削除するには、[Delete] をクリックします。

参照

履歴の変更

日付	履歴	理由
2008 年 7 月	手順 4. と 6. のコード例のエラーを修正	カスタマフィードバック

方法 : LINQ を使用してデータベースのデータを変更する (Visual Basic)

データベースへの接続を作成するには

LINQ to SQL ファイルを含むプロジェクトを追加するには

照会および変更するテーブルをデザイナに追加するには

データベースを変更するコードを追加し、結果を表示するには

参照

処理手順

概念

その他の技術情報

履歴の変更

その他のリソース