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というのも試してみます。
ありがとうございました。
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
コンボボックスの先頭行に空白行を入れるには?
Excel(エクセル)
-
-
4
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
5
DataGridViewの内容をDBに反映する時
Visual Basic(VBA)
-
6
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
-
7
データベースのデータをTextBoxに入力された値で検索しDataGridViewに表示する方法
Visual Basic(VBA)
-
8
DBから取得した値を配列へ代入する
Visual Basic(VBA)
-
9
”パラメータ値を TextBox から String に変換できません
SQL Server
-
10
DataGrdViewに関連付けたデータの更新
C言語・C++・C#
-
11
VB.net 重複チェックがしたいです
Visual Basic(VBA)
-
12
DataTableに入っているデータを全てinsertしたい!(C#)
Microsoft ASP
-
13
VB.net 任意の例外を発生させるには・・・
Visual Basic(VBA)
-
14
DataGridViewに空白がある場合はエラーにしたい
Visual Basic(VBA)
-
15
フォームの再読み込み
Visual Basic(VBA)
-
16
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
-
17
CloseとDisposeの違い
Visual Basic(VBA)
-
18
コンボボックスの複数列表示に関して
Visual Basic(VBA)
-
19
SQLのエラー(~付近に不適切な構文があります)
SQL Server
-
20
Hideについて(.NET)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PHP+ACCESSのデータベース接続...
-
SQL Serverへの接続について
-
【ADO】「Execute」を使うと...
-
ファイル名の一部削除について
-
WORD VBA プログラム修正をお願...
-
VBA 変数名に変数を使用したい。
-
クリスタルレポートで困ってい...
-
AccessVBAで他テーブルのデータ...
-
VBからID3タグをいじる方法
-
VB.NETからAccess内のデータベ...
-
HTMLのテーブルの行数が多くな...
-
dimを使わずにredimを使う場合
-
DAOの作成単位について
-
バイト型のデータをLong型に変換
-
VBAでMODE関数をつくる
-
16進コード文字列を文字列に変換
-
10進数を2進数
-
DataTableのselectメソッド
-
エクセルで13,410円を数値の134...
-
VBA 桁数が混在するソート
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
初心者ですデータベースの形式 ...
-
VB6.0でSQLServerへ・・・Recor...
-
複数SQL発行について
-
データベースの接続ができない
-
ExcelVBAでのAccessデータベー...
-
VBSでADOを使ってaccessのテー...
-
vb.netでデータベース(Access)...
-
ListviewにDB内容を表示し方に...
-
OracleDataReaderについて…
-
名前'dbOpenDynaset'は宣言され...
-
VB6でデータベースを変えるとテ...
-
PHP+ACCESSのデータベース接続...
-
VB6.0とaccessのDBを接続する
-
VB6.0でアクセス2000...
-
VB6からAccess2000のテーブル使用
-
エクセルVBAでアクセスのテーブ...
-
ASP.NET(VB.NET)でADO.NETを使...
-
変数の宣言
おすすめ情報