2

したがって、デフォルトのワークスペースにアクセスファイルを作成し、テーブルを作成し、そのテーブルにいくつかのフィールドを作成する以下のVBがあります...最初のデータ型/フィールドを自動番号に設定するための構文を知る必要があります... GUID、カウンターなどは Access SQL のように機能しません

' error handling usually goes here

dim ws as workspace
dim dbExample as database
dim tblMain as TableDef
dim fldMain as Field
dim idxMain as Index

set ws = workspace(0)

set dbExample = ws.CreateDatabase('string file path')

set tblMain = dbExample.CreateTableDef("tblMain")

set fldMain = tblMain.CreateField("ID", 'right here I do not know what to substitute for dbInteger to get the autonumber type to work )

tblMain.Fields.Append fldMain
etc to create other fields and indexes

したがって、この行では: set fldMain = tblMain.CreateField("ID", dbInteger) dbInteger を、VB が autonumber プロパティとして認識できるものに置き換える必要があります。GUID、Counter、Autonumber、AutoIncrement を試しましたが、残念ながらどれも機能しません。

ここで欠落している構文を知っている人はいますか?

ありがとう、ジャスティン

4

1 に答える 1

1

The access Web のコードからのオートナンバー型フィールドの作成を参照してください。

そのリンクされたページの重要な行は次のとおりです。

Set db = Application.CurrentDb
Set tdf = db.TableDefs(strTableName)
' First create a field with datatype = Long Integer '
Set fld = tdf.CreateField(strFieldName, dbLong)
With fld
    ' Appending dbAutoIncrField to Attributes '
    ' tells Jet that its an Autonumber field '
    .Attributes = .Attributes Or dbAutoIncrField
End With
With tdf.Fields
    .Append fld
    .Refresh
End With

ところで、あなたがやっていることはDDLではありません。

于 2010-05-17T22:06:40.400 に答える