レコードセットの一部を別テーブルにAddNewするには？

解決

人類皆強大 2006-11-21 00:16:21 No: 134220

以前あった質問に似ているのですが、Ａテーブルから
社名   コード   品名    数量
Ａ社   ００１   いちご  ６個
Ａ社   ００２   みかん  １個
Ａ社   ００３   りんご  ３個
のレコードセットを抽出したとし、このレコードを空のＢテーブルへとAddnew命令でコードのみを追加したいんですが、どう入力すれば可能でしょうか？
Ｂテーブル
コード
００１
００２
００３
環境はVB6.0 ACCESS2000です。

もげ 2006-11-21 22:25:46 No: 134221

>環境はVB6.0 ACCESS2000です。

えーと、まず、VB6.0のSP3以上を当てる必要があります（WinXPならSP5以上）。
ADOならば、まあ、

rsIn.Open 以下略〜
rsOut.Open 以下略〜

Do Until ( rsIn.EOF = True Or rsIn.BOF = True )
    rsOut.AddNew
    rsOut.Fields.Item("コード").Value = rsIn.Fields.Item("コード").Value
    rsOut.Update
    rsIn.MoveNext
Loop

rsIn.Close
Set rsIn = Nothing
rsOut.Close
SetrsOut = Nothing

でしょうけど（詳細はRecordsetのOpenやAddNew等のヘルプをご参照ください）、
cn.Execute("INSERT INTO Ｂテーブル(コード) SELECT コード FROM Ａテーブル WHERE 条件")
で一行で済む場合もありますね。まあ、似た質問の人もそうかもしれませんが。

人類皆強大 2006-11-22 07:14:37 No: 134222

的確なアドバイスありがとうございました。
まだもう少し詰まっている部分もありますが、ヘルプを参考に頑張っていきますね。