Jetデータベースのオートナンバー型の値を取得する
- [Database]
VB-MLに出たので・・・
難波カゲツさんの回答をいただき。
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim lngSeed As Long
Set cat = New Catalog
Set cat.ActiveConnection = cnn '接続済みConnectionオブジェクト
Set tbl = cat.Tables("テーブル名")
lngSeed = tbl.Columns("オートナンバーのフィールド名").Properties("Seed")
Set tbl = Nothing
Set cat = Nothing
トラックバック
- このエントリーにトラックバック:
- http://frog.raindrop.jp/cgi-bin/mt/mt-tb.cgi/6
コメント
補足。
Properties("Seed")で取得できる値は、
次に返される予定の値だそうです。