Добрый день! Я из базы Oracle с помощью запроса с параметрами вытаскиваю некоторые данные...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conn.ConnectionString = "Data Source=ttmbdb.ttmobile.tj;User Id=irina;Password=ameli"
Dim app As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
wb = app.Workbooks.Add
ws = wb.Worksheets(1)
conn.Open()
Dim comm As New OracleCommand("select t.name, c.number from calls c, bs_name b " & _
"where c.bs_bs_id=b.bs_id " & _
"and c.date>=:START_DATE " & _
"and c.date<=to_date(:END_DATE)+1 " & _
"and bs_id=50", conn)

comm.CommandType = CommandType.Text

Dim ps, pe, prp As New OracleClient.OracleParameter
ps.ParameterName = ":START_DATE"
ps.Direction = ParameterDirection.Input
ps.OracleType = OracleType.DateTime
ps.Value = DTP1.Text
commDASIM.Parameters.Add(ps)

pe.ParameterName = ":END_DATE"
pe.Direction = ParameterDirection.Input
pe.OracleType = OracleType.DateTime
pe.Value = DTP2.Text
commDASIM.Parameters.Add(pe)

Dim dr As OracleDataReader
dr = commDASIM.ExecuteReader
Dim i As Integer
i = 4
While dr.Read
ws.Cells(i, 2) = dr("name")
ws.Cells(i, 3) = dr("number")
i = i + 1
End While

dr.Close()
conn.Close()
app.Visible = True
End Sub
На форме у меня 2 DataTimePicker-а, где я выбираю дату. Есть еще один ComboBox, который я хочу заполнить данными из таблицы bs_name (список базовых станций). В общем при работе программы пользователь выбирает период, а из списка выбирает название базовой станции, и при нажатии на кнопку формирует отчет по этой базовой станции. Помогите пожалуйста как в коде заполнить ComboBox данными из таблицы?

Я попробовала сделать так...

Dim comm2 As New OracleCommand("select * from bs_name b", conn)
Dim da As New OracleDataAdapter(comm2)
Dim ds As New DataSet
da.Fill(ds)

CBox1.DataSource = ds
CBox1.DisplayMember = "name"
CBox1.ValueMember = "bs_id"
но ComboBox не заполнился. В чем может быть дело?

Я попробовала зделать так, но все равно не получается, не знаю что уже придумать, помогите пожалуйста...

Спасибо, все получилось


Но вот когда я создаю параметр...


и потом вставляю его в запрос...


при запуске выдает ошибку
Failed to convert parameter value from a String to a Decimal.
Не подскажите, что нужно выбрать вместо prp.Value = CBox1. ValueMember ?

Да уверена, что именно к этому параметру. До того, как я его добавила, все работало отлично, и вот именно этот параметр ни как не хочет. И сам запрос тоже работает.

Большое спасибо все получилось