サインイン

Select the product you need help with

方法: Visual Basic を使用して Access データベースへのレコードの挿入時に、Id の値を取得します。NET

文書番号: 815629

機械翻訳版の免責を確認する

英語と日本語を並べて表示する

すべて展開する | すべて折りたたむ

概要

この資料でを取得する方法について説明します、id 列の値は、Access データベースから。

取得、Jet データベース id の値は異なる SQL Server からは、Jet データベースは複数ステートメントのバッチコマンドをサポートしていないため。Jet は、OLE DB プロバイダーサポートするバージョン 4.0、 SELECT @ @identity クエリは、自動インクリメントの値を取得することができます。上の接続を生成するフィールドです。実行するのには SELECT @ @identity クエリは、別を使用することをお勧め OleDbCommand オブジェクトです。秒を使用する方法についてを説明します OleDbCommand Id 列の値を取得します。

注: この機能は、Microsoft Jet OLEDB 4.0 データベースでのみ動作します。以前のバージョンの Microsoft Jet の ole DB をサポートしていません機能です。

先頭へ戻る | フィードバック

詳細

Access データベースへの接続します。

Access データベースへの接続し、テーブルを作成するのにはId 列は、次の手順を実行します。

Microsoft Visual Studio を起動します。NET 2002。
で、 ファイル メニューのポイント新しい、し プロジェクト.
下にあります。 [プロジェクトの種類をクリックして ビジュアル基本プロジェクト.下にあります。 テンプレート セクションをクリックしてくださいコンソールアプリケーション.デフォルトで、Module1.vb のです。作成します。
プロジェクト名を入力します。 MyJetApplication し [OK].

既存のコードを次のコードに置き換えます。

Imports System
Imports System.Data
Imports System.Data.OleDb

Module Module1

   Sub Main()

      ' Open Connection 
      Dim cnJetDB As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase")
      cnJetDB.Open()

      ' If the test table does not exist, create the Table.
      Dim strSQL As String
      strSQL = "CREATE TABLE AutoIncrementTest " & _
               "(ID int identity, Description varchar(40), " & _
               "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"

      ' Command for creating Table.
      Dim cmdJetDB As New OleDbCommand(strSQL, cnJetDB)
      cmdJetDB.ExecuteNonQuery()

      ' Create a DataAdaptor With Insert Command For inserting records
      Dim oleDa As New OleDbDataAdapter("Select * from AutoIncrementTest", cnJetDB)


      ' Command to Insert Records.
      Dim cmdInsert As New OleDbCommand()
      cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES (?)"
      cmdInsert.Connection = cnJetDB
      cmdInsert.Parameters.Add(New OleDbParameter("Description", OleDbType.VarChar, 40, "Description"))
      oleDa.InsertCommand = cmdInsert

      ' Create a DataTable
      Dim dtTest As New DataTable()
      oleDa.Fill(dtTest)

      Dim drTest As DataRow

      ' Add Rows to the Table
      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 1"
      dtTest.Rows.Add(drTest)

      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 2"
      dtTest.Rows.Add(drTest)
      
   End Sub

End Module

接続文字列でデータソース名を変更します。Access データベースをポイントします。

Id 列の値をトラップします。

の手順を要約すると、 RowUpdated DataAdapter のイベントは、id 列の値をトラップできます。Access データベース内のテーブルの列が生成されます。で、 RowUpdated イベントは、実行されます、 SELECT @ @IDENTITY クエリを別の使用 コマンド オブジェクトと、返される値が割り当てられますId 列をクエリします。最後に、呼び出しが AcceptChanges メソッドは、 DataRow 列の値を使用するオブジェクト。

トラップは、id 列の値、次の手順を実行します。

前に、次のコードを追加、 メイン 2 番目を作成する方法 OleDbCommand オブジェクトは、 SELECT @ @IDENTITY クエリ:
' Create OleDbCommand for SELECT @@IDENTITY statement Private cmdGetIdentity As OleDbCommand

次のコードを追加、 メイン 新しいインスタンスを作成する方法 OleDbCommand クラス:

      ' Create another command to get IDENTITY value.
      cmdGetIdentity = New OleDbCommand()
      cmdGetIdentity.CommandText = "SELECT @@IDENTITY"
      cmdGetIdentity.Connection = cnJetDB

次のコードを追加、 メイン メソッドの処理のために RowUpdated イベント:

      ' Delegate for handling RowUpdated event.
      AddHandler oleDa.RowUpdated, AddressOf HandleRowUpdated

次のコードを追加、 メイン データを更新する方法。は、 RowUpdated イベントが呼び出すと発生、 更新プログラム メソッドです。
' Update the Data oleDa.Update(dtTest)

次のコードを追加、 メイン メソッドを削除するのには AutoIncrementTest テーブルし、リソースを解放します。

      ' Drop the table
      cmdJetDB.CommandText = "DROP TABLE AutoIncrementTest"
      cmdJetDB.ExecuteNonQuery()

      ' Release the resources.
      cmdGetIdentity.Dispose()
      cmdGetIdentity = Nothing
      cmdInsert.Dispose()
      cmdInsert = Nothing
      cmdJetDB.Dispose()
      cmdJetDB = Nothing
      cnJetDB.Close()
      cnJetDB.Dispose()
      cnJetDB = Nothing

次を追加します。 RowUpdated イベントハンドラーのコード Module1 にします。

   ' Event handler for RowUpdated event.
   Private Sub HandleRowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs)
      If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
         ' Get the Identity column value
         e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
         Debug.WriteLine(e.Row("ID"))
         e.Row.AcceptChanges()
      End If
   End Sub

