• ベストアンサー

【VB】コンボボックスにデータベースから取り出した値を入れたい

VB6です。 表題の通りですがやり方がよくわかりません。 ADOを使ってSQLで重複しない値を取り出すところまではできています。 SELECT DISTINCT FieldName FROM TableName; 取り出した値をコンボボックスで選択できるようにしたいのです。 よろしくご教授ください。

質問者が選んだベストアンサー

  • ベストアンサー
  • fortranxp
  • ベストアンサー率26% (181/684)
回答No.1

Do Until rs.EOF 　　Combo1.AddItem rs.Fields("FieldName") 　　rs.MoveNext Loop

sineminna
質問者

お礼

ъ(゜Д゜)グッジョブ!! めちゃかしこい

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【VB】コンボボックスにデータベースから取り出した値を入れたい

    VB2005です。 表題の通りですがやり方がよくわかりません。 データベースに接続し、 SQLで重複しない値を取り出すところまではできています。 SQL=SELECT DISTINCT FieldName FROM TableName VB6の時はこんなソースでした Do Until rs.EOF 　　　Combo1.AddItem.Fields("FieldName") 　　　rs.MoveNext Loop VB2005ではどう書くのでしょう？ よろしくご教授ください。

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

    はじめまして、宜しくお願いします。 ＶＢ６、ＳＱＬサーバーでタイトルのようなことを実現したいと思っています。 データベース（テーブル名：行事履歴）の内容は 年度　　　　行事 ---------------------- 2001　　　　夏期キャンプ 2001　　　　修学旅行 2002　　　　社会見学 となっており、 コンボ１で年度を選択して、選択した年度の行事を コンボ２にリストとして表示したいと思っています。 （例えば、コンボ１で"2001"を選ぶとコンボ２には"夏期キャンプ"、"修学旅行" のみが表示される） 現在やっているのは コンボ１とそれに連結しているＡＤＯデータコントロール１、 コンボ２とそれに連結しているＡＤＯデータコントロール２を用意して ＡＤＯデータコントロール１のRecordSourceには "SELECT　DISTINCT　年度　FROM　行事履歴" ＡＤＯデータコントロール２のRecordSourceには "SELECT　*　FROM　行事履歴" としておき、 ＡＤＯデータコントロール１のCHANGEイベントで ＡＤＯデータコントロール２のRecordSourceを "SELECT　*　FROM　行事履歴　WHERE　年度　=　'"　&　ＡＤＯデータコントロール１.TEXT　&　"'" としているのですがコンボ２のリストに "夏期キャンプ"、"修学旅行"、"社会見学"が３つとも表示されてしまい、 うまく連動してくれず行き詰っています。 （一応、コンボ２の.Refreshメソッドを行っているのですがうまくいかないようです。） もしもなにかお気づきの方が居られましたら、ご教授ください。 宜しくお願いいたします。

  • vbデータベースのコンボボックスの連動

    お世話様です。 VBでデータベースを作っています。 Accessのテーブルからコンボボックスで、レコードを 読み込んでるのですが、1つ目のコンボボックスで 選択した際に、他のコンボボックスも連動するようにするにはどうすればいいでしょうか？？ たとえば　 コンボボックスであるレコードを選択。 他のコンボボックスでは、先のコンボボックス で絞り込まれたレコードのみ選択できるようにする。 それに伴い他のフィールドも連動するということです。 どうぞよろしくお願いいたします。

  • ACCESSを用いたデータベースでのコンボボックスの連動

    おせわになっております。 VBでデータベースを作っているのですが、 コンボボックスでの検索での絞込みがうまくいきません。 (データベースはAccess2000) 例えば、コンボボックス１で選ばれたファールドにより 絞込みが行われ(例：県選択：千葉県） 、コンボボックス２で表示するレコードは コンボボックス１で選択されたレコードに該当するものしか表示しないようにするというとです。（例：市選択：市川市.船橋市.浦安市・・・と絞り込まれる） どこかおかしい個所はありますでしょうか？？ (個人的にはdbc1が選択された時点でdbc2のクエリーが行われなければならないと思いますが、やり方がわかりません。 よろしくお願い致します。 adoデータコントロールのプロパティ ado1(県名選択） RecordSource:SELECT 県名　FROM　地名 ado2(市名選択） RecordSource:SELECT 市名　FROM　地名　WHERE　県名＝'dbc1.Text' Private Sub dbc1_Click(Area As Integer)'県を選択するコンボボックス Dim criteria As String ' 検索条件 If dbc1.Text = "" Then Exit Sub End If criteria = "県名 = '" & dbc1.SelText & "'" rs.MoveFirst rs.Find criteria, , adSearchForward End Sub Private Sub dbc2_Click(Area As Integer)'市を選択するためのコンボボックス Dim criteria2 As String ' 検索条件 If dbc2.Text = "" Then Exit Sub End If criteria2 = "メーカ = '" & dbc2.SelText & "'" rs.MoveFirst rs.Find criteria2, , adSearchForward End Sub

  • コンボボックスやリストボックスの値設定

    コンボボックスやリストボックスに データベースの値で設定するときについて疑問があります。 現システムでは JSP内でsqlタグを使ってレコードセットを取得し <core:forEach>でぐるぐるまわして値をセットしています。 ↓こんな感じです。 ----------------------------------------------------------- <sql:setDataSource var="db" dataSource="jdbc/xxxxx" /> <sql:query var="rs" dataSource="${db}" > SELECT * FROM XXXXX </sql:query> <select name="xxxxx"> <c:forEach var="row" items="${rs.rows}" > <option value="${row['xxxxx']}" <c:if test="${row['xxxxx'] == requestScope.xxxxx}" > selected </c:if> >${fn:escapeXml(row['xxxxx'])}</option> </c:forEach> </select> ----------------------------------------------------------- これでもちゃんと動いてるのですがMVCを考えるとJSP内でDB接続って疑問に感じます。 Sevletでコンボボックスに必要な値を取得しておいてリクエスト属性にセットし JSP内では変数をぐるぐる回すことも考えたのですが、 コンボボックスやリストボックスの数が増えたり面倒に思います。 コンボボックスやリストボックスに値を設定する場合は どういう方法がよいのでしょうか？

    • ベストアンサー
    • Java
  • VBでコンボボックスとテキストボックスの連係

    VBでフォームにデータコンボボックスとテキストボックスを一つづつ作り、データコンボボックスで値を選択し、その値に対する値をテキストボックスに表示させたいんですがどうすればいいでしょうか？ データコンボボックスで選択する元になるテーブルは ID　｜　商品 １　｜　みかん ２　｜　ばなな ３　｜　りんご と、上記のような形のテーブルをもちいています。 例えばデータコンボボックスで「１」を選択した場合テキストボックスに「みかん」と表示させたいです。

  • VB2010のSQLを使ったレコードカウント方法

    VB2010にて他のシステムから出力したCSVファイルにアクセスして集計を行おうとしています。 重複を排除したカウントを得たいのですがうまくいきません。 (1)　SQL = "SELECT DISTINCT 物品ID FROM …" だと目的のレコードを抽出できるのですがCOUNTを使って (2)　SQL = "SELECT COUNT(DISTINCT 物品ID) AS 物品数 FROM …" とする『演算子がありません』とエラーが出て (3)　SQL = "SELECT DISTINCT COUNT(物品ID) AS 物品数 FROM …" とすると値はですのですが(1)のレコード数と違う数が出てきます？？？ 素人の手探りでプログラミングをしているので動きの違いが分かりません ご教授お願いします。

  • Accessのコンボボックスの設定について（値集合ソース）

    フォームのコンボボックスに表示させたい値を 値集合ソースにてSQLを直接書いています。 例を挙げますと、 テーブル：CstmTBL 項目：Cstm_ID，Cstm_Name,FLG 値集合ソース：SELECT Cstm_ID FROM CstmTBL Where FLG = '1' ここまでであればうまくいきます。 私がやりたいのは、 このFROM句のテーブルを上位（例えば上位のコンボボックスで指定したテーブル名）で設定し、 そこで設定されたテーブルを毎回そのSQLに埋め込んで抽出されるようにしたいのですが、うまくいきません。VBAを書かないとだめでしょうか？ 書くとすれば、書き方も教えていただけますか？ よろしくお願いいたします。

  • コンボボックスの値が消えてしまいます。

    コンボボックスの値が消えてしまいます。 フォーム(1)にコンボボックスA（値集合ソースはテーブル１）があります、この リスト外入力時で別フォーム(2)（レコード追加用）を開きテーブル１にレコードを追加、 フォーム(2)を閉じる時にコンボボックスAをリクエリかけてフォーム(1)に戻るとコンボボックスAが空になっているのでリストを開き選択し直さなければいけません！ フォーム(1)に戻った時コンボボックスAに入力した値を選択させておくにはどの様にすれば良いか アドバイスよろしくお願いいたします。 WIN　XP ACCESS 2003で作成しています。

  • vb.net grapecityのコンボボックス

    grapecityのコンボボックスを使用しています。 コンボボックスの背景色に画像を設定し、文字の前景色には黒を設定しています。 そこで、コンボボックスの値を変更した時、選択された値がセットされるのですが、 この時(active状態の時)、文字の色が白になってしまいます。 画面の別のところをクリックすると（値の確定？）黒色に変わります。 選択されたときに、文字色を黒色にするにはどうすればよいでしょうか？ 選択後、カーソルを移動させる方法でもかまいません。 最近vb.netをはじめたばかりなので、コーディング方法を教えていただければ うれしいです。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する