アクセスのテーブルに項目を追加するコードの作成方法

質問

現在作成済みのアクセスのテーブルにいくつかの項目を追加するプログラムを作っています。

「Name = "場所ドライブ"」
「.Name = "区画図ドライブ"」
「.Name = "区画図"」
以上の項目をテキスト型で追加したいのです。
同時に現在ある「Name = "場所"」というはすでに存在する項目を「OLEオブジェクト型」から「テキスト型」に変更したいのです。
単純に「Name = "場所"」をテキスト型で追加したコードを作成したら動きません。
どなたか助けていただけますか。下記にコードを書きます。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　祥子

Private Sub コマンド1_Click()
Beep
If (MsgBox("データをアップデートします！！") = 7) Then
End If
Dim cnn As New ADODB.Connection
Dim catDB As New ADOX.Catalog
Dim colAdo As ADOX.Column
Dim tbl As ADOX.Table
Dim strCon As String
Dim lIdx As Long
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;"
strCon = strCon & "Data Source=c:\ynet\Hz2data1.mdb"
cnn.Open strCon
catDB.ActiveConnection = cnn
Set tbl = catDB.Tables![区画1]
'変更か削除したいフィールド
'CurrentProject.Connection.Execute "ALTER TABLE [区画1] ALTER COLUMN 場所 TEXT(255)"
'以下追加したいフィールド
Set colAdo = New ADOX.Column
With colAdo
.Name = "場所ドライブ"
.Type = adVarWChar
.Attributes = adColNullable
End With
tbl.Columns.Append colAdo
Set colAdo = New ADOX.Column
With colAdo
.Name = "場所"
.Type = adVarWChar
.Attributes = adColNullable
End With
tbl.Columns.Append colAdo
Set colAdo = New ADOX.Column
With colAdo
.Name = "区画図ドライブ"
.Type = adVarWChar
.Attributes = adColNullable
End With
tbl.Columns.Append colAdo
Set colAdo = New ADOX.Column
With colAdo
.Name = "区画図"
.Type = adVarWChar
.Attributes = adColNullable
End With

回答No.3

jacob-wk9 · ベストアンサー

原則的には＃１の方＃２の方のご回答に同意いたします。
ＡＤＯＸを使うとは、大変難しい仕組みを知っていらっしゃるんですね。私は普段は、昔の知識のままＤＡＯでやっていますので、今回初めて勉強させて貰いました。
ちなみに、社内に配布済みのプログラムのテーブルを変更したいということですが、そういう案件ですとＳＱＬサーバーのデータを共有しているわけではないのですか。もしくは、サーバーのデータを共有しているほかに、作業用にテンポラリーな意味合いのローカルテーブルを持たせている、とか。もちろん新しい接続形式のほうが、ＶＢ．ＮＥＴとの互換性が高いので有効だと思いますが、私だったら、前のバージョンのプログラムを元に、新しい器となるテーブルと元のテーブルから新しい器にコピーするクエリーを作っておき、「クエリー実行→元のテーブルを別名にする→新しいテーブルを元のテーブル名にする」の一連の動作をＶＢＡで書いて、ボタンを作って配布し、使用者に実行してもらいますね。

さて、本題ですが、私が再現して動くところまでやったらこうなりました。
（ACCESS2010しか持ってないので、エンジンは元の.Jet.OLEDB.4.0で読み替えてください。）

Private Sub コマンド0_Click()
Beep
If (MsgBox("データをアップデートします！！") = 7) Then
End If
Dim CatDB As ADOX.Catalog
Set CatDB = New ADOX.Catalog
CatDB.ActiveConnection = "provider=Microsoft.ACE.OLEDB.12.0;Data source=c:\Users\XXXX\Database2.accdb"
Dim tbl As ADOX.Table
Dim colAdo As ADOX.Column
Dim strCon As String
Dim lIdx As Long

Set tbl = CatDB.Tables("区画1")

'変更か削除したいフィールド
'CurrentProject.Connection.Execute "ALTER TABLE [区画1] ALTER COLUMN 場所 TEXT(255)"
'以下追加したいフィールド
Set colAdo = New ADOX.Column
With colAdo
.Name = "場所ドライブ"
.Type = adVarWChar
.Attributes = adColNullable
End With
tbl.Columns.Append colAdo
（省略）
Set colAdo = New ADOX.Column
With colAdo
.Name = "区画図"
.Type = adVarWChar
.Attributes = adColNullable
End With
tbl.Columns.Append colAdo '質問ではカットされてましたが実際ではお忘れなく
End Sub

手直ししたのは基本的に最初のほうだけですので、おそらくＡＤＯＤＢとＡＤＯＸの関係性というか、使用法が違うのかなと思いました。あくまで、ＡＤＯ素人の意見ですので、ご了承ください。

回答No.4

jacob-wk9

質問読み返して気づきましたが、今「場所」という名前のカラムがあるテーブルに、
同じく「場所」という名前のカラムを追加しようとしていないですよね。
それはエラーが出てストップします。

回答No.2

o_chi_chi

テーブルの移行はテーブル構造を直接変更するのではなく

１．テーブルのバックアップ

２．元テーブルの削除

３．新テーブルの作成

４．新テーブルにバックアップからインサート

のようなＳＱＬを順に実行するようにした方が

簡単・安全かと思います。

場所項目ですが、

OLEオブジェクト型のデータ内容はイメージデータ

ではないでしょうか。

その場合テキスト型への変換はできないのでは。

回答No.1

o_chi_chi

回答ではないです。

基本的にテーブルの項目は固定で持つべきもので

安易に追加、削除をするのもではないです。

追加・削除をプログラムでしようとするからには

フレキシブルで項目を持ちたいのではないかと

思いますが、そのためにクエリがあります。

もう一度テーブルの設計がら見直してはいかがでしょう。

お礼

ありがとうございます。
フレキシブルで項目を持ちたいのではなく
何台もあるパソコンにあるアクセスのデータのテーブル項目を修正したいのですが・・・
1台づつ修正するのが面倒なので書き換えできるプログラムを作ったのですが
だめなんです・・・
お手数おかけしました。

祥子