powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ListBox&Recordset
8 сообщений из 8, страница 1 из 1
ListBox&Recordset
    #32400560
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здрасте всем, у меня проблемка

когда я делал простой запрос я писал

SELECT F1, F2, F3, F4, F5, F6, F7 FROM Telefonliste_l WHERE Telefonliste_l.F1 Like [PLEASE ENTER NAME OR BEGIN OF NAME] & "*" Or Telefonliste_l.F1 Is Null;
и после набора части имени мне показывало таблицу людей у которых так начинается имя

Теперь мне нужно такой же список додавать в листбокс (или в чтото другое)
причем часть имени я ввожу в текс1.текст
я пишу

Set rst = CurrentDb.OpenRecordset("SELECT F1, F2, F3, F4, F5, F6, F7 FROM Telefonliste_l WHERE Telefonliste_l.F1 Like '" & Text1.Text & "*" & "'")

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

List1.AddItem rst но ето не работает
если я пишу List1.AddItem rst!F1 додает только первую запись
как быть? помогите
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400567
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
set List1=rst
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400587
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Зделал, не работает пишу код как есть, поскольку возможно я чтото намутил

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim buf As String
Dim rst As DAO.Recordset
On Error GoTo KeyDownErr

If KeyCode = vbKeyReturn Then
KeyCode = 0
Set rst = CurrentDb.OpenRecordset("SELECT F1, F2, F3, F4, F5, F6, F7 FROM Telefonliste_l WHERE Telefonliste_l.F1 Like '" & Text1.Text & "*" & "'")
Label26.Caption = rst!F1 & " " & rst!F5
Set List40 = rst
MsgBox "Good!", vbOKOnly, "Good!"


End If

Exit Sub
KeyDownErr:
KeyCode = 0
MsgBox "Error!", vbOKOnly, "Error!"
End Sub
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400599
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А может уж сразу вместо рекордсета написать
Код: plaintext
List1.RowSource =  "SELECT F1, F2, F3, F4, F5, F6, F7 FROM Telefonliste_l WHERE Telefonliste_l.F1 Like '" & Text1.Text & "*" & "'" 
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400615
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Оно мне в первой строчке листбокса пишет строчку

SELECT F1, F2, F3, F4, F5, F6, F7 FROM Telefonliste_l WHERE Telefonliste_l.F1 Like 'ma*'

(я набирал "ma" ;-) )
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400753
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
как работает RowSource ? для листбокса
что еще можно использовать
хелп плз
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400759
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поставь типисточника строк вместо "список значений" - запрос
...
Рейтинг: 0 / 0
ListBox&Recordset
    #32400775
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
большое спасибо, работает)
извиняйте за ламерские вопросы, я только учусь )
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ListBox&Recordset
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]