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

VB2005です。

表題の通りですがやり方がよくわかりません。
データベースに接続し、
SQLで重複しない値を取り出すところまではできています。

SQL=SELECT DISTINCT FieldName FROM TableName

VB6の時はこんなソースでした
Do Until rs.EOF
　　　Combo1.AddItem.Fields("FieldName")
　　　rs.MoveNext
Loop

VB2005ではどう書くのでしょう？
よろしくご教授ください。

No.2 ベストアンサー 回答者： AlexSuns 回答日時： 2006/03/13 13:58

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からの乗り換えです）
また改めてお礼させていただきます。

補足日時：2006/03/13 15:33

この回答へのお礼

以下のソースでいけました。ほとんど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というのも試してみます。
ありがとうございました。

お礼日時：2006/03/14 08:58

No.3 回答者： M-SOFT#2 回答日時： 2006/03/13 16:10

こんにちは。

値を取り出すところまでできているということなので
SQLに値が格納されているのなら

ComboBox1.Items.AddRange(SQL)　というような感じでできないでしょうか。

実際に試していないのでこれから試してみます。

VB2005はまだまだヘルプが頼りです。私もかなり苦戦しています。ExcelVBAの経験しかないので。

この回答へのお礼

やはりヘルプが頼りですか。
(ヘルプ嫌いなんですが)
ありがとうございました。

お礼日時：2006/03/14 08:59

No.1 回答者： fortranxp 回答日時： 2006/03/13 13:11

VB2003です。

Private Sub Button１_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button１.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

この回答への補足

早速のご回答ありがとうございます。
このソースでいけそうな気がします。
また改めてお礼いたします。

補足日時：2006/03/13 13:38

この回答へのお礼

参考になりました。
どうもありがとうございます。

お礼日時：2006/03/14 09:00