ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / IBX + FireBird несколько таблиц в запросе
25 сообщений из 56, страница 1 из 3
  1  все
IBX + FireBird несколько таблиц в запросе
    #39936486
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Есть ibDataSet с SQL

Код: sql
1.
2.
3.
select t.*, (select sum(mycount) from tab2 where tab_id=:tid) as sumt2
from tab t
order by t.nam



В DBGrid все выглядит хорошо, поначалу...

Проблема в том, что после ibDataSet.Post поле sumt2 в DBGrid становится пустым. Как мне этого избежать?

Никак? :)

Только использовать Lookup поле? (но для этого необходимо держать рядом открытый query со всеми записями
Код: sql
1.
2.
3.
select sum(mycount) 
from tab2 
order by tid



Писать значение прямо в поле DBGrid из, например, TDictionary, который заранее сформировать?

Не делать Post у ibDataSet а менять данные ч-з ibSQL, но тогда как рефрешить эту одну запись в ibDataSet, не переоткрывать же весь запрос каждый раз при изменении одной строки?

Написать другой запрос?
...
Рейтинг: 0 / 0
12.03.2020, 06:50
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936488
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
Не знаю как в вашем датасете, но обычно полю sumt2 назначают своиства
AutoGenerateValue = arDefault
FieldKind = fkInternalCalc
...
Рейтинг: 0 / 0
12.03.2020, 07:03
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936490
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
istrebitel
Не знаю как в вашем датасете, но обычно полю sumt2 назначают своиства
AutoGenerateValue = arDefault
FieldKind = fkInternalCalc


Попробовал, ничего не изменилось... Или надо еще что-то сделать?

Если указано fkInternalCalc, тогда что-то надо указывать DefaulExpression ?
...
Рейтинг: 0 / 0
12.03.2020, 07:12
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936494
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
fkInternalCalc просто указывает на то, что поле расчётное и не имеет отображения на реальное поле в таблице, в бд и соответственно не должно участвовать при построении INSERT'ов и UPDATE'ов. А arDefault обычно приводит к вычитке значения после INSERT. А где нибудь нет свойства RefreshAfterUpdate?
...
Рейтинг: 0 / 0
12.03.2020, 07:26
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936496
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad F
Участник
antox,

Свойство что-то типа RefreshSQL надо правильно заполнить. Для обновления значений одной, текущей записи набора по соответствующему ключу.
...
Рейтинг: 0 / 0
12.03.2020, 07:31
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936497
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Ну, это поле нельзя включать в RefreshSQL, иначе ошибка )
...
Рейтинг: 0 / 0
12.03.2020, 07:36
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936501
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
istrebitel
fkInternalCalc просто указывает на то, что поле расчётное и не имеет отображения на реальное поле в таблице, в бд и соответственно не должно участвовать при построении INSERT'ов и UPDATE'ов. А arDefault обычно приводит к вычитке значения после INSERT. А где нибудь нет свойства RefreshAfterUpdate?


