2008/09/04(Thu) 00:29:56 編集(投稿者)
こんなんじゃだめなんですかね?
そもそもSQLを直に実行した場合意図した値はとれてますか?
提示されているソースをちょいちょいと切り張りしただけなので
変な部分があるかもしれません。
Public Sub メソッド名()
Dim connectionstring As String = String.Format(_
"Provider=Microsoft.ACE.OLEDB.12.0;
Data Source=○○.accdb;
Persist Security Info=False;")
Dim SQL1 As String = "SELECT 名称1 FROM テーブルA "
Dim SQL2 As String = "SELECT 名称2 FROM テーブルB "
Dim conn As New OleDb.OleDbConnection(connectionstring)
Dim queryA As New OleDb.OleDbCommand(SQL1, conn)
Dim queryB As New OleDb.OleDbCommand(SQL2, conn)
conn.Open()
Dim readerA As OleDb.OleDbDataReader = queryA.ExecuteReader()
While (readerA.Read())
Me.ComboBox1.Items.Add(readerA.Item("名称1"))
End While
Dim readerB As OleDb.OleDbDataReader = queryB.ExecuteReader()
While (readerB.Read())
Me.ComboBox2.Items.Add(readerA.Item("名称2"))
End While
reader.Close()
conn.Close()
End Sub