Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вытащить текст с полей в переменную / 10 сообщений из 10, страница 1 из 1
02.07.2003, 13:37
    #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:52
    #32197278
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытащить текст с полей в переменную
Как один из вариантов: http://www.sql.ru/faq/faq_topic.aspx?fid=130
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 14:05
    #32197304
Сашка Здоровый
Сашка Здоровый
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытащить текст с полей в переменную
алгоритм хорош, но как проделать в mdb ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 14:12
    #32197312
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытащить текст с полей в переменную
А точно так же и проделать
Только функция будет лежать не на MS SQL, а на клиенте, да и написана будет не на T-SQL, а на VBA
Ну и тормозить будет конечно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 15:09
    #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, 16:18
    #32197481
Сашка Здоровый
Сашка Здоровый
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытащить текст с полей в переменную
2 Хам трамвайный
В твоем случае все записи будут добавляться !
и требуется использование списка на форме.

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

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

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


угу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 16:30
    #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:35
    #32197525
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытащить текст с полей в переменную
2 Хам
Ты забыл еще одно
4. Использовать твой метод и послать тебя подальше
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вытащить текст с полей в переменную / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 353ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1680757]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 205ms
total:  353ms
x
x
Закрыть


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