ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Перечисление в поле запроса данных через запятую.
17 сообщений из 17, страница 1 из 1
Перечисление в поле запроса данных через запятую.
    #32391113
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Таблица Договоры связана с табл.Счета. Один договор может иметь несколько счетов.
Как сделать, чтобы в запросе все счета перечислялись в одном поле через запятую, т.е. один договор занимал бы одну строку?
...
Рейтинг: 0 / 0
28.01.2004, 16:08
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391126
Alex112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex112
Участник
Первое, что пришло в голову:

- создаешь функцию, которая делает выборку номеров счетов по каждому договору и выстраивает их в строку
- вставлешь эту функцию в запрос
- в качестве параметра функции указываешь id договора

Недостаток - может подтормаживать.
...
Рейтинг: 0 / 0
28.01.2004, 16:13
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391132
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Для ADP

http://www.sql.ru/faq/faq_topic.aspx?fid=130

Для MDB
только с использованием функций VBA
...
Рейтинг: 0 / 0
28.01.2004, 16:17
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391133
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Тут пример по совету, который дали выше...
...
Рейтинг: 0 / 0
28.01.2004, 16:17
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391136
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 incold
Быстрый олень:)
...
Рейтинг: 0 / 0
28.01.2004, 16:18
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391158
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Вариант для mdb...
Cоздать функцию в модуле, а как обратиться к ней из запроса?
Я имею ввиду как ей передать аргументы(номера счетов)?
...
Рейтинг: 0 / 0
28.01.2004, 16:26
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391165
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
выражение1:МояФункция(ИМяКлючевогоПоляТаблицы)
...
Рейтинг: 0 / 0
28.01.2004, 16:29
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391215
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT DISTINCT Клиент FROM Клиенты ORDER BY Клиент;", СurrentProject.Connection
ПеременнаяString = rst.GetString(adClipString, , ";", ";")
rst.Close
...
Рейтинг: 0 / 0
28.01.2004, 16:49
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391282
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
2 ХТ:
может это и работает, но у меня А97, к сожалению...:(
Значит придется из одного rst выбирать КодДоговора, а потом как фильтр использовать это для другого Rst, который со Счетами?
...
Рейтинг: 0 / 0
28.01.2004, 17:13
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391337
П.М.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
П.М.
Гость
Попробуй до и после переменной в запросе ставить одинарные ковычки:

"начало запроса....'" & твоя_переменная_в_перечислением_номеров_ счетов & "'...конец запроса"
...
Рейтинг: 0 / 0
28.01.2004, 17:30
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391491
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
А переменную-то как "собрать"?
...
Рейтинг: 0 / 0
28.01.2004, 19:02
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391509
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Примерно так:

Код: plaintext
1.
2.
3.
Function FullString(strFld As String)
Static strTemp As String
FullString = strTemp &  ", "  & strFld
End Function
...
Рейтинг: 0 / 0
28.01.2004, 19:22
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391511
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Нет, так не пойдет...
Надо так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function AllNums(lngIdDogovor As Long) As String
Dim rst As Recordset, mdb As Database, strNums As String
Set mdb = CurrentDb
Set rst = mdb.OpenRecordset( "SELECT num FROM MyTab WHERE IdDog = "  & lngIdDog
Do While Not rst.EOF
   strNums = strNums & rst!num
Loop
AllNums = strNums
rst.Close
Set rst = Nothing
Set mdb = Nothing
...
Рейтинг: 0 / 0
28.01.2004, 19:26
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391513
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Ну и как всегда, стормозил на
rst.MoveNext

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Function AllNums(lngIdDog As Long) As String
Dim rst As Recordset, mdb As Database, strNums As String
Set mdb = CurrentDb
Set rst = mdb.OpenRecordset( "SELECT num FROM MyTab WHERE IdDog = "  & lngIdDog
Do While Not rst.EOF
   strNums = strNums &  ", "  & rst!num
   rst.MoveNext
Loop
AllNums = strNums
rst.Close
Set rst = Nothing
Set mdb = Nothing
...
Рейтинг: 0 / 0
28.01.2004, 19:28
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32391979
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Ну а у меня так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Function qq(NumDog As String) As String
Dim rst As Recordset, rstFlt As Recordset
qq =  ""
Set rst = CurrentDb.OpenRecordset(" Запрос1 ")
rst.Filter = " [NDog] = '" & NumDog & "' "
Set rstFlt = rst.OpenRecordset
If rstFlt.RecordCount > 0  Then
    rstFlt.MoveFirst
    Do While Not rstFlt.EOF
         qq = qq & rstFlt!№_счет & ", "
         rstFlt.MoveNext
    Loop
 qq = Left(qq, Len(qq) -  2 )
End If

"Запрос1" это набор данных: один столбец -Договор, второй - №_счета.
Ну а вообще - тормозит все это довольно сильно...
...
Рейтинг: 0 / 0
29.01.2004, 11:16
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32392083
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Set rstFlt = rst.OpenRecordset
Зачем это? Для каждого договора каждый раз отбираются все записи, а потом накладывается фильтр. На фига, если можно ограничиться нужным номером?
И второй раз открывать рекордсет на основе уже существующего тоже не надо

If rstFlt.RecordCount > 0 Then
rstFlt.MoveFirst
Это лишнее. Рекордсет сам встает на первую запись, если она есть. Поэтому можно перейти сразу к следующей строке, где заменить While Not -> Until (это я сначала писал через While / Wend)
...
Рейтинг: 0 / 0
29.01.2004, 11:50
| Ответить | Цитировать | Написать  
Перечисление в поле запроса данных через запятую.
    #32392134
П.М.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
П.М.
Гость
Как собрать переменную?

Была у меня такая задача: на форме есть листбокс, где перечисленны группы товаров, листбокс причем позволяет выбирать несколько строк одновременно.
Надо было составить отчет, в который входили бы только товары из выбранных групп. Вот как это решил:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub кнПрайс_Click()
Dim varI 'fltrПрайс - глобальная переменная

On Error Resume Next
For Each varI In Me.спТип.ItemsSelected  'перебор по выделенным группам товара в листбоксе

fltrПрайс = fltrПрайс &  "', '"  & Me.спТип.ItemData(varI)
Next varI
If fltrПрайс <>  "" Then
   fltrПрайс = Right(fltrПрайс, Len(fltrПрайс) - 3 ) & "'"    'обрезание лишних кавычек

   DoCmd.OpenReport  "оПрайс" , acViewPreview 'открытие отчета, где условие отбора записей и есть переменная fltrПрайс

Else
   MsgBox  "Выберите как минимум один тип" 
End If
End Sub


Задача усложнялась еще тем, что группы товара могли содержать пробелы и запятые, поэтому так много кавычек.
...
Рейтинг: 0 / 0
29.01.2004, 12:10
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Перечисление в поле запроса данных через запятую.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32391215&tid=1676948]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 185ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 222ms
total:  471ms
созд. / загр.: 471ms
x
x
Закрыть


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