情報: Jet OLE DB プロバイダーがサポートするバージョン 4.0 で @ @identity を選択します。

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

英語版 KB:232144
概要
バージョン 4.0 の Jet OLE DB プロバイダー接続で生成される自動インクリメント フィールドの値を取得することができます、@ 身元 SELECT クエリをサポートしています。その他のデータベースへの接続に使用される自動インクリメント値この特殊なクエリの結果には影響しません。この機能は、Jet 4.0 データベースが古い形式のファイルではなく動作します。
詳細
SELECT @ @identity を使用して、新しく挿入された自動インクリメント フィールドの値を取得するのには、次のコードを示します。コード スニペットでは、クエリ テーブルを作成するコードも含まれます。
Dim cnDatabase As ADODB.ConnectionDim rsNewAutoIncrement As ADODB.RecordsetDim strConn As StringDim strSQL As StringDim strPathToMDB As String   strPathToMDB = "C:\NewJet4.MDB"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _           "Data Source=" & strPathToMDB & ";"Set cnDatabase = New ADODB.Connection    cnDatabase.Open strConn        strSQL = "CREATE TABLE AutoIncrementTest " & _             "(ID int identity, Description varchar(40), " & _             "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords        strSQL = "INSERT INTO AutoIncrementTest " & _             "(Description) VALUES ('AutoIncrement Test')"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords        strSQL = "SELECT @@Identity"    Set rsNewAutoIncrement = New ADODB.Recordset    rsNewAutoIncrement.Open strSQL, cnDatabase, adOpenForwardOnly, _                            adLockReadOnly, adCmdText    MsgBox "New Auto-increment value is: " & rsNewAutoIncrement(0).Value    rsNewAutoIncrement.Close    Set rsNewAutoIncrement = Nothing    strSQL = "DROP TABLE AutoIncrementTest"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords    cnDatabase.CloseSet cnDatabase = Nothing				
この新しく追加された機能に感謝クライアント側 ActiveX データ オブジェクト (ADO) レコード セットで ADO 2.1 以降では、新しく追加された自動インクリメントの値を確認できます。(LockType の選択に応じて) Update または UpdateBatch を呼び出すことにより、Jet プロバイダー新しい行を送信すると、ADO カーソル エンジンは、テーブルに新しい行を作成するのには、INSERT INTO クエリを生成します。ADO はレコード セットには、自動インクリメント フィールドが含まれている場合は、SELECT @ @identity オートインクリメント ・ フィールドで生成された値を取得するクエリも生成されます。この機能の例を次に示します。
Dim cnDatabase As ADODB.ConnectionDim rsNewAutoIncrement As ADODB.RecordsetDim strConn As StringDim strSQL As StringDim strPathToMDB As String    strPathToMDB = "C:\NewJet4.MDB"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _          "Data Source=" & strPathToMDB & ";"    Set cnDatabase = New ADODB.Connection    cnDatabase.Open strConn        strSQL = "CREATE TABLE AutoIncrementTest " & _             "(ID int identity, Description varchar(40), " & _             "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords    strSQL = "SELECT ID, Description FROM AutoIncrementTest"    Set rsNewAutoIncrement = New ADODB.Recordset    rsNewAutoIncrement.CursorLocation = adUseClient    rsNewAutoIncrement.Open strSQL, cnDatabase, adOpenStatic, _                            adLockOptimistic, adCmdText    rsNewAutoIncrement.AddNew    rsNewAutoIncrement("Description").Value = "AutoIncrement Test"    rsNewAutoIncrement.Update    MsgBox "New Auto-increment value is: " & rsNewAutoIncrement(0).Value    rsNewAutoIncrement.Close    Set rsNewAutoIncrement = Nothing    strSQL = "DROP TABLE AutoIncrementTest"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords    cnDatabase.CloseSet cnDatabase = Nothing				
Microsoft Access 2000 を使用してまたは、MDAC 2.1 に含まれている、ADOX ライブラリを使用して新しい Jet 4.0 データベースを作成することができます。このライブラリには、Visual Basic の作品を使用するへの参照を作成します。 Microsoft ADO 2.1 の DDL とセキュリティの拡張.Jet 4.0 データベースを新規作成するのには、次のようなコードを使用すること、できます。
Dim strPathToMDB As StringDim catNewDatabase As ADOX.Catalog        strPathToMDB = "C:\NewJet4.MDB"    If Dir(strPathToMDB) <> "" Then        Kill strPathToMDB    End If    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _              "Data Source=" & strPathToMDB & ";"    Set catNewDatabase = New ADOX.Catalog    catNewDatabase.Create strConn    Set catNewDatabase = Nothing				
Microsoft Access データベースの形式を確認するには、Connection オブジェクトの Properties コレクションに動的「Jet OLEDB:Engine の種類」プロパティを確認してください。値 5 4.x の Jet データベースのプロパティを返します。プロパティを使用して、次のコード スニペットを示します。
Dim cnDatabase As ADODB.ConnectionDim strConn As StringDim strPathToMDB As String    strPathToMDB = "C:\NewJet4.MDB"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _          "Data Source=" & strPathToMDB & ";"Set cnDatabase = New ADODB.Connection    cnDatabase.Open strConn    If cnDatabase.Properties("Jet OLEDB:Engine Type").Value = 5 Then        MsgBox "Jet 4.0 database"    Else        MsgBox "Not a Jet 4.0 database"    End If    cnDatabase.CloseSet cnDatabase = Nothing				
関連情報
Microsoft のデータ アクセス SDK です。検索:「Provider-Defined プロパティ」です。トピック:"DBPROPSET_JETOLEDB_DBINIT"
ADOX Jet アイデンティティ オートインクリメント

警告: この記事は自動翻訳されています

プロパティ

文書番号:232144 - 最終更新日: 07/22/2011 17:12:00 - リビジョン: 5.0

  • kbinfo kbdatabase kbjet kbmt KB232144 KbMtja
フィードバック