Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
vova_king
24 / 24 / 9
Регистрация: 29.07.2010
Сообщений: 261
#1

Вывод данных в ListBox из БД SQLite

01.03.2016, 17:51. Просмотров 1041. Ответов 5

Доброе время суток, не могу понять какой тип надо указать для listbox, что бы полученные данные через sqlite вывелись в listbox.
в Console.WriteLine() выводится 2 значения, а вот что бы в listbox вывести не могу понять. Помогите пожалуйста

В таблице dat хранится дата в формате 01.03.2016 как тип text
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 sqConnection.Open()
        Dim command As SQLiteCommand = New SQLiteCommand("select DISTINCT  dat from Se;", sqConnection)
        Dim reader As SQLiteDataReader = command.executereader()
        If reader.HasRows Then
            Do While reader.Read()
                'ListBox1.DisplayMember = reader.StepCount
                ListBox1.datasource (reader.GetString(0)) ' выводит ошибку Для составного DataBinding источником данных может служить IList или IListSource.
                Console.WriteLine(reader.GetString(0)) ' выводит столько значений сколько есть в базе
                ComboBox1.Text = reader.GetString(0) + vbCrLf ' выводит только последнее значение
            Loop
        Else : Console.WriteLine("noy")
        End If
        reader.Close()
        sqConnection.Close()
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2016, 17:51
Ответы с готовыми решениями:

Вывод столбца таблицы базы данных в listbox
Необходимо вывести в listbox столбец name_vyz таблицы klas делаю так, но не...

Хранение распарсенных данных в БД SQLite
Здравствуйте, уважаемые коллеги! Крайне нужна ваша помощь! Работаю над...

Как работать с базами данных SQLite
Всем привет Подозреваю, что тема избитая, но , к сожалению, для себя решения...

Сортировка строк в таблице базы данных SQLite и DataGridView
Здравствуйте! Помогите с проблемой. Выкладываю код простой программки с...

Вывод id друзей пользователя vk.com в listbox
Добрый день, срочно нужна ваша помощь, необходимо Вывести список id в...

5
GSXL
160 / 168 / 26
Регистрация: 26.11.2011
Сообщений: 382
Записей в блоге: 1
01.03.2016, 18:07 #2
Держи вырезки из моего кода. Пишу с планшета так что разбирайся
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
ListView1.Items.Clear()
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
On Error Resume Next
        Dim SQL_COM As String
        Dim con As New SQLiteConnection("Data Source=" & DB_ADRES)
 
        SQL_COM = "SELECT * FROM 'forms';"
 
        Dim sqlCom As New SQLiteCommand(SQL_COM, con)
        con.Open()
        Dim SQLreader As SQLiteDataReader = sqlCom.ExecuteReader()
 
        If Err.Number <> 0 Then
            MsgBox("Ошибка " & Err.Number & ". " & Err.Description, MsgBoxStyle.Critical, "")
        Else
 
            While SQLreader.Read()
                ComboBox1.Items.Add(SQLreader(1))
                If SQLreader(5) = "True" Then
                    ComboBox1.Text = SQLreader(1)
                    Cennik_form = SQLreader(4)
                    Cennik_vert = SQLreader(3)
                    Cennik_gor = SQLreader(2)
                End If
            End While
 
        End If
        Err.Clear()
        con.Close()
Добавлено через 1 минуту
vb.net
1
2
3
4
5
6
While SQLreader.Read()
                    Dim item1 As New ListViewItem(CStr(SQLreader(0)), 0)
                    item1.SubItems.Add(CStr(SQLreader(1)).Replace("</br>", ""))
                    item1.SubItems.Add(SQLreader(2))
                    ListView1.Items.AddRange(New ListViewItem() {item1})
                End While
Вот ещё, забыл)
2
vova_king
24 / 24 / 9
Регистрация: 29.07.2010
Сообщений: 261
01.03.2016, 18:09  [ТС] #3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Все нашел ответ. Всем спасибо
vb.net
1
ListBox1.Items.Add(reader.GetString(0))
0
densy
86 / 84 / 19
Регистрация: 30.08.2015
Сообщений: 360
13.09.2016, 15:56 #4
Приветствую, у меня выходит ошибка "Необработанное исключение типа "System.InvalidOperationException" в System.Data.SQLite.dll Дополнительные сведения: No current row"

таблица - "раздел"
колонка - "Name"
значения
test1
test2
test3

vb.net
1
2
3
4
5
6
7
8
9
10
11
 Dim SQLconnect As SQLiteConnection
        SQLconnect = New SQLiteConnection("Data Source=MyDatabase.sqlite;Version=3;")
        SQLconnect.Open()
 
 
        Dim command As SQLiteCommand = New SQLiteCommand("select DISTINCT 'Name' from 'раздел';", SQLconnect)
        Dim reader As SQLiteDataReader = command.ExecuteReader()
 
        MsgBox(reader.GetString(0))
        reader.Close()
        SQLconnect.Close()
0
Kulma
432 / 371 / 62
Регистрация: 25.07.2015
Сообщений: 678
13.09.2016, 17:00 #5
densy, а хде цикл?
Рейдер -это набор строк.

vb.net
1
2
3
4
5
6
If reader.HasRows Then 'Здесь проверяется , существует ли в рейдере хоть одна запись
            Do While reader.Read() ' Здесь идёт перебор строк
                MsgBox(reader.GetString(0))
            Loop
        
  End If
У вас же примеры перед глазами в первых постах темы )))
1
densy
86 / 84 / 19
Регистрация: 30.08.2015
Сообщений: 360
13.09.2016, 17:53 #6
Kulma, да баян отколол - продукт бессонных 2 суток
0
13.09.2016, 17:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.09.2016, 17:53

Вывод содержимого из Listbox в PrintPreviewDialog
вывод содержимого из Listbox в PrintWievDialog

Вывод списка пользователей домена в ListBox
есть код, который выводит пользователей с домена. Есть два вопроса Dim...

Вывод в ListBox либо в DataGrid View
нужно сделать программу на VB 2010 1. Запись с TextBox, MaskedTextBox и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru