Загрузка Combobox из DataGridView или Access через запрос / WinForms, .Net Framework

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Загрузка Combobox из DataGridView или Access через запрос

3 сообщений из 3, страница 1 из 1

Загрузка Combobox из DataGridView или Access через запрос

#38191533

avicena

Гость

как можно загрузить строки в combobox из DataGridView или Access через запрос.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

 Dim conn As OleDbConnection = New OleDbConnection(strConn)
        conn.Open()
        Dim strSQLDepat As String = "SELECT КодОтветы,  Группа, ФИО,  FROM Ответы  WHERE (Группа =  " & Label13.Text & "  ) ORDER BY ФИО"
        Dim CommDepat As OleDbCommand = New OleDbCommand(strSQLDepat, conn)
        Dim DRDep As OleDbDataReader = CommDepat.ExecuteReader
        Dim resultDep As String
        ComboBox1.Items.Clear()
        While DRDep.Read()
            resultDep = DRDep.GetString(0)
            ComboBox1.Items.Add(resultDep)
        End While
        DRDep.Close()

Так пишет ошибку.
И можно ли из датагрида вытащить столбец в combobox?

...

Рейтинг:

0 / 0

20.03.2013, 15:15

| Ответить | Цитировать | Написать

Загрузка Combobox из DataGridView или Access через запрос

#38192407

WitC

Гость

Как вариант, можно так

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.DataBindings.Add("Text", ComboBox1, "Text")
        TextBox2.DataBindings.Add("Text", ComboBox1, "SelectedValue")

        Dim dtData As DataTable = funcComboItems()

        ComboBox1.DataSource = dtData
        ComboBox1.DisplayMember = "Показываем"
        ComboBox1.ValueMember = "Возращаем"
    End Sub

    Private Function funcComboItems() As DataTable
        funcComboItems = Nothing
        Try
            Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\;Extended Properties=""text;HDR=Yes;FMT=TabDelimited"";"
            Dim strQuery As String = "select * from [ItemsSource.txt]"
            Dim dataDA As New Data.OleDb.OleDbDataAdapter(strQuery, strConn)
            funcComboItems = New DataTable
            dataDA.Fill(funcComboItems)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        Return funcComboItems
    End Function

пример ниже...

...

Рейтинг:

0 / 0

21.03.2013, 01:18

| Ответить | Цитировать | Написать

Загрузка Combobox из DataGridView или Access через запрос

#38193980

Alex Kuznetsov

Участник

Откуда: Ростов-на-Дону

Сообщения: 1 795

Рейтинг: 0 / 0

avicenaкак можно загрузить строки в combobox из DataGridView или Access через запрос.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

 Dim conn As OleDbConnection = New OleDbConnection(strConn)
        conn.Open()
        Dim strSQLDepat As String = "SELECT КодОтветы,  Группа, ФИО,  FROM Ответы  WHERE (Группа =  " & Label13.Text & "  ) ORDER BY ФИО"
        Dim CommDepat As OleDbCommand = New OleDbCommand(strSQLDepat, conn)
        Dim DRDep As OleDbDataReader = CommDepat.ExecuteReader
        Dim resultDep As String
        ComboBox1.Items.Clear()
        While DRDep.Read()
            resultDep = DRDep.GetString(0)
            ComboBox1.Items.Add(resultDep)
        End While
        DRDep.Close()

Так пишет ошибку.
И можно ли из датагрида вытащить столбец в combobox?Ну, ошибку, видимо, хрустальный шар должен показать...
Хотя и так видно, где у Вас в запросе ошибка.
Видимо Вы передаёте в выражение WHERE строковое значение и при этом не ограничиваете его кавычками...
Может в этом проблема?

Кстати, DataGridView данных не содержит, а лишь отображает.
Данные содержатся в DataTable, который соединён с DataGridView.

...

Рейтинг:

0 / 0

21.03.2013, 21:14

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Загрузка Combobox из DataGridView или Access через запрос

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=20&gotonew=1&tid=1404978]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	47ms
get topic data:	11ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	39ms
get tp. blocked users:	2ms
others:	329ms

total:	472ms