アクセス2000VBA ADO パラメータクエリについて

質問

アクセス2000VBA　ADO　パラメータクエリについて
フォーム１で得たデータをモジュールで定義した［hensu］（String）に代入して、クエリ１（選択クエリ）の抽出条件として［hensu］を使用して、それによって得たデータをフォーム１で使用したいです。
フォーム１で［hensu］をパラメータクエリ？として定義するような文章（プログラム）が必要なだと思いますが、その例文（プログラム）を教えてください。
シロウト用に分かりやすくお願いします。

回答No.2

layy · ベストアンサー

参考）

「フォームで入力した値をクエリの抽出条件にする」
こういう仕組みはあります。頻度の高いテクニックの一つです。
掲示板でなくネットで探してみるとたぶん事例はあります。
フォームの値をどう表現したらいいのか、はビルドを使って記載します。

１）
クエリデザインの抽出条件欄で
like　forms![フォーム名].[・・・]　・・・・・・・・・
と書く方法あります。

２）
モジュールでの記載でも同じく
hensuu ＝ forms![フォーム名].[・・・]　・・・・・・・・・
sqlstring="select * from ・・・・ where " & hensuu
モジュール内でフォームの値をどう表現するか、で
やり方が見えてきます。

３）
テーブル作成クエリ等使って、
テーブルを一つ用意して、項目「hensuu」に保持。
目視できる状態で値を保持することもできます。
これは使う人は少ないかも。

フォームの値をどうするか、というのは
１）２）３）、と思いつくだけでいろいろ使いたい場面があります。

お礼

１）の［　］内は、テキストボックス名ですよね、２）はクエリ１を使用しないような・・・
質問のし方が悪くて申し訳ありません。
ありがとうございました。

回答No.3

imogasi

VBAを使いADOでレコード抜き出し処理をするなら、あえてパラメータクエリといわなくても良いと思う。
(注）
フォームのテキストボックスで入力された値をボタンのクリックイベントで受け取って（hensu=Me.Textbox1.Textで当然変数に受け取れる）その変数の値を使ってSQL文を（文字列）をつくり、Executeすることで、結果が得られる（通常複数レコード）その結果を、フォーム１のコントロールに表示する。
＞シロウト用に分かりやすくお願いします。
＞文章（プログラム）が必要なだと思いますが
アクセスやアクセスVBAやADOなどになると、じっくり勉強しないと回答をもらっても、回答で言っていることが、判らないことが考えられる。そういう段階はこのコーナーで質問をするレベルではないと考えて、まず足元を固め、質問の言及範囲を狭くして質問することだ。
変に「パラメータクエリで」、や、「かれこれのやり方で」と決めず、回答を期待するのが良いと思う。
例　フォーム１にテキストボックスを設ける方法（これはD＆Dの方法で良いのでしょうね）
それへ入力された値を変数にセットする方法
こういう風に質問者が判りやすいように分解して聞く方法を身につけることが先決。
ーー
注）http://www.accessclub.jp/sql/25.html　ほか
にあるように「SQL　パラメータ」で検索すると、そのものの解説が出るが、質問者のレベルから、そちらを言う必要は無かろう。
参考コード
社員３というアクセスのテーブルがあり、氏名には漢字の「氏名」フィールドがあり、「住所」というフィールドもあり、山田三郎が複数出てくる場合の例
Sub test18()
Dim objADOCON As ADODB.Connection
Dim objADORS As ADODB.Recordset
hensu = "山田 三郎"
Set objADOCON = Application.CurrentProject.Connection
Set objADORS = objADOCON.Execute("SELECT * FROM 社員３ WHERE 氏名 = '" & hensu & "'")
objADORS.MoveFirst
Do Until objADORS.EOF = True
MsgBox objADORS.Fields("住所")
objADORS.MoveNext
Loop
objADORS.Close
objADOCON.Close

Set objADORS = Nothing
Set objADOCON = Nothing
End Sub

お礼

今回は、フォーム内で　hensu＝rst！~　として、そのhensuをクエリ１の抽出条件として使用したかったです。（パラメータクエリという言葉が間違っていたのか？）rst!~をテキストボックスに代入して抽出条件にする方法は知っているのですが、ステップアップとして上記の方法を学びたかったのです。
ありがとうございました。

回答No.1

mitarashi

>フォーム１で得たデータ
というのが単なるテキストボックスでの入力をさしているのかどうか分かりませんが、
こういう事がなさりたいのでしょうか？外していたらすみません。
http://www.mahoutsukaino.com/ac/ac2000/ac2000/kensakua/kensaku01.htm

一冊書籍を購入される事をお勧めします。
リンク先の作者の著書で、自分は万年初心者をぬけだしました。

お礼

そのサイトは以前に教えて頂いて閲覧しましたが、今回の事の関しては無かったと思います。
質問が分かりづらくて申し訳ありません。
ありがとうございました。