データベース（MDBファイル）関連：ADOXを使いオートナンバー型のフィールドを作成する

VB2008でMDBファイルのオートナンバー型フィールドを作成する実行例サンプルです。

データベース（MDBファイル）関連へ


■実行画面
「オートナンバー型作成」ボタンでMDBファイルを作成し、オートナンバー型フィールドを追加します。
作成フォーム

■完成した、「顧客マスター」テーブルをAccessで開くと、このようになっています。
顧客IDがオートナンバー型で主キーとなっています。
MDBテーブル

■実行コード

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cat As ADOX.Catalog
Dim s1 As String

s1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = c:\mdbtes1.mdb; Jet OLEDB:Engine Type= 5"
cat = New ADOX.Catalog
'MDBファイル作成
cat.Create(s1)

Dim objtbl As Object
Dim objCol As Object

objtbl = CreateObject("ADOX.TABLE")
objtbl.Name = "顧客マスター"

objCol = CreateObject("ADOX.Column")
objCol.Name = "顧客ID"
objCol.Type = ADOX.DataTypeEnum.adInteger
objCol.ParentCatalog = cat
'オートナンバー型
objCol.Properties("AutoIncrement") = True

objtbl.Columns.Append(objCol)
objtbl.Columns.Append("名前", ADOX.DataTypeEnum.adVarWChar, 30)
objtbl.Columns("名前").Attributes = ADOX.ColumnAttributesEnum.adColNullable
objtbl.Columns.Append("年齢", ADOX.DataTypeEnum.adInteger)
'主キーにセット
objtbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "顧客ID")

cat.Tables.Append(objtbl)

objCol = Nothing
objtbl = Nothing
cat = Nothing

End Sub

Visual Basic 2008 Express Edition実践入門