掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB6からMDBのテーブルにフィールドの追加するには (ID:139313)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
DAO を使用して MDB内のMEMBERテーブルにフィールドを追加したいのですが上手くできません。 知識不足により調べながら試しに作ってはみたのですが開くだけで追加されません。 重要部分が抜けていると思い継続して試しているところですが宜しくお願い致します。 ちなみにMDBにフィールドの追加を行いたい場合、フィールドを追加した空のMDBを用意して 全ての内容を移行させる方が望ましいのでしょうか？ Private Sub Command1_Click() Dim Mydb As DAO.Database Dim tdf As TableDef Dim fdNew(3) As Field Set Mydb = DAO.DBEngine.Workspaces(0).OpenDatabase("C:\test\test.mdb", False, True, "MS Access;pwd=1111") Set tdf = Mydb.CreateTableDef("MEMBER") Set fdNew(0) = tdf.CreateField("FIELD1", dbText) fdNew(0).Size = 50 Set fdNew(1) = tdf.CreateField("FIELD2", dbText) fdNew(1).Size = 50 Set fdNew(2) = tdf.CreateField("FIELD3", dbText) fdNew(2).Size = 50 Set fdNew(3) = tdf.CreateField("FIELD4", dbText) fdNew(3).Size = 50 tdf.Fields.Append fdNew(0) tdf.Fields.Append fdNew(1) tdf.Fields.Append fdNew(2) tdf.Fields.Append fdNew(3) Mydb.TableDefs.Refresh Mydb.Close Set Mydb = Nothing End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.