で、 デバッグ メニューをクリックして開始アプリケーションを実行します。Id 列の値が[出力] ウィンドウに表示します。

完全なコードリスト

Imports System
Imports System.Data
Imports System.Data.OleDb

Module Module1

   ' Create OleDbCommand for SELECT @@IDENTITY statement
   Private cmdGetIdentity As OleDbCommand

   Sub Main()

      ' Open Connection 
      Dim cnJetDB As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase")
      cnJetDB.Open()

      ' If the test table does not exist then create the Table
      Dim strSQL As String
      strSQL = "CREATE TABLE AutoIncrementTest " & _
               "(ID int identity, Description varchar(40), " & _
               "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"

      ' Command for Creating Table
      Dim cmdJetDB As New OleDbCommand(strSQL, cnJetDB)
      cmdJetDB.ExecuteNonQuery()

      ' Create a DataAdaptor With Insert Command For inserting records
      Dim oleDa As New OleDbDataAdapter("Select * from AutoIncrementTest", cnJetDB)


      ' Command to Insert Records
      Dim cmdInsert As New OleDbCommand()
      cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES (?)"
      cmdInsert.Connection = cnJetDB
      cmdInsert.Parameters.Add(New OleDbParameter("Description", OleDbType.VarChar, 40, "Description"))
      oleDa.InsertCommand = cmdInsert

      ' Create a DataTable
      Dim dtTest As New DataTable()
      oleDa.Fill(dtTest)

      Dim drTest As DataRow

      ' Add Rows to the Table
      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 1"
      dtTest.Rows.Add(drTest)

      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 2"
      dtTest.Rows.Add(drTest)

      ' Create another Command to get IDENTITY Value
      cmdGetIdentity = New OleDbCommand()
      cmdGetIdentity.CommandText = "SELECT @@IDENTITY"
      cmdGetIdentity.Connection = cnJetDB

      ' Delegate for Handling RowUpdated event
      AddHandler oleDa.RowUpdated, AddressOf HandleRowUpdated

      ' Update the Data
      oleDa.Update(dtTest)

      ' Drop the table
      cmdJetDB.CommandText = "DROP TABLE AutoIncrementTest"
      cmdJetDB.ExecuteNonQuery()

      ' Release the Resources
      cmdGetIdentity.Dispose()
      cmdGetIdentity = Nothing
      cmdInsert.Dispose()
      cmdInsert = Nothing
      cmdJetDB.Dispose()
      cmdJetDB = Nothing
      cnJetDB.Close()
      cnJetDB.Dispose()
      cnJetDB = Nothing
   End Sub

   ' Event Handler for RowUpdated Event
   Private Sub HandleRowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs)
      If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
         ' Get the Identity column value
         e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
         Debug.WriteLine(e.Row("ID"))
         e.Row.AcceptChanges()
      End If
   End Sub
End Module

先頭へ戻る | フィードバック

プロパティ

文書番号: 815629 - 最終更新日: 2011年7月28日 - リビジョン: 5.0

kbhowtomaster kbsystemdata kbtsql kbprogramming kbjet kbmt KB815629 KbMtja

機械翻訳の免責

重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。

英語版 KB：815629

(http://support.microsoft.com/kb/815629/en-us/ )

Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

先頭へ戻る | フィードバック