Не, такого свойства нет (
...
Рейтинг: 0 / 0
12.03.2020, 07:49
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936503
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Нужно как-то перезапросить это поле с сервера и вставить, попробую вставить вручную
...
Рейтинг: 0 / 0
12.03.2020, 07:53
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936505
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
Только сейчас обратил внимание у вас подзапрос не завязан на данные таблицы tab соответственно в колонке будет одно значение на весь столбец, вам такое поведение необходимо? Тогда можно выполнить (select sum(mycount) from tab2 where tab_id=:tid) до открытия датасета и передать значение параметром
select t.*, :sumt as sumt2
from tab t
order by t.nam
Если и так будет глючить, то у поля sumt2 ставите тип fkCalculated и в обработчике датасета OnCalcFields заполняете это поле ранее вычисленным значением.
...
Рейтинг: 0 / 0
12.03.2020, 08:14
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936507
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Это я ошибся

Код: sql
1.
2.
3.
select t.*, (select sum(mycount) from tab2 where tab_id=t.id and uids=:uids) as sumt2
from tab t
order by t.nam



Завязано, конечно.
...
Рейтинг: 0 / 0
12.03.2020, 08:27
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936508
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Сделал такое извращение (повесил обработчик на GetText поля), но не нравится мне такое:

Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.IBDataSetsumt2GetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  if TField(Sender).Value = null then Text := CurrToStr(getSumt2(IBDataSet.FieldByName('id').AsInteger))
                                  else Text := TField(Sender).Value;
end



getSumt2 создает TIBQuery, лезет в базу дергает данные, возвращает значение и уничтожает TIBQuery, не знаю насколько это замедлит работу.

Может вообще поставить getSumt2 на кальк поле? Но тогда функция будет выполняться на все записи IBDataSet, а при GetText, только на те, по которым был Post без
Код: pascal
1.
IBDataSet.Close + IBDataSet.Open



Будем надеяться, что утечек памяти при выполнении getSumt2 с
Код: sql
1.
IBQ:=TIBQuery.Create

и последующем
Код: pascal
1.
FreeAndNil(IBQ)

не возникнет
...
Рейтинг: 0 / 0
12.03.2020, 08:31
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936511
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
Не поле делаешь InternalCalc а в OnCalculateFields проверяешь его на Null и если пустое то только тогда запрашиваешь из БД значение и присваиваешь этому полю.
По идее должно отрабатывать один раз, но правда если
Код: sql
1.
select sum(mycount) from tab2 where tab_id=t.id and uids=:uids


вернёт NULL то, будет лишний повторный запрос.

Ну чтоб избежать утечек
Код: pascal
1.
2.
3.
4.
5.
6.
IBQ:=TIBQuery.Create
try
  // тут работаем
finally
  FreeAndNil(IBQ)
end;
...
Рейтинг: 0 / 0
12.03.2020, 08:42
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936514
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
istrebitel,

Получается, что тоже самое, что у меня на GetText , только на OnCalculateFields. Чем это лучше? Или аналогично?

Я так понимаю, что GetText (если в одном поле) срабатывает один раз на строку и OnCalculateFields тоже?
...
Рейтинг: 0 / 0
12.03.2020, 08:47
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936516
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Ну чтоб избежать утечек
Код: pascal
1.
2.
3.
4.
5.
6.
IBQ:=TIBQuery.Create
try
  // тут работаем
finally
  FreeAndNil(IBQ)
end;



ну, проверка понятно, а FreeAndNil прям на ноль чистит память?
...
Рейтинг: 0 / 0
12.03.2020, 08:48
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936519
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
antox
Есть ibDataSet с SQL

Код: sql
1.
2.
3.
select t.*, (select sum(mycount) from tab2 where tab_id=:tid) as sumt2
from tab t
order by t.nam




В DBGrid все выглядит хорошо, поначалу...

Проблема в том, что после ibDataSet.Post поле sumt2 в DBGrid становится пустым. Как мне этого избежать?

Никак? :)

Только использовать Lookup поле? (но для этого необходимо держать рядом открытый query со всеми записями
Код: sql
1.
2.
3.
select sum(mycount) 
from tab2 
order by tid




Писать значение прямо в поле DBGrid из, например, TDictionary, который заранее сформировать?

Не делать Post у ibDataSet а менять данные ч-з ibSQL, но тогда как рефрешить эту одну запись в ibDataSet, не переоткрывать же весь запрос каждый раз при изменении одной строки?

Написать другой запрос?

Зайчик, у TIBDataSet должны быть определены SelectSQL, ModifySQL, InsertSQL и RefreshSQL.
Ты, конечно же, их определил, и учел, что в RefreshSQL должна быть уточняющая where - кляуза.
...
Рейтинг: 0 / 0
12.03.2020, 09:00
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936522
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
GetText вызывается при каждом чтении поля, строка при скроллинге скрылась из Grid'а, скролим в обратном направлении, при появлении строки в гриде будет повторный вызов. OnCalcFields один вызов на строку, в момент фетчинга из базы.
...
Рейтинг: 0 / 0
12.03.2020, 09:02
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936523
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad F
Участник
antox
Ну, это поле нельзя включать в RefreshSQL, иначе ошибка )

