[Access vba] 他のDBにあるテーブルのオートナンバーを１にリセット: あした

2020年05月12日

[Access vba] 他のDBにあるテーブルのオートナンバーを１にリセット

他のDBにあるテーブルのオートナンバーを１にリセット




    Dim sFPath              As String
    Dim voCn                As New ADODB.Connection

    sFPath = "C:\aaaaa\bbbbb.accdb"            '←DBのパス

    Set voCn = New ADODB.Connection

    '◆オートナンバーを１にリセット  テーブル名:cccccTable  オートナンバーの列名:ddddd
    voCn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & sFPath
    voCn.Open
    voCn.Execute CommandText:="Alter Table [cccccTable] Alter Column [ddddd] Identity( 1, 1 );"
    voCn.Close: Set voCn = Nothing

【このカテゴリーの最新記事】

posted by naka at 08:02 | TrackBack(0) | Access vba

この記事へのトラックバックURL
https://fanblogs.jp/tb/9843311
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック