0 / 0 / 0
Регистрация: 17.09.2008
Сообщений: 17
1

Помогите с рекордсетом

24.02.2011, 14:41. Показов 872. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
есть таблица, поля: город, расход ресурса A, расход ресурса B
по каждому городу вывести ресурс максимального расхода.
Подскажите пожалуйста как быть?
Давно я в аксесс не работал, всё позабывал..
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2011, 14:41
Ответы с готовыми решениями:

Помогите с рекордсетом
Есть табличка mytab Id счетчик p.key Name текстовый В ней какие-то данные. Счетчик --...

Не могу разобраться с рекордсетом
Задача такая: нужно проверить есть ли требуемое количество деталей на складе. Если есть то...

Что-то не так при работе с рекордсетом :((((((
Всем привет. Решил 'облагородить' код аутентификации пользователя. Он работает, но проблема в...

ЛЮДИ ДОБРЫЕ КОЛЛЕГИ!!! ПОМОГИТЕ, ГОРЮ С КУРСОВЫМ((( ПОМОГИТЕ
ТЕМА: КОНВЕРТОР С ПАРАЛЛЕЛЬНЫМ КЛЮЧЕВЫМ ЭЛЕМЕНТОМ! СЧИТАЮ ПО ТОПОЛОГИИ SEPIC, по схеме Кука!...

4
0 / 0 / 0
Регистрация: 17.09.2008
Сообщений: 17
24.02.2011, 15:24  [ТС] 2
города не повторяются.. есть примерно следующее:

калыма 1 2 3 4 5
вологда 2 3 4 5 6
ташкент 3 4 5 6 7

Для каждого города надо выбрать максимальный 'расход', т.е. в нашем случае должно в итоге получиться:

калыма 5
вологда 6
ташкент 7
0
0 / 0 / 0
Регистрация: 27.12.2009
Сообщений: 109
25.02.2011, 16:00 3
С чем помогать, именно с рекордсетом или источником строк для него?
Если это SQL можно заранее зоздать свободное поле в запросе, а потом при прохожении по записям рекордсета организовать внутренний цикл по полям рекордсета с целью определить из них максимальное значение, и затем присвоить его полю, основанному на созданном поле запроса.
Вполне можно реализовать
0
0 / 0 / 0
Регистрация: 17.09.2008
Сообщений: 17
25.02.2011, 19:53  [ТС] 4
а грамотней по-вашему или формируя 2 массива, как ниже..
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub MaksRasxod()
Dim rst As DAO.Recordset
Dim gorod() As String 'массив городов
Dim rasxod() As Long 'массив макс. значений
Dim i As Long
Dim j As Long
 
j = DCount('gorod', 'tablica')
 
ReDim Preserve gorod(j) 
ReDim Preserve gorod(j)
 
Set rst = CurrentDb.OpenRecordset('tablica')
With rst
   .MoveLast
   .MoveFirst
   For i = 0 To .RecordCount - 1
       gorod(i) = !gorod
       rasxod(i) = maks(!pole1, !pole2, !pole3)
       .MoveNext
   Next
End With
End Sub
 
Function maks(ByVal f1 As Long, ByVal f2 As Long, ByVal f3 As Long)
maks = IIf(f1 > f2, IIf(f1 > f3, f1, f3), IIf(f2 > f3, f2, f3))
End Function
Ещё вопрос как результаты массива поместить на форму или (на будущее) в отчёт?
Спасибо за помощь.
0
118 / 118 / 10
Регистрация: 12.05.2010
Сообщений: 1,207
26.02.2011, 10:30 5
Ну у Вас и структура данных, однако...
1. Отчёт на основе массива данных построить нельзя. Отчёт может быть построен только на основе SQL-запроса. В общем-то, возможен вариант создания такого отчёта, чтобы в нём выводились данные требуемого массива, но это только в крайних случаях.
А с формой в этом плане ещё хуже...
Так что Вам нужно создать запрос на основе Вашей таблицы 'tablica' и вывести данные на экран:

SELECT tablica.gorod, maks(pole1;pole2;pole3) As rashod FROM tablica;

2. Теперь о данных...
Если ещё возможно, переделайте структуру Вашей таблицы на:

калыма 1
калыма 2
калыма 3
вологда 2
вологда 3
ташкент 3
ташкент 4

И Вам же в дальнейшем будет проще...
Ваша структура - типичный перекрёстный запрос (сводная или итоговая таблица другими словами). И все стараются хранить данные в ленточном виде, а не табличном...
0
26.02.2011, 10:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2011, 10:30
Помогаю со студенческими работами здесь

Холодильник Samsung помогите опознать модель, помогите опознать модель, все шильдики ободраны
Собственно имеем холодильник без опознавательных знаков, ничего не могу про него прочитать...

Холодильник ARDO COF2510SAC помогите опознать бабах, Ребята помогите опознать БАБАХ
Привет уважаемуму сообществу! Ребята помогите опознать БАБАХ, выгорел в прах варистор и R25,у зака...

Помогите
Здравствуйте. У меня отец постояно смотрит порнухи и тем самым запускает вирусы на комп и заражает...

Помогите
Здраствуйте, меня интересует такой вопрос я поставил ссылку на одном сайте, ссылка стоит на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru