コミュニティでの活動の履歴として、自身(Orator/魔界の仮面弁士)が掲示板・Mailing List・Newsgroup等へ発言した内容の中で、再利用できそうな物を拾い出して、掲載しています。

« 2002年07月 | Main | 2002年11月 »
[Jet 4.0] ADOX: オートナンバー値をリセットする / 2002年08月10日(土)

「初期値」や「増分値」には、任意の整数(負数も可)を指定できます。


[08/10/2002]D.Free([VB-ML:16888])

Dim Cat As Object
Dim Tbl As Object
Dim Col As Object
Dim strMDB As String
Dim strTableName As String
Dim strColumnName As String

strMDB = "C:\Sample.MDB"
strTableName = "テーブル1"
strColumnName = "列1"

Set Cat = CreateObject("ADOX.Catalog")
Cat.ActiveConnection = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & strMDB
Set Tbl = Cat.Tables(strTableName)
Set Col = Tbl.Columns("ID")

Col.Properties("Seed").Value = 1      '初期値
Col.Properties("Increment").Value = 1 '増分値

Tbl.Columns.Refresh
Set Col = Nothing
Set Tbl = Nothing
Set Cat = Nothing

 
Posted at 14:02 / Jet/Access / この記事のURL
コメント(0)
P R

Microsoft Most Valuable Professional, Visual Developer - Visual BasicMSMVP for Visual Basic


Global Media Online INC.