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

解決


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

以前あった質問に似ているのですが、Aテーブルから
社名   コード   品名    数量
A社   001   いちご  6個
A社   002   みかん  1個
A社   003   りんご  3個
のレコードセットを抽出したとし、このレコードを空のBテーブルへとAddnew命令でコードのみを追加したいんですが、どう入力すれば可能でしょうか?
Bテーブル
コード
001
002
003
環境は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 Bテーブル(コード) SELECT コード FROM Aテーブル WHERE 条件")
で一行で済む場合もありますね。まあ、似た質問の人もそうかもしれませんが。


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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加