ベストアンサー

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

2005/12/24 17:00

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

sineminna
お礼率73% (217/296)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

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

ベストアンサー

fortranxp
ベストアンサー率26% (181/684)

2005/12/24 18:25 回答No.1

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

質問者

お礼 2005/12/24 20:04

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

関連する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内では変数をぐるぐる回すことも考えたのですが、コンボボックスやリストボックスの数が増えたり面倒に思います。コンボボックスやリストボックスに値を設定する場合はどういう方法がよいのでしょうか？
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をはじめたばかりなので、コーディング方法を教えていただければうれしいです。よろしくお願いします。
VB6.0 リストボックスやコンボボックスについて

環境VB6.0、WinXPです。現在VB6.0について、独学で学んでいます。インターネットにて下記のサイトを見つけました。 http://www4.plala.or.jp/tamo/vb/vb99.html このサイトの課題5と6でつまづいています。 5に関しては、文字を分割して表示するプログラムなのですが、毎回違う値が入ってくることを想定すると、どのようにして一文字ずつリストボックスに表示すれば良いのか分かりません。 6に関しては、コンボボックスの全値を取得できるような方法があるのでしょうか？初心者なので、コードなど参考になるものを教えていただければ幸いです。どなたかご教授下さい。お願いいたします。
コンボボックスからコンボへ

私はホームページを黙過、勉強中のものです。いま、ホームページ上に上下の所にコンボボックスを設置し、コンボボックスから選択肢を選ぶと下のコンボボックスが上のコンボボックスの選択肢によって選択する値を変える仕組みを作っています。ほぼ完成しました。ただ一つだけ問題解決できません。それは選択をしてもらい画面が切り替わった時に入力ミスをしてしまった人は前の画面に戻ります。その時に上と下のコンボボックスのうち下のコンボボックスに入れてもらった値が消えてしまう事です。更に下のコンボボックスを選択しようとすると値が全て消えてしまっているので選択できません。もう一度上のコンボに値を入れ直すとまた下のコンボも値をかえすのですが、それでは入力者にだいぶ手間をかけてしまう事になります。どうか教えて頂けないでしょうか。この仕組みはすべてジャバで作りました。お願します。
VB6.0で　データベースの値をコンボボックスに取り込む方法

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

コンボボックスの値を判定して、処理を分岐させる方法がわかりません。よろしくお願いします。 VisualBasic .NET2003を使用しています。 Select Case コンボボックス case 0 処理１ case 1 　　　　　処理２ case 2 　　　　　処理３ End select
Microsoft Access2003:コンボボックス

Microsoft Access2003:コンボボックス Microsoft Access2003:コンボボックスで表示される値をテーブルからの値の他に、1件目を"全て"と表示させたいのですがうまくいきません。コンボボックスの値集合ソースに select kaisya, cd from table1 order by cd UNION SELECT "全て",0 FROM table1; としているのですが、この「全て」が最初に表示されません。 cd は実際のテーブルは1001番からです。
コンボボックスの値を連動させたい

コンボボックスの値が変わらずに悩んでいます。 .listindexではプロパティしか確かめられないことがわかりました。 .Textだと直接記述しないといけません。 Select Case ◎◎.ListIndex Case 0 To 5 ××.ボックス.****** Case 6 To 7 ××.ボックス.****** End Select *****のところを別のに変えればなんとかなりそうなんですが、どうすればよいのでしょうか？直接値を代入しない方法で簡単な方法があれば教えてください。
Excelのコンボボックス選択方法

VB初心者です。宜しく御願いします。 ExcelのコンボボックスをVBから選択したいのですが、上手くいきません。 AAAというコンボボックスで中身が「111」「222」「333」の場合、 objXlsSeet.Range("AAA").Select = "222" としたのですが、実行時エラー'1004'　アプリケーション定義またはオブジェクト定義のエラーです。となります。ご教授御願いします。宜しくお願い致します。
2のコンボボックスの関連

環境：Access2003 VB6.0 2つのコンボボックス関連させたいが、やり方がよくわからないです。たとえばSCHOOLというテーブルに１Yearと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 詳しい方、ご教授ください。
テキストボックスの値をコンボボックスの選択値によって動的に変化させたい（VB.NET）

こんにちは。 VB.NET2003　を使用し、小さなシステムを開発中です。例として、コンボボックスにて「社員ID」を選択すると、その隣のテキストボックスには「鈴木一郎」というように氏名を表示させることを考えております。そこで、一度表示された後でも、コンボボックスの値を変化させるとそれに応じてテキストボックスの値も変更させたいのですが、どのようにしたらいいのでしょうか。コンボボックスへの値を入れ、テキストボックスへの表示させるところまではできたのですが、一度表示された後は変化しなくて・・・。ちなみに、それらの値の取得はDataSetを使用しています。どなたか方法をご存知の方、教えていただけませんでしょうか。
VB.NET2003のDataGridでコンボボックス

こんにちは。最近VB.NET（2003）を始めたばかりの初心者です。 DataGridにコンボボックスを作成する方法を探してまして、 http://dobon.net/vb/dotnet/datagrid/datagridcombobox.html に書いてあるようにDataGridTextBoxColumnクラスからの派生クラスを作成して呼び出してみました。そうしたところ、コンボボックスが表示され、データのセットもきちんとできました。しかし、そのコンボボックスで選択している値を取得する方法がわからなく困ってます。たとえば Dim comboSorce As New DataTable("ComboBox") comboSorce.Columns.Add("DisplayMember", GetType(String)) comboSorce.Columns.Add("ValueMember", GetType(Integer)) comboSorce.Rows.Add(New Object() {"OK", 0}) comboSorce.Rows.Add(New Object() {"NG", 1}) というデータをコンボボックスにセットした場合 OK,NGという表示上の値は CStr(DataGrid1(row,col)) で取得できますが、実際の値を取得する方法がわかりません。ご存知の方いらっしゃいましたら、ご教授ください。それと、行毎に違う値（リストデータ）のコンボボックスを作成することはできますでしょうか？以上です。よろしくお願いします。

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

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

お礼 2005/12/24 20:04

関連するQ&A

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

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

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

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

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

VBでコンボボックスとテキストボックスの連係

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

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

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

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

VB6.0 リストボックスやコンボボックスについて

コンボボックスからコンボへ

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

コンボボックスの値判定

Microsoft Access2003:コンボボックス

コンボボックスの値を連動させたい

Excelのコンボボックス選択方法

2のコンボボックスの関連

テキストボックスの値をコンボボックスの選択値によって動的に変化させたい（VB.NET）

VB.NET2003のDataGridでコンボボックス

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

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

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

お礼 2005/12/24 20:04

関連するQ&A

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

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

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

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

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

VBでコンボボックスとテキストボックスの連係

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

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

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

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

VB6.0 リストボックスやコンボボックスについて

コンボボックスからコンボへ

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

コンボボックスの値判定

Microsoft Access2003:コンボボックス

コンボボックスの値を連動させたい

Excelのコンボボックス選択方法

2のコンボボックスの関連

テキストボックスの値をコンボボックスの選択値によって動的に変化させたい（VB.NET）

VB.NET2003のDataGridでコンボボックス

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

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

カテゴリ
一覧

専門家に質問してみよう
専門家登録