Занесение значений в ListBox

@Devil_lake · Регистрация: 09.04.2018

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

Люди, помогите
На форме Table1 есть listBox1 и в него нужно выгружать из БД таблицы "Гость" значения "Номер телефона"
При выборе номера телефона, чтобы значение из БД "Скидка" выгружалось в TextBox1
А при закрытии стола значение в БД "посещение" прибавлялось 1 (было посещение 4, а при закрытии стола стало 5)

@Devil_lake · 19.04.2019, 05:16 **[ТС]**

Люди добрые, помогите пожалуйста
Разве никто не знает как это сделать?

Остап Бонд · 19.04.2019, 07:48

Devil_lake, тут нагорожено и акцесс, и фокспро, и ворд, и чёрт знает ещё что.
Задайте конкретный вопрос - получите ответ за 5 минут.

@Devil_lake · 20.04.2019, 03:27 **[ТС]**

Скриншот (1) - в этот лист бокс нужно занести значения из Скриншота (2), при выборе определенного номера в лист боксе берется его значение скидки
В скриншоте (3) показывается куда нужно занести значения из скриншота (4)
А при нажатии кнопки закрыть стол, нужно чтобы в выбранное значение из лист бокса (скриншот (1)) шла перезапись значения +1 (к примеру там указано 5+1=6) в скриншот (5)

@Alex77755 · 20.04.2019, 06:40

значения из Скриншота (2)

улыбнуло..
прописывать путь к базе в коде ...
Программа только у Ольг будет работать

Visual Basic
1
C:\Users\Olga\Desktop\prog diplom\kassa.accdb

Лучше положи рядом с программой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub OpenDB() 
    Set conn = Nothing
    Set conn = New ADODB.Connection
    fil = Dir(App.path & "\*.accdb")
    If Len(fil) > 0 Then
        path = App.path & "\" & fil
        conn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" & path & ";Uid=Admin;Pwd=;"
        conn.Open
    Else
        MsgBox "Не нашлось базы!", vbCritical, ""
    End If
End Sub

Добавлено через 10 минут
Почитай правила: 1 тема = 1 вопрос
Остап Бонд, конкретно написал, что надо: задать 1 вопрос
В общих чертах так. Сделать запрос к базе и выгрузить результат в список
Потом по клику в списке что-то делать

Добавлено через 23 минуты
в форму table1:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Activate()
    Set rs = New ADODB.Recordset
    SQL = "SELECT * From Гость"
    rs.Open SQL, conn, 3, 3
    rs.MoveLast
    rs.MoveFirst
    List1.Clear
    Do Until rs.EOF
       List1.AddItem rs(0)
        rs.MoveNext
    Loop
End Sub

@Devil_lake · 20.04.2019, 07:17 **[ТС]**

Alex77755, Спасибо большое !

Новые блоги и статьи Все статьи Все блоги /
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .

@Devil_lake 0 / 0 / 0 Регистрация: 09.04.2018 Сообщений: 20
	19.04.2019, 05:16 [ТС]
	Люди добрые, помогите пожалуйста Разве никто не знает как это сделать? 0

Остап Бонд Заблокирован
	19.04.2019, 07:48
	Devil_lake, тут нагорожено и акцесс, и фокспро, и ворд, и чёрт знает ещё что. Задайте конкретный вопрос - получите ответ за 5 минут. 0

@Devil_lake 0 / 0 / 0 Регистрация: 09.04.2018 Сообщений: 20
	20.04.2019, 03:27 [ТС]
	Скриншот (1) - в этот лист бокс нужно занести значения из Скриншота (2), при выборе определенного номера в лист боксе берется его значение скидки В скриншоте (3) показывается куда нужно занести значения из скриншота (4) А при нажатии кнопки закрыть стол, нужно чтобы в выбранное значение из лист бокса (скриншот (1)) шла перезапись значения +1 (к примеру там указано 5+1=6) в скриншот (5) Миниатюры 0

@Devil_lake 0 / 0 / 0 Регистрация: 09.04.2018 Сообщений: 20
	20.04.2019, 07:17 [ТС]
	Alex77755, Спасибо большое ! 0

Занесение значений в ListBox

Решение