LisBox со значениями из базы

@buhalo88 · Регистрация: 08.02.2013

Студворк — интернет-сервис помощи студентам

Всем добрый вечер!
Решил изучить vb6, но пока дела обстоят не очень.
Вообщем нужно сделать список значений из базы mdb в combo или list box'e.
Пробовал делать через dbgrid, но там не нашел события, возникающего после навигации по списку(нужно было получить позицию элемента).
Проект прикрепил.
Буду очень благодарен в решении данного вопроса!!

dev.Free · 09.02.2013, 08:04

Вот тебе связка с DBGrid32. Внизу пример на твоем выложенном. Видать делал на примере книг. Data вообще лучше не использовать в качестве рабочего компонента на форме, работать надо на кнопках и прочем. Data в режиме скрытом. И как бы уже еще лучше использовать ADODB подключения. В общем смотри исходники я тебе выкладываю по работе с базами, писал студентам во фрилансе на них научишься. Будут вопросы пиши.

Вот еще примеры:

1. Выгрузка с форматированием: задать диапазон выгружаемых данных
2. Пример записи / чтения с Microsoft Excel в VB
3. Принцип работы SQL запросов в Visual Basic 6.0 (За основу взята Data)
4. Работа с элементом ListView с использованием ADODB - MS Access 2010

@buhalo88 · 09.02.2013, 16:15 **[ТС]**

Спасибо большое! Буду разбираться!

@buhalo88 · 16.02.2013, 18:58 **[ТС]**

Стал разбираться в файле Sample.rar и у меня возникло 2 вопроса:
1.как получить значения из базы, которого нет в ListView
2. что означает этот код

PureBasic
1
rs.Open SQL, conn, 3, 3

dev.Free · 16.02.2013, 19:35

Сообщение от buhalo88

которого нет в ListView

Все делается методом SQL запроса. Если значения нет тогда пишется так:

SQL
1
SELECT * FROM TABLE WHERE NAME LIKE '%Null%'

Где TABLE имя вашей таблицы.
NAME это поиск по строке.

Добавлено через 1 минуту

Сообщение от buhalo88

rs.Open SQL, conn, 3, 3

открытие соединения с параметрами.

@buhalo88 · 16.02.2013, 22:41 **[ТС]**

То есть, например, если мне нужно получить значение поля выбраной записи, то мне нужно написать такое ?

SQL
1
2
3
4
5
6
7
8
9
10
Private Sub Text4_Change()
DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
    SQL = "SELECT * FROM Sample WHERE Отчество LIKE i"
    rs.Open SQL, conn, 3, 3
    Text4.Text = rs(X)
    SET rs = Nothing
    conn.Close
END Sub

Если так, то у меня пишет что "слишком мало параметров, требуется 1"

dev.Free · 17.02.2013, 07:59

Сообщение от buhalo88

i

Какое еще (i) там писать надо писать так:

Visual Basic
1
SQL = "SELECT * FROM Sample WHERE Отчество LIKE '%i%'"

@buhalo88 · 17.02.2013, 12:51 **[ТС]**

inv.DS, я извиняюсь за мою неграмотность, но как вывести в текстовое поле текущее значение, которого нет в списке, но есть в базе. Т. е. при клике на текстовое поле (я к примеру) нужно снова открыть соединение с базой, создать запрос типа

SQL
1
SQL = "SELECT * FROM Sample WHERE Отчество LIKE '%i%'"

и в текстовое поле присвоить значение переменной. Но какой переменной? RS(x), RS(i)?

dev.Free · 17.02.2013, 12:52

Имя поля.

@buhalo88 · 17.02.2013, 14:02 **[ТС]**

Я в растроенных чувствах. У меня ничего не получается. Наверно скоро сниться будет.

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListView1_ItemClick(ByVal Item AS MSComctlLib.ListItem)
FOR i = 1 TO ListView1.ListItems.Count
    IF ListView1.ListItems(i).Selected = TRUE THEN
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
    SQL = "SELECT * FROM Sample WHERE Отчество LIKE '%i%'"
    rs.Open SQL, conn, 3, 3
        Text1.Text = ListView1.ListItems(i).SubItems(1)
        Text2.Text = ListView1.ListItems(i).SubItems(2)
        Text3.Text = rs("Отчество")
    END IF
NEXT i
    SET rs = Nothing
    conn.Close
END Sub

dev.Free · 17.02.2013, 15:00

buhalo88, Выложи сюда свой проект.

@buhalo88 · 17.02.2013, 15:16 **[ТС]**

inv.DS, вот

dev.Free · 17.02.2013, 15:28

Я честно вообще не понимаю чего ты добиваешься от кода. Создай на форме 1 кнопку в нее впиши код:

Visual Basic
1
Call Poisk

В код в самый низ вставь это:

Visual Basic
1
2
3
4
5
6
7
8
Sub Poisk()
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
    SQL = "SELECT * FROM Sample WHERE Отчество LIKE '%Степанов%'"
    rs.Open SQL, conn, 3, 3
        Text4.Text = rs.Fields("Фамилия")
End Sub

Если в базе данных есть хоть 1 фамилия "Степанов", он тебе ее найдет и фамилию выведет в текстовое поле 4.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@buhalo88 0 / 0 / 1 Регистрация: 08.02.2013 Сообщений: 19
	09.02.2013, 16:15 [ТС]
	Спасибо большое! Буду разбираться! 0

dev.Free Заблокирован
	17.02.2013, 12:52
	Имя поля. 0

dev.Free Заблокирован
	17.02.2013, 15:00
	buhalo88, Выложи сюда свой проект. 0