Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поле нумерации, пронумировка записей после запроса 
V
    Опции темы
Veve
Дата 28.11.2006, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

Репутация: нет
Всего: 13
Есть таблица с данными. Выполняется запрос TQuery в котором данные групируються по дате... получаная данные выводятся в таблицу  TDBGRId в которой есть некоторое поле индех, в котором должна быть нумерация получаных строк таблицы.... Как создать нумерацию в этом поле... ? Помогите плиз!! 
PM MAIL ICQ Skype MSN   Вверх
Rodman
Дата 28.11.2006, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
ЗАГЛЯНЬ

при помощи TJvMemoryData перегони из TQuery и в первом поле заполни номер


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Veve
Дата 29.11.2006, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

Репутация: нет
Всего: 13
Чё-то это всё гиморойно... слишком ужжж... Ради одного поля с нумерацией.... 
Нельзя ли, как нибудь просто создать поле в TQuery  которое автоматом просто пронумерует строки?...
PM MAIL ICQ Skype MSN   Вверх
Savek
Дата 29.11.2006, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7
Просто никак. Когда-то я делал так:
Объвлял процедуру
Код

...
privat
procedure CalcNum(Sender: TField; var Text: String; DisplayText: Boolean);
...
implementation
procedure TForm1.CalcNum(Sender: TField; var Text: String; DisplayText:Boolean); Boolean);
begin
Text:=IntToStr(Query1.RecNo);
end;

Затем в выражение select нужно добавить поле Num, которое будет использоваться для нумерации и присвоить ему эту процедуру
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
SQL.Clear;
SQL.ADD('select ..., "" as Num from ...');
Open;
TField(FieldByName('Num').OnGetText:=CalcNum;
end


ЗЫ Это конечно напоминает извращение, впрочем как и сама задача, но при желании я думаю можно довести до ума. Пиши если что
PM MAIL   Вверх
Vas
Дата 29.11.2006, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Обязательно указание:
1. Базы данных (Paradox, Oracle и т.п.)
2. Способа доступа (ADO, BDE и т.д.)

Для оракла одним запросом rownum  будет содержать порядковый номер строки в возвращаемом запросе:
Код

select t.*, rownum from table t

Можно еще аналитическими функциями возпользоваться  smile  


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
Veve
Дата 29.11.2006, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

Репутация: нет
Всего: 13
to SAVEK 
Выдаёт везде -1


to VAS
Не равботает с  GROUP BY  пишет 
[1]: (Error): ORA-00979: not a GROUP BY expression
PM MAIL ICQ Skype MSN   Вверх
Savek
Дата 29.11.2006, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7
Цитата(Veve @  29.11.2006,  13:47 Найти цитируемый пост)
to SAVEK 
Выдаёт везде -1

Проверь вот эту строку
Код

Text:=IntToStr(Query1.RecNo);


Возможно у тебя нумерация в Query2, а здесь ты указал Query1
PM MAIL   Вверх
Veve
Дата 29.11.2006, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

Репутация: нет
Всего: 13
Всем спасибо за помощь! В особенности VAS'у smile 
Понял, нужно было ещё группировать по rownum

select job, count(*), rownum from emp group by job, rownum;

Это сообщение отредактировал(а) Veve - 30.11.2006, 16:28
PM MAIL ICQ Skype MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0443 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.