投稿日	： 2004/02/02(Mon) 20:31
投稿者	： おじん
ＵＲＬ	：
タイトル	： データベースの作成について

下記のコ−ドでデータベースを作成（Create)すると、インデックス（Index）は
重複ありとなります。これを重複なしにする方法を教えてください。
プロパディの中に.Uniqueとそれらしいものがあるのですが、、、？
よろしくお願いいたします。

Private Sub CreateMDB()
'MDBを作成
    Dim tbl As TableDef
    Dim idx As Index
    
    On Error Resume Next
    Kill txtMDB       '削除
    On Error GoTo 0
    '作成
    Set db = CreateDatabase(txtMDB, dbLangJapanese, dbVersion30)
    'テーブルを作成
    Set tbl = db.CreateTableDef("Table1")
    'フィールドを作成しFileldsコレクションに追加
    With tbl
        .Fields.Append .CreateField("zipno", dbText)
        .Fields.Append .CreateField("address1", dbText)
        .Fields.Append .CreateField("address2", dbText)
        .Fields.Append .CreateField("address3", dbText)
    End With
    'インデックスを作成　　　
    Set idx = tbl.CreateIndex("Index1")
    With idx
        .Fields.Append .CreateField("zipno")
    End With
    tbl.Indexes.Append idx
    '作成したテーブルを追加
    db.TableDefs.Append tbl
    
    db.Close '閉じる
    
    Set idx = Nothing
    Set tbl = Nothing
    Set rs = Nothing
    Set db = Nothing '開放

End Sub

★ - データベースの作成について - おじん 02/02-20:31No.7816
• Re: データベースの作成について - 魔界の仮面弁士 02/02-22:34 No.7818
  • Re^2: データベースの作成について - おじん 02/03-04:50 No.7823
    • Re^3: 解決しました - おじん 02/03-05:29 No.7824