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

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

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
06.02.2004, 12:08
    #32400567
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox&Recordset
set List1=rst
...
Рейтинг: 0 / 0
06.02.2004, 12:15
    #32400587
mastermind
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox&Recordset
Зделал, не работает пишу код как есть, поскольку возможно я чтото намутил

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
06.02.2004, 12:19
    #32400599
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox&Recordset
А может уж сразу вместо рекордсета написать
Код: plaintext
List1.RowSource =  "SELECT F1, F2, F3, F4, F5, F6, F7 FROM Telefonliste_l WHERE Telefonliste_l.F1 Like '" & Text1.Text & "*" & "'" 
...
Рейтинг: 0 / 0
06.02.2004, 12:25
    #32400615
mastermind
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox&Recordset
Оно мне в первой строчке листбокса пишет строчку

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

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


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