![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
DataReaderを使用したサンプルです
※DBMSが記述されていないので、接続文字列はアクセスの場合です
※テキスト書きなので試験していません
※DataSetを使用する方法もありますが、コンボボックスに表示する程度ならDataReaderで大丈夫でしょう
※VB2005ならば、TableAdapterという便利なクラスがあるそうです
※VisualStudio2005 まださわってません orz
Dim dbFilePath As String = "C:\testdb.mdb"
Dim connectionString As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0}", dbFilePath)
Dim sql As String = "SELECT DISTINCT FieldName FROM TableName"
Dim conn As New OleDbConnection(connectionString)
Dim query As New OleDbCommand(sql, conn)
Try
conn.Open()
Dim reader As OleDbDataReader = query.ExecuteReader()
While (reader.Read())
Me.ComboBox1.Items.Add(reader.Item("FieldName"))
End While
reader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
conn.Close()
End Try
この回答への補足
ご親切にありがとうございます。
早速試してみます。
VS2005は書籍が全くないので悪戦苦闘しています。(VB6.0からの乗り換えです)
また改めてお礼させていただきます。
以下のソースでいけました。ほとんどAlexSunsさんのと一緒です。
Dim connectionstring As String = String.Format("provider=microsoft.jet.oledb.4.0;data source=" & My.Application.Info.DirectoryPath & "\test.mdb")
Dim SQL As String = "SELECT DISTINCT aa FROM test"
Dim conn As New OleDb.OleDbConnection(connectionstring)
Dim query As New OleDb.OleDbCommand(sql, conn)
conn.Open()
Dim reader As OleDb.OleDbDataReader = query.ExecuteReader()
While (reader.Read())
Me.ComboBox1.Items.Add(reader.Item("aa"))
End While
reader.Close()
conn.Close()
End Sub
まじで勉強になりました。本当に感謝しています。
TableAdapterというのも試してみます。
ありがとうございました。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.3
- 回答日時:
こんにちは。
値を取り出すところまでできているということなので
SQLに値が格納されているのなら
ComboBox1.Items.AddRange(SQL) というような感じでできないでしょうか。
実際に試していないのでこれから試してみます。
VB2005はまだまだヘルプが頼りです。私もかなり苦戦しています。ExcelVBAの経験しかないので。
No.1
- 回答日時:
VB2003です。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
Cn = New ADODB.Connection
rs = New ADODB.Recordset
Cn.ConnectionString = "DSN=MySQL;UID=Name;PWD=pass;"
Cn.Open()
rs.Open("select field from test", Cn)
Do Until rs.EOF
ComboBox1.Items.Add(rs.Fields("field").Value)
rs.MoveNext()
Loop
rs.Close()
Cn.Close()
MsgBox("終了しました。")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- MySQL 書籍の内容はまともでしょうか? 1 2023/01/22 03:07
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Oracle sqlで質問です。 aテーブルとbテーブルがあり、下記のsqlで取得したidとnameに一致しないレ 1 2022/04/20 20:34
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
- PHP PHP MySql ページング 2 2022/09/20 06:38
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
-
4
データベースのデータをTextBoxに入力された値で検索しDataGridViewに表示する方法
Visual Basic(VBA)
-
5
”パラメータ値を TextBox から String に変換できません
SQL Server
-
6
コンボボックスの先頭行に空白行を入れるには?
Excel(エクセル)
-
7
DataGridViewの内容をDBに反映する時
Visual Basic(VBA)
-
8
VB2005 TextBoxに何も入力しない場合のエラー
Visual Basic(VBA)
-
9
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
-
10
VBでコンボボックスとテキストボックスの連係
Visual Basic(VBA)
-
11
VB.net 任意の例外を発生させるには・・・
Visual Basic(VBA)
-
12
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
-
13
DBから取得した値を配列へ代入する
Visual Basic(VBA)
-
14
フォームの再読み込み
Visual Basic(VBA)
-
15
コンボボックスの複数列表示に関して
Visual Basic(VBA)
-
16
VB.net 重複チェックがしたいです
Visual Basic(VBA)
-
17
データグリッドビューの一番最初の行に列を追加したい
Visual Basic(VBA)
-
18
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
19
別フォームから戻ったときのイベント
Visual Basic(VBA)
-
20
Integer変数をカラにしたいのですが
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
複数SQL発行について
-
VB6.0とaccessのDBを接続する
-
ListviewにDB内容を表示し方に...
-
VBA 変数名に変数を使用したい。
-
Accessで別mdbのテーブルをコピー
-
Accessのフィールド名に半角括...
-
「Nullの使い方が不正です」の...
-
クリスタルレポートで文字列の...
-
EXCELのVBAでLenB関数について
-
C#でbyte配列から画像を表示さ...
-
INT64対応のprintf系関数はあり...
-
DataTableに特定のフィールドが...
-
VBAコンボボックスの内容が反映...
-
Accessで宛名ラベルに同一宛先...
-
COBOL数値転記の仕様
-
『列名 '担当者CD' があいま...
-
ACCESS2010 実行時エラー 2766
-
コンボボックスのインデックス...
-
エクセルのテーブルを解除する...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
複数SQL発行について
-
初心者ですデータベースの形式 ...
-
VB6.0とaccessのDBを接続する
-
VB6.0でSQLServerへ・・・Recor...
-
データベースの接続ができない
-
PHP+ACCESSのデータベース接続...
-
名前'dbOpenDynaset'は宣言され...
-
ListviewにDB内容を表示し方に...
-
vb.netでデータベース(Access)...
-
OracleDataReaderについて…
-
VBSでADOを使ってaccessのテー...
-
VBでAccessにSQL文を実行して値...
-
VBでmdbファイルの抽出
-
PHPでのsqlite_close();について。
-
Accessを編集するとASPで接続で...
-
レンタルサーバでのDB接続の件
-
[ASP]エラー プロバイダが指...
-
VB2005でmdbに接続するには?
おすすめ情報