データベースから該当するデータを抽出するには？ (ID:104122)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 全ての謎が解けました。 まず順をおって レコードセットの扱いですが Set rs = db.OpenRecordset("Kokyaku") ’顧客テーブルのレコード全部 ↑の様な使い方はMDBの場合ほぼ使いません 上記の様な使い方はExcelシート等の場合がほとんどです レコードセットとはテーブル内の全レコードより 特定のレコード（SQL/条件）のみを抽出すると言うのが一般です ※10件中 1件,2件等 、この場合MoveNext等でレコードを移動させる必要がある 以下の様にすると良いかと思います。 dim oRs as Recordset 'レコードセット dim sSQL as String 'SQL編集文字列 【データの取得/ID指定時】 sSQL = "SELECT * FROM Kokyaku WHERE 顧客ID = '" & _ txtID.text & "'" Set oRs = db.OpenRecordset(sSQL) ※txtIDには検索対象IDとする ↑*は顧客テーブルの項目全ての取得です。条件にIDを指定しているので この場合rsのレコードセットオブジェクトには指定した顧客の レコードのみが握られています 【削除/更新】 削除/単一レコードの更新処理も上記の様にどのIDのレコードを消すのか？ と言う事を指定してあげなければいけません。 ちなみに削除する場合はカラムに値を入れる必要はないですし レコードセットを使用しないでも直接 db.Excute ("DELETE Kokyaku WHERE 顧客ID = 00001") ↑の様に発行できます。 ※SQLの知識をつければ簡単に理解できるようになるはずです。 解りずらいとは思いますが