DataComboにレコードセットをsetするには。。。

解決

---

VB6.0+JET4.0 ADO で簡単なアプリを作ろうと思ったのですが、
ＳＱＬで取得したレコードセットをDataCmboコントロールへ
表示させる方法がわかりません。

mySql = select aa from hh 
rs.open mySql,cn,adOpenDynamic,adLockpessimistic
DataCombo.Datafield = rs(0).field   '?

どなたかどうぞお教えください。

編集 削除

---

[Visual Studio 6.0 ドキュメント]
└[Visual Basic ドキュメント]
  └[Visual Basic の使用方法]
    └[プログラミング ガイド]
      └[Visual Basic を使ってできること]
        └[Visual Basic の標準コントロールの使用]
          └[データ コンボ コントロールおよびデータ リスト コントロールの使用]
            └[簡単なデータ コンボ アプリケーションの作成]

Adodc 使うんじゃない？

編集 削除

---

特攻隊長まるるう さん
ご回答ありがとうございます。

>Adodc 使うんじゃない？
これ以外の方法ってないでしょうか？

DataCombo1で選択した内容により、DataCombo2の内容を変えたいので、
単にSQLにより取得した結果（レコードセット）をDataCombo2に代入さえ
できればいいのですが。。。

わがままですいません！
どうぞよろしくお願いします。

編集 削除

---

たとえばこんなかんじ。

    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "select aa from hh"
    cn.CursorLocation = adUseClient
    cn.Open "接続文字列"
    rs.Open strSQL, cn
    Set DataCombo1.RowSource = rs
    DataCombo1.ListField = "aa"

編集 削除

---

できました！！できた。できた。
ここまで待ったかいがありました！！

Sayさん、本当に感謝です！！

（いい人、いいサイトだ。。。）

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。