ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вытащить текст с полей в переменную
10 сообщений из 10, страница 1 из 1
Как вытащить текст с полей в переменную
    #32197242
Сашка Здоровый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сашка Здоровый
Гость
Имеем таблицу, в которой 2 поля А и В (оба текстовые).
Задача - сгруппировать поле А, результ должен быть таким - чтобы все элементы поля В, имеющиеся при поле А - сложились в одну строку, через "*" последовательно- (как бы Sum) .

Реально ли с помощью запроса, осуществить такое.

Натюр..
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
A ABC
A DEF
A GHI
B BBB
B DDD
C 12S
C 34D
D FIGAROTUT
D FIGAROTAM


должно получиться

A ABC*DEF*GHI
B BBB*DDD
C 12S*34D
D FIGAROTUT*FIGAROTAM
...
Рейтинг: 0 / 0
02.07.2003, 13:37
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197278
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Как один из вариантов: http://www.sql.ru/faq/faq_topic.aspx?fid=130
...
Рейтинг: 0 / 0
02.07.2003, 13:52
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197304
Сашка Здоровый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сашка Здоровый
Гость
алгоритм хорош, но как проделать в mdb ?
...
Рейтинг: 0 / 0
02.07.2003, 14:05
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197312
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
А точно так же и проделать
Только функция будет лежать не на MS SQL, а на клиенте, да и написана будет не на T-SQL, а на VBA
Ну и тормозить будет конечно
...
Рейтинг: 0 / 0
02.07.2003, 14:12
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197391
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
можно так еще
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT Клиент FROM Клиенты ORDER BY Клиент;", СurrentProject.Connection
Список1.RowSource = rst.GetString(adClipString, , ";", ";")
rst.Close
...
Рейтинг: 0 / 0
02.07.2003, 15:09
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197481
Сашка Здоровый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сашка Здоровый
Гость
2 Хам трамвайный
В твоем случае все записи будут добавляться !
и требуется использование списка на форме.

Достаточно громоздкая конструкция !

Может кто может помочь в написании функции TSum()
по аналогии с SUM() чтоб можно было использовать напрямую из запросов.
...
Рейтинг: 0 / 0
02.07.2003, 16:18
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197490
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
ты хочешь
чтобы я тебе
все разжеванным давал?
я тебе дал пример из кода
своего
направление тебе дал
а ты думай:
использовать данный
метод
или послать меня
куда подальше
...
Рейтинг: 0 / 0
02.07.2003, 16:22
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197509
Сашка Здоровый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сашка Здоровый
Гость
1.ты хочешь
чтобы я тебе
все разжеванным давал?
2.я тебе дал пример из кода
своего
направление тебе дал
а ты думай:
использовать данный
метод
3.или послать меня
куда подальше

1.Предпочитаю еще раз вежливо попросить ! мож дойдет, что не знаю.
2. За Направление и пример спасибо !
3. Неплохая задумка - но мне не поможет ! :)


угу
...
Рейтинг: 0 / 0
02.07.2003, 16:29
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197511
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
и требуется использование списка на форме
Ни разу не требуется. Список для примера и вообще он получателем строки является (если мне не изменяет мой глаз)

Говорят же тебе - сделай так же, но на VBA
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function TSum(strA As String) As String
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset( "Select B From Table1 Where A="  "" & strA & "  """ )
    Dim strResult As String
    With rst
        Do Until .EOF
            strResult = strResult & !B
            .MoveNext
        Loop
    End With
    TSum = strResult
End If


Или вместо цикла как Хам предложил (если ADO)
Для повышения быстродействия - не создавать постоянно рекордсет. Сделать рекордсет на основе QueryDef (для DAO), и потом этот рекордсет Requery после установки нового параметра в QueryDef
...
Рейтинг: 0 / 0
02.07.2003, 16:30
| Ответить | Цитировать | Написать  
Как вытащить текст с полей в переменную
    #32197525
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
2 Хам
Ты забыл еще одно
4. Использовать твой метод и послать тебя подальше
...
Рейтинг: 0 / 0
02.07.2003, 16:35
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вытащить текст с полей в переменную
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1680757]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 65ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 224ms
total:  342ms
созд. / загр.: 342ms
x
x
Закрыть


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