環境:Access2003 VB6.0
2つのコンボボックス関連させたいが、やり方がよくわからないです。
たとえばSCHOOLというテーブルに1YearとClassのフィールドがあります。そこで、YearのコンボボックスでYearフィールドの値を選択して、Classのコンボボックスに選択された値に対する値をセットしたいです。 例(1年と選択して、2個目のコンボボックスにA、B、C、Dとセットしたいです。
初心者で、説明がわかりにくいかもしれないですが、よろしくお願いします。
以下データベースの接続設定
Dim m_formlording As Integer
Dim CONN As ADODB.Connection
'レコードセット
Dim RECO As ADODB.Recordset
Private Sub ConnOpen()
Set CONN = New ADODB.Connection
'接続文字列の設定
CONN.ConnectionString = "provider=Microsoft.jet.oledb.4.0;" _& "data source=D:\DB\dbstudent.mdb"
'コネクションをオープン
CONN.Open
End Sub
Private Sub RecoSet()
Set RECO = CONN.Execute("Select * From SCHOOL")
End Sub
詳しい方、ご教授ください。
No.1ベストアンサー
- 回答日時:
コンボ1を選択後、
再度SQLを発行し
コンボ2に対するItemを追加すれば出来ると思いますよ。
↓こんな感じです。
private sub Combo1_Lostfocus()
'コンボ2を設定
Set RECO = CONN.Execute("Select Class From SCHOOL WHERE Year =" & 'コンボ1')
reco.movefirst
do until reco.eof
コンボ2.additem(reco(0))
reco.movenext
loop
end sub
この回答への補足
回答ありがとうございます。
おしゃったとおりにやったんですが、
Set RECO = CONN.Execute("Select Class From SCHOOL WHERE Year =" & 'コンボ1')のところでデバッグエラーがでました。
Set RECO = CONN.Execute("Select Distinct Class From SCHOOL WHERE Year = '" & Cbx1.Text & "'")
に書き換えたら、うまくいけました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataTableに特定のフィールドが...
-
ACCESSデータベースにV...
-
INT64対応のprintf系関数はあり...
-
Accessのフィールド名に半角括...
-
テーブルのデータ型の変更がで...
-
accessでフィールド追加のあと...
-
AccessのDAOでフィールド名を配...
-
アクセスのクエリに、VLOOKを設...
-
FlexGridでのおかしな不具合・・。
-
【Access2003】VBAで削除のSQL...
-
2つ目のレコードの値を取得す...
-
ACCESSで視覚的タイムテーブル...
-
Access 2010で実行時エラー3061
-
Access VBA 添付型フィールド
-
アクセスでADO 並べ替えが適用...
-
テキストファイルのフィールド...
-
クリスタルレポート(8.5)の書式...
-
2のコンボボックスの関連
-
アクセス ADO Null以外のレコ...
-
AccessVBAで他テーブルのデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフィールド名に半角括...
-
INT64対応のprintf系関数はあり...
-
2つ目のレコードの値を取得す...
-
accessでフィールド追加のあと...
-
DataTableに特定のフィールドが...
-
Access 2010で実行時エラー3061
-
テーブルのデータ型の変更がで...
-
日付と文字列を条件としてDLook...
-
2次元のdictionary
-
AccessのDAOでフィールド名を配...
-
オートナンバー型を抽出条件に...
-
クリスタルレポートで文字列の...
-
クリスタルレポート(8.5)の書式...
-
アクセスでADO 並べ替えが適用...
-
クリスタルレポートの式フィー...
-
Access クエリで変数を参照する...
-
ACCESSデータベースにV...
-
NULLを含む文字列の結合で...
-
アクセス ADO Null以外のレコ...
-
テキストファイルのフィールド...
おすすめ情報