Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic .NET

Войти
Регистрация
Восстановить пароль
 
vova_king
22 / 22 / 8
Регистрация: 29.07.2010
Сообщений: 261
#1

Вывод данных в ListBox из БД SQLite - Visual Basic .NET

01.03.2016, 17:51. Просмотров 476. Ответов 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 из БД SQLite (Visual Basic .NET):

Вывод столбца таблицы базы данных в listbox - Visual Basic .NET
Необходимо вывести в listbox столбец name_vyz таблицы klas делаю так, но не выходит...в чем ошибка? Dim Con As New...

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

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

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

Вывод id друзей пользователя vk.com в listbox - Visual Basic .NET
Добрый день, срочно нужна ваша помощь, необходимо Вывести список id в listbox1 xml такого вида: <?xml version="1.0"...

Вывод содержимого из Listbox в PrintPreviewDialog - Visual Basic .NET
вывод содержимого из Listbox в PrintWievDialog

5
GSXL
160 / 164 / 27
Регистрация: 26.11.2011
Сообщений: 378
Записей в блоге: 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
22 / 22 / 8
Регистрация: 29.07.2010
Сообщений: 261
01.03.2016, 18:09  [ТС] #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Все нашел ответ. Всем спасибо
vb.net
1
ListBox1.Items.Add(reader.GetString(0))
0
densy
86 / 84 / 20
Регистрация: 30.08.2015
Сообщений: 345
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
426 / 365 / 62
Регистрация: 25.07.2015
Сообщений: 667
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 / 20
Регистрация: 30.08.2015
Сообщений: 345
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 либо в DataGrid View - Visual Basic .NET
нужно сделать программу на VB 2010 1. Запись с TextBox, MaskedTextBox и ComboBox (в базу данных имя базы данных sport.mdb) 2. Вывод в...

Вывод списка пользователей домена в ListBox - Visual Basic .NET
есть код, который выводит пользователей с домена. Есть два вопроса Dim directoryEntry As DirectoryEntry = New...

Вывод слова в ListBox, на каждую строку на букву короче - Visual Basic .NET
Здравствуйте Нужно, чтобы в листбоксе отобразилась последовательность: Aggregate Aggregat Aggrega Aggreg ... Ошибку не...

Заполнение и вывод текста ListBox в зависимости от состояния RadioButton - Visual Basic .NET
Цель: при клике на 1 переключатель выводить в листбокс Item1, item2, при клике на 2 переключатель Item3, item4. Пока он ничего не...


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

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

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