こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

ADOXでAccessのファイルを作る

ADOXで下記のようにAccessファイルを作ろうと思うのですが

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column
Dim idx As New ADOX.Index

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & ここには作成先のパス & ";" _
& "Jet OLEDB:Engine Type=4;"

tbl.Name = "T_連絡先"

col.Name = "連絡場所"
col.Type = adVarWChar
col.DefinedSize = 20
col.ParentCatalog = cat
col.Properties("Jet OLEDB:Allow Zero Length") = True
tbl.Columns.Append col
Set col = Nothing

col.Name = "連絡番号"
col.Type = adVarWChar
col.DefinedSize = 13
col.ParentCatalog = cat
col.Properties("Jet OLEDB:Allow Zero Length") = True
tbl.Columns.Append col
Set col = Nothing

cat.Tables.Append tbl
Set tbl = Nothing
4台ある中の2台のPCでは問題なくファイルが作成されましたが、残り2台に関してはファイルは作成されるもののテーブルは作成されませんでした。
コードを削除しながらテストしてみると、"連絡場所"フィールドに問題があるらしく、"連絡場所"フィードのコードを削除すると問題なくテーブルも作成されます。
しかも、不思議なことにコードを変えずにフィールド名"連絡場所"を"連絡場所1"とするとテーブルは問題なく作成されます。マシンはすべてWin2000ProにVB6SP5です。とんでもなく初歩的なところでミスをしているような感じもしますが、まったく原因がつかめませんので、どうかよろしくお願いいたします。

投稿日時 - 2002-07-05 12:30:08

QNo.307111

困ってます

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

ADOのバグですかねぇ?
特定のマシンで発生するのであれば、ADOというか、MDACのバージョンを疑ってみてください。

あと、Office、IEのバージョンなどは動作するマシンとしないマシンは同じでしょうか?

投稿日時 - 2002-07-05 19:02:21

あなたにオススメの質問