データコンボコントロールについて

ｓａｔ 2004-07-23 10:57:00 No: 114980 IP: [192.*.*.*]

ＡＤＯデータコントロールを使用したデータコンボコントロールで、リストに表示されるＤＢのフィールドとは別のフィールドをデータとして扱いたいのですが、コンボボックスの値をもとにＳＱＬを発行してレコードを取得する以外に何かよい方法はないでしょうか？
よろしくお願いします。

編集削除

特攻隊長まるるう 2004-07-23 16:20:42 No: 114981 IP: [192.*.*.*]

>ＡＤＯデータコントロールを使用したデータコンボコントロールで
>ＳＱＬを発行してレコードを取得する以外に何かよい方法はないでしょうか？
…などと言われましてもＡＤＯデータコントロールの RecordSorce には
SQL 文を指定してたりするのでは無いのですか？SQL 文を一度も使わず
特定のデータをデータベースから取ってくるのは難しいでしょうし…。

>コンボボックスの値をもとにＳＱＬを発行してレコードを取得する
ことを何故避けたいのか？どういった目的なのかがハッキリしません
ので、何を求められているのか分かりません。
何度も検索処理をするのを避けたいだけならＡＤＯデータコントロール
の Recordset なりローカル変数で宣言した Recordset なりを保持
してその中からデータを取ればいいんじゃないですか？
ただし、複数のユーザが利用するデータベースの場合、当然ながら
ローカルに保持したデータとデータベースのデータに差が出てきます。
その対応も必要となってくる事も忘れないでください。

編集削除

sat 2004-07-23 17:15:37 No: 114982 IP: [192.*.*.*]

ご返信ありがとうございます。わかりづらくて申し訳ありません。
社員テーブルに、「社員番号（KEY）」と「社員名」というフィールドが
あるのですが、コンボボックスには社員名を表示させ、
処理上は社員番号を扱いたいんです。
一応社員名は重複しないように登録するのですが、
データからＫＥＹを持ってくるというのが気持ち悪かったもので…。

今のところ、SELECT文で社員番号＋社員名をコンカチで取得し、
データ登録の際はMID関数でで社員番号だけにしています。

Recordsetの保持は考えていませんでした。ぜひ調べてみます。
が、大変そうですね…。

編集削除

特攻隊長まるるう 2004-07-23 18:03:01 No: 114983 IP: [192.*.*.*]

>Recordsetの保持は考えていませんでした。ぜひ調べてみます。
>が、大変そうですね…。
１回作ってみればそれほど難しくないし、並べ替えもできるし
入れ物としては便利ですよ？
http://www.interq.or.jp/www-user/komurak/progtec/031.htm

Adodc1.Recordset には「社員番号（KEY）」と「社員名」データが
入っているんですか？↓のコードを実行すると何が出力されます？

[VB6.0]
Private Sub DataCombo1_Change()
Debug.Print Me.Adodc1.Recordset.Fields("社員番号")
End Sub

編集削除

特攻隊長まるるう 2004-07-23 18:16:17 No: 114984 IP: [192.*.*.*]

[VB6.0]
’↓けっこう適当に作ってるので自分で改良して下さい。
Private Sub DataCombo1_Change()
    Debug.Print "Change" & Me.DataCombo1.SelectedItem

    With Me.Adodc1.Recordset
        '.MoveFirst                             ' ←この辺調整して下さい
        .Move Me.DataCombo1.SelectedItem - 1 ' ←この辺調整して下さい
        Debug.Print .Fields("社員番号")
    End With
End Sub

編集削除

sat 2004-07-26 10:39:59 No: 114985 IP: [192.*.*.*]

ご丁寧にありがとうございました！
まるろうさんのソールを追加して実行してみたところ、
ちゃんと社員番号が表示されました。
このデータを使って更新すればうまくいきそうです。

ADOデータコントロールに頼り気味だったので、
ちゃんとRecordsetなどについて勉強しようと思います…;

編集削除