値要求「なし」 (ID:76148)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ご回答いただいたコードそのままで作成できました。 私のコードでは、下記のとおりです。 ・mdbファイルの新規作成 ・テーブルの作成 ・フィールドの作成 ・フィールドの属性 値要求 なし 長さ０の文字列を許可する はい 型 オートナンバー型 を行っています。 'データベースファイルの新規作成 Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table Dim col As New ADOX.Column Dim strConnect As String ' ADOコネクション文字列の指定 strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile & ";Jet OLEDB:Engine Type=5;" 'データベースの作成 cat.Create strConnect '新規テーブルの作成 tbl.Name = "アイテムリスト" cat.Tables.Append tbl 'フィールド ＩＤ col.Name = "ID" col.Type = adInteger col.ParentCatalog = cat col.Properties("Autoincrement") = True tbl.Columns.Append col Set col = Nothing col.Name = "氏名" col.Type = adWChar col.Attributes = adColNullable col.ParentCatalog = cat tbl.Columns.Append col Set col = tbl.Columns("氏名") col.Properties("Jet OLEDB:Allow Zero Length") = True