Чего-чего??
...
Рейтинг: 0 / 0
12.03.2020, 09:06
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936526
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad F
Участник
P.S. RefreshSQL как раз типа для подобных надобностей.
...
Рейтинг: 0 / 0
12.03.2020, 09:07
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936530
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
ъъъъъ

Зайчик, у TIBDataSet должны быть определены SelectSQL, ModifySQL, InsertSQL и RefreshSQL.
Ты, конечно же, их определил, и учел, что в RefreshSQL должна быть уточняющая where - кляуза.


Ты не из этих? :)

Я так понял, что в RefreshSQL я просто не указываю поле sumt2 и все, а что как-то можно указать в RefreshSQL, то sumt2 необходимо перезапросить?
...
Рейтинг: 0 / 0
12.03.2020, 09:09
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936532
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
antox
Проблема в том, что после ibDataSet.Post

Все же интересно, что в InsertSQL/UpdateSQL.
...
Рейтинг: 0 / 0
12.03.2020, 09:10
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936533
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Vlad F
P.S. RefreshSQL как раз типа для подобных надобностей.


Напиши пример, please
...
Рейтинг: 0 / 0
12.03.2020, 09:10
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936534
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
antox
ъъъъъ

Зайчик, у TIBDataSet должны быть определены SelectSQL, ModifySQL, InsertSQL и RefreshSQL.
Ты, конечно же, их определил, и учел, что в RefreshSQL должна быть уточняющая where - кляуза.


Ты не из этих? :)

Я так понял, что в RefreshSQL я просто не указываю поле sumt2 и все, а что как-то можно указать в RefreshSQL, то sumt2 необходимо перезапросить?

Может, ты просто покажешь, что у тебя в RefreshSQL?
...
Рейтинг: 0 / 0
12.03.2020, 09:10
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936535
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
antox,

давай, вываливай все запросы. И изменяющие, и обновляющий.
...
Рейтинг: 0 / 0
12.03.2020, 09:11
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936536
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
ъъъъъ
antox
Проблема в том, что после ibDataSet.Post

Все же интересно, что в InsertSQL/UpdateSQL.


Сделал запрос:

Код: sql
1.
2.
3.
select t.*
from tab t
order by t.nam



вызвал автогенерацию InsertSQL/UpdateSQL/RefreshSQL

а потом в SelectSQL измени на

Код: sql
1.
2.
3.
select t.*, (select sum(mycount) from tab2 where tab_id=:tid) as sumt2
from tab t
order by t.nam



соответственно InsertSQL/UpdateSQL/RefreshSQL ничего не знает о sumt2
...
Рейтинг: 0 / 0
12.03.2020, 09:13
| Ответить | Цитировать | Написать  
IBX + FireBird несколько таблиц в запросе
    #39936537
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
antox

Я так понял, что в RefreshSQL я просто не указываю поле sumt2 и все, а что как-то можно указать в RefreshSQL, то sumt2 необходимо перезапросить?

А не задумывались, что проблема с тем, что после Post у вас в поле с суммой становится пустым, как раз из-за того, что вы в refreshsql его не указали?
...
Рейтинг: 0 / 0
12.03.2020, 09:14
| Ответить | Цитировать | Написать  
25 сообщений из 56, страница 1 из 3
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / IBX + FireBird несколько таблиц в запросе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39936519&tid=2038492]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 70ms
get tp. blocked users:
 1ms
others: 238ms
total:  388ms
созд. / загр.: 388ms
x
x
Закрыть


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