• ベストアンサー

コンボボックス

VB6.0で開発しています。 ACCESSのm_名前というテーブルから取ってきています。 rst.Source = "m_名前" コンボボックスでなのですが2列表示したいのです。 今は Combo1.AddItem rs.Fields("番号") で 1列だけ表示しているのですが これを 番号　　名前 1　　　　あいう 2　　　　かきく 3　　　　さしす としたいのですが どうすればいいでしょうか。

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

  • ベストアンサー
  • unamana19
  • ベストアンサー率62% (56/89)
回答No.1

VB6でACCESSのような、複数列のコンボボックスを実現するのは難しいです。 Combo1.AddItem rs.Fields("番号") & vbTab & rs.Fields("名前") では、ダメでしょうか？

aki08102001
質問者

お礼

出来ました。 ありがとうございます。

  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ではどう書くのでしょう？ よろしくご教授ください。

  • コンボボックスに追加入力したデータを次回プログラムを動かすときに使えるようにしたい

    ＶＢ６を独学でやっていますので、どなたか教えてください。 コンボボックスに追加入力したデータを、次回プログラムを動かすときに使えるようにしたいのですが、どうしたらいいのでしょうか？ combo1.addItem combo1.text だけでは、次回立ち上げると消えてしまっています。

  • Excel　コンボボックスに付いて

    VBA初心者です。 コンボボックスに付いて質問です。コンボボックス１・２があったとして、選択する内容がまったく同じな場合。 （コンボボックス１＝名前１　２＝名前２として） With 名前1 ・additem"鈴木" ・additem"田中" 　　　　↓ End with With 名前2 ・additem"鈴木" ・additem"田中" 　　　　↓ End with といった用にコンボボックスごとに入力せず、一つにまとめて入力する方法を教えて頂けないでしょうか、、、 また例えば『電話1』『電話2』というコンボボックスが『名前１・２』のボックスの次にあった場合、 （コンボボックス3＝電話１　4＝電話２として） With 電話1 ・additem"０９０－１・・・・・" ・additem"０６６－２・・・・・" 　　・additem"０９０－３・・・・・" ・additem"０６６－４・・・・・" 　　　　↓ End with With 電話2 ・additem"０９０－１・・・・・" ・additem"０６６－２・・・・・" 　　・additem"０９０－３・・・・・" ・additem"０６６－４・・・・・" 　　　　↓ End with 『名前１』で『鈴木』と選んだ場合に『電話1』で何らかの形で予め登録し『鈴木』⇒０９０－１・・・と０９０－２・・・と 電話１のボックスで選択出来るようにしたいのです。 『電話2』も同じで『名前2』で選択した名前により電話2のボックスに表示する電話番号を表示させたいのです。 今の場合だと『名前』は追加するたびに他の名前ボックスも追加しないといけない作業が出てきます。 電話に関しては名前より選択されたものに対して選択枠を減らして表示するようにし、選択作業のを軽減できればと考えています。 尚電話も一つにまとめて入力したいです。電話1・2は同じ内容です。 例はあくまで例ですので実際の内容とことなりますが、やろうとしている内容は同じです。 とても初心者な質問で申し訳御座いませんがご教授お願い致します。 例などで教えて頂ければ幸いです。

  • VB6.0で　データベースの値をコンボボックスに取り込む方法

    VB6.0で　データベースの値をコンボボックスに取り込む方法ですが、 普通にCombobox.additem = rs.fields(列名).value だったかな？ これで、セットした場合 レコードが５件あったら最初の１件しか取得できませんよね？whileでまわして取得すればいいのでしょうか？←どう記述すればいいのか・・。 また、他にいい方法ないでしょうか？一気にセットできる方法など。 よろしくお願いします。

  • コンボボックスの値取得について

    テーブルはAccess2003で作成 VBは6を使用しています。 Access2003で作成したテーブル(t_KEN)の県名をコンボボックス(cmbKen)に表示させ、選択したひとつの県名とその県コードを テキストボックス(txtKENMEI.text、txtKenCode.text)に格納したいと思います。 以下の様にコンボボックスに県名を表示する所までは できたのですが、そこから選択した県名と県コードをそれぞれの テキストボックスに格納する所がわかりません。 初歩的過ぎるのかもしれませんが、初心者であり何卒ご教授頂けます様 お願いいたします。 テーブル(t_KEN) KENCODE KENMEI 1 北海道 2 青森県 3 岩手県 4 秋田県 ・ 　・ ・ 　・ ・ 　・ Private Sub cmbKen_GotFocus() Dim DB As Database Dim RS As Recordset Set DB = OpenDatabase("c:\TEST\jdb.mdb") Set RS = DB.OpenRecordset("t_KEN") Do Until RS.EOF Me.cmbKen.AddItem RS.Fields("KENMEI") RS.MoveNext Loop 'ここ以降の記述が困ってます。 txtKENMEI.Text=・・・ txtKenCode.Text=・・・ RS.Close Set RS = Nothing DB.Close Set DB = Nothing End Sub

  • エクセルVBA(マクロ-コンボボックスについて)

    マクロ初心者です。 教えてください。 コンボボックスで、[▼]をクリックすると、 [りんご]、[いちご]、[みかん]のリストが表示されます。 しかし、もう一度、[▼]をクリックするとリストの数が増えています。 [りんご]、[いちご]、[みかん]、[りんご]、[いちご]、[みかん]、[りんご]、[いちご]、[みかん] 全くの初心者なので、どうすればいいかわかりません。 コンボボックスで、[▼]をクリックすると、 [りんご]、[いちご]、[みかん]のリストのみが常に表示されるようにしたいです。 下記がコードです。 ---------------------------------------- Private Sub 種類_Combo_DropButtonClick() '** データセット 種類_Combo.AddItem "りんご" 種類_Combo.AddItem "いちご" 種類_Combo.AddItem "みかん" End Sub ---------------------------------------- よろしくお願いします。

  • コントロールボックスの表示について

    VB6でプログラミングをしています。 コンボボックスにDBから取得したデータをセットしているのですが、プルダウンでデータを表示したところ、インデックスがずれてしまいます。 '△=半角スペース ---ソース--- combo.AddItem Left$(Trim(mRs.Fields"CODE").Value) "△△△△△△△△",8) & "△" & Trim(mRs.Fields("ITEM").Value ---プルダウン表示(実行結果)--- あいう△△△テスト1 B123△△△△△テスト2 ※ITEMのインデックスがずれてしまう。 ちなみにコンボボックスのフォントはMSゴシックを指定しています。 どなたかプルダウン内の表示を統一する方法について教えて頂けないでしょうか？

  • コンボボックスについて

    お世話になっております Visual Strudio 2010、.NetFramwork 3.5 で開発をしています VisualStudioの中のVBで、Windowsフォームの画面の開発をしています コンボボックスで質問なのですが、 コンボボックスで、「text」と、「value」を追加しようと思っています DataTable、ArrayList以外での「text」「value」の両方追加は可能でしょうか VB2003の、Webフォームで開発していたときは Combobox.additem(New ListItem("Key", "Disp") ができたのですが・・・ これと似たような機能は2010ではないのでしょうか もうひとつ、ArrayListで追加する場合、ArryListの順番がそのままValueの値になってしまいますが、ランダムな並びの数字のvalueでも、ArrayListでComboboxに追加できるでしょうか・・・

  • VB6 コントロールボックス内のインデントについて

    VB6でプログラミングをしています。 コンボボックスにDBから取得したデータをセットしているのですが、プルダウンでデータを表示したところ、インデックスがずれてしまいます。 '△=半角スペース ---ソース--- combo.AddItem Left$(Trim(mRs.Fields"CODE").Value) "△△△",12) & "△" & Trim(mRs.Fields("ITEM").Value ---プルダウン表示(実行結果)--- AAA△△△△あいうえお B123△△△かきくけこ ※ITEMのインデックスがずれてしまう。 ちなみにコンボボックスのフォントはMSゴシックを指定しています。 どなたかプルダウン内の表示を統一する方法について教えて頂けないでしょうか？

  • コンボボックスを選択したい

    VB2008で開発しています。 Me.cmb1.DataSource = tableData1 Me.cmb1.DisplayMember = "名前" Me.cmb1.ValueMember = "ID" としてコンボボックスにテーブルデータを セットしました。 IDが"2"のデータを選択状態にしたいのですが どうしたらよいでしょうか。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する