■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#21586-0
アクセスのテーブルのデータを別のテーブルに移す方法を教えてください。
データベース(テーブル)から条件に合ったものだけを取り出し、
別のテーブルに移したいのですが方法がわかりません。
Set wDb = Workspaces(0).OpenDatabase(s_DB_Dat, False, False)
wSql = "SELECT * FROM MEISYO"
wSql = wSql & " WHERE 名称区分 = " & prvPrgJkbn←条件
Set wRs = wDb.OpenRecordset(wSql, dbOpenDynaset)
          
      If wRs.NoMatch Or wRs.EOF Then
          
      Else
      wLeft(wI, 0) = ImJouken←ここでデータベースを読み込み、配列に格納
     中略
   endIf
wRs.Close
wDb.Close
という風にやり、
あとは別の移すほうのテーブルを開き
wRs1!○○ = Val(wLeft(wI, 1))という風にして、
データを吐き出しているのですが、
同じデータが同じ行に書きこまれてしまいます。

多分、データの読み込みのほうで、一行目しか読んでいない。
それと、書き込むほうの行が増えていってないのが原因だと
思うのですが、解決方法がわかりません。
#21588-0
RE#21586:アクセスのテーブルのデータを別のテーブルに移す方法を教えてください。
> 多分、データの読み込みのほうで、一行目しか読んでいない。
なら次々と読みこんでいけばOKでは?
Move系

> それと、書き込むほうの行が増えていってないのが原因だと
> 思うのですが、解決方法がわかりません。
UpdateやAddNewをしていけばOKでしょう。


ちなみに・・・
「INSERT INTO ステートメント」で追加が容易に
可能になります。

アクセスで追加クエリーを作成し、SQLビューで
SQLを参照すると良いです。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)