データコンボボックスを連動させたい。

質問

はじめまして、宜しくお願いします。

ＶＢ６、ＳＱＬサーバーでタイトルのようなことを実現したいと思っています。

データベース（テーブル名：行事履歴）の内容は

年度　　　　行事
----------------------
2001　　　　夏期キャンプ
2001　　　　修学旅行
2002　　　　社会見学

となっており、

コンボ１で年度を選択して、選択した年度の行事を
コンボ２にリストとして表示したいと思っています。
（例えば、コンボ１で"2001"を選ぶとコンボ２には"夏期キャンプ"、"修学旅行"
のみが表示される）

現在やっているのは
コンボ１とそれに連結しているＡＤＯデータコントロール１、
コンボ２とそれに連結しているＡＤＯデータコントロール２を用意して

ＡＤＯデータコントロール１のRecordSourceには
"SELECT　DISTINCT　年度　FROM　行事履歴"

ＡＤＯデータコントロール２のRecordSourceには
"SELECT　*　FROM　行事履歴"
としておき、

ＡＤＯデータコントロール１のCHANGEイベントで
ＡＤＯデータコントロール２のRecordSourceを
"SELECT　*　FROM　行事履歴　WHERE　年度　=　'"　&　ＡＤＯデータコントロール１.TEXT　&　"'"

としているのですがコンボ２のリストに
"夏期キャンプ"、"修学旅行"、"社会見学"が３つとも表示されてしまい、
うまく連動してくれず行き詰っています。
（一応、コンボ２の.Refreshメソッドを行っているのですがうまくいかないようです。）

もしもなにかお気づきの方が居られましたら、ご教授ください。
宜しくお願いいたします。

回答No.4

taisuke555 · ベストアンサー

＞一応、コンボ２の.Refreshメソッドを行っているのですがうまくいかないようです。
コンボ２ではなくADOデータコントロール２をRefreshしてみてください。

Private Sub DataCombo1_Change()
Adodc2.RecordSource = "SELECT * FROM 行事履歴 WHERE 年度 = '" & DataCombo1.Text & "'"
Adodc2.Refresh
End Sub

これでだめなようなら、補足してください。

お礼

早速のレスありがとうございます。
taisuke555さんの言うとおりデータコントロールの方を
Refreshしたら、うまく動きました。
コンボをRefreshをしても動かなかったので、
Refreshは意味がないと決め付けていました。反省です。

本当にありがとうございました。

回答No.3

kikumaro

takatooさん、こんにちわ。
VBとかSQLじゃなくちゃ駄目ですか？
先月私は同じような内容（たぶん…）で、ここで質問をしました。
私はずぶの素人なので、いただいた回答について理解が出来ず、結局は全く違う方法でこれを解決しました。
以下、参考になるかどうか分かりませんが…

『行事履歴』テーブルのほかに、『年度』テーブルも作っておきます。
文字通り、『年度』のデータしかないテーブルです。
コンボ1はこの『年度』テーブルから選択するようにします。
次に『行事履歴』テーブルの選択クエリを作成し、『年度』フィールドの表示チェックをはずします。
抽出条件は『コンボ1の内容』という数式を入れます。
続いてマクロを作成します。
1行目には『再クエリ』、使う場所（コントロール）はコンボ2の『行事』を表示するところ、2行目には『閉じる』とし、オブジェクトは作成したクエリになります。
あとはコンボ2の値集合ソースに作成したクエリを入れ、フォーカス取得時にマクロを入れれば…これで出来るはずです。
VBとかSQLとかは全く分からないので、参考にはならないとは思いますけど…
ちなみに下記のURLには私が質問したときの回答内容を入れておきます。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q-371961

お礼

早速のレスありがとうございます。
現在のＤＢ構造を変えたくないというのが、ありまして。。。
しかし、ご丁寧な説明ありがとうございます。

回答No.2

Hayashi_Trek

これだと、最終的にＡＤＯデータコントロール２のRecordSourceは
「SELECT　*　FROM　行事履歴　WHERE　年度　=　'2001'」
というSQL文になりますが
「行事履歴」テーブルの「年度」フィールドは文字型になってますか？

お礼

早速のレスありがとうございます。

「年度」フィールドは文字型になっています。
原因はtaisuke555さんの指摘された、ＡＤＯＤＣのRefreshでした。
しかし、早々の回答ありがとうございました。

回答No.1

2ch

SELECT　*　←全てを指定している

SELECT　行事　←表示項目を指定する

だめ？

お礼

早速のレスありがとうございます。

「select *」として、全て選択していますが、
コンボ側のFildListプロパティで表示するフィールドを選択できるようなので
問題ないようです。
原因はＡＤＯＤＣのRefreshをしていないことでした。

しかし早々の回答ありがとうございました。