![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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?8acaa2e)
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でコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
-
4
データベースのデータをTextBoxに入力された値で検索しDataGridViewに表示する方法
Visual Basic(VBA)
-
5
”パラメータ値を TextBox から String に変換できません
SQL Server
-
6
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
-
7
コンボボックスの先頭行に空白行を入れるには?
Excel(エクセル)
-
8
DataGridViewの、選択されている行を取り出したい
Visual Basic(VBA)
-
9
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
-
10
VB2005 TextBoxに何も入力しない場合のエラー
Visual Basic(VBA)
-
11
フォームの再読み込み
Visual Basic(VBA)
-
12
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
13
DBから取得した値を配列へ代入する
Visual Basic(VBA)
-
14
Integer変数をカラにしたいのですが
Visual Basic(VBA)
-
15
VB.net 重複チェックがしたいです
Visual Basic(VBA)
-
16
データグリッドビューの一番最初の行に列を追加したい
Visual Basic(VBA)
-
17
DataGridViewの内容をDBに反映する時
Visual Basic(VBA)
-
18
SQLのエラー(~付近に不適切な構文があります)
SQL Server
-
19
VBでコンボボックスとテキストボックスの連係
Visual Basic(VBA)
-
20
テキストボックスの中身をリセット(クリア)したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前'dbOpenDynaset'は宣言され...
-
PHP+ACCESSのデータベース接続...
-
Excel複数シートをaccessへ一括...
-
部品表
-
クリスタルレポートの式フィー...
-
実行時エラー'9':インデックス...
-
C++ 文字列変数と16進数の比較
-
コンボボックスのインデックス...
-
DataGridViewで変更した値を反...
-
INT64対応のprintf系関数はあり...
-
ダイナセットタイプのレコード...
-
テーブルのデータ型の変更がで...
-
他のMDBのテーブルに追加したい
-
textbox.textやlabel.captionの...
-
「Nullの使い方が不正です」の...
-
C#でListとDictionaryの判別方法
-
ASC関数
-
Excel VBAでグループ毎に集計す...
-
構造体配列の特定のメンバーをF...
-
クリスタルレポートで困ってい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
データベースの接続ができない
-
複数SQL発行について
-
ExcelVBAでのAccessデータベー...
-
初心者ですデータベースの形式 ...
-
VB6.0でSQLServerへ・・・Recor...
-
VB6.0とaccessのDBを接続する
-
StrutsでDataSourceの切り替え
-
名前'dbOpenDynaset'は宣言され...
-
VBSでADOを使ってaccessのテー...
-
vb.netでデータベース(Access)...
-
関数のパラメーターと戻り値に...
-
ASP.NET(VB.NET)でADO.NETを使...
-
VB2005でmdbに接続するには?
-
MDBをADO接続でINSERT・UPDATE...
-
VB6.0でアクセス2000...
-
OracleDataReaderについて…
-
VB 2010 Expressでのデータベー...
-
PHP+ACCESSのデータベース接続...
おすすめ情報