アクセス解析
レンタル掲示板

カレンダー
  12345
6789101112
13141516171819
20212223242526
2728293031  
<< October 2019 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
ブログランキング・にほんブログ村へ
カテゴリー
アーカイブ
おすすめ商品
おすすめリンク

その他リンク

<< 愛知 | main | 出会い・交流 >>
現在の主キーをやめて別の主キーを設定する

主キーを一旦削除して、別の主キーを設定するやり方です

「T_test」はテーブル名、「A」、「B」が新しく主キーを設定するフィールドです

Dim db As Database
Dim MYSQL As String
Dim Flag As Integer

Dim tbd As TableDef
Dim idx As Index
Dim fld As Field

Set db = CurrentDb

Flag = 0

'主キーをもつフィールドがあるかどうか
Set tbd = db.TableDefs("T_test")
For Each idx In tbd.Indexes
    If idx.Primary = True Then
        For Each fld In idx.Fields

           'あればフラグを立てる
            Flag = 1
            Exit For
        Next
    End If
Next

'主キーを削除
If Flag = 1 Then
    MYSQL = "DROP INDEX PRIMARYKEY ON T_test"
    DoCmd.RunSQL MYSQL
End If

'主キーを設定

MYSQL = "CREATE UNIQUE INDEX PrimaryKey ON T_test(A ,B) WITH PRIMARY;"
DoCmd.RunSQL MYSQL

以上です

| ACCESSシステム開発 | 07:41 | comments(0) | - |
コメント
コメントする