Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / IBX + FireBird несколько таблиц в запросе / 25 сообщений из 56, страница 1 из 3
  1  все
12.03.2020, 06:50
    #39936486
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Есть 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, 07:03
    #39936488
istrebitel
istrebitel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Не знаю как в вашем датасете, но обычно полю sumt2 назначают своиства
AutoGenerateValue = arDefault
FieldKind = fkInternalCalc
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2020, 07:12
    #39936490
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
istrebitel
Не знаю как в вашем датасете, но обычно полю sumt2 назначают своиства
AutoGenerateValue = arDefault
FieldKind = fkInternalCalc


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

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

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


Не, такого свойства нет (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2020, 07:53
    #39936503
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Нужно как-то перезапросить это поле с сервера и вставить, попробую вставить вручную
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2020, 08:14
    #39936505
istrebitel
istrebitel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Только сейчас обратил внимание у вас подзапрос не завязан на данные таблицы 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:27
    #39936507
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Это я ошибся

Код: 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:31
    #39936508
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Сделал такое извращение (повесил обработчик на 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:42
    #39936511
istrebitel
istrebitel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
Не поле делаешь 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:47
    #39936514
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
istrebitel,

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

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



ну, проверка понятно, а FreeAndNil прям на ноль чистит память?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2020, 09:00
    #39936519
ъъъъъ
ъъъъъ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
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:02
    #39936522
istrebitel
istrebitel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
GetText вызывается при каждом чтении поля, строка при скроллинге скрылась из Grid'а, скролим в обратном направлении, при появлении строки в гриде будет повторный вызов. OnCalcFields один вызов на строку, в момент фетчинга из базы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2020, 09:06
    #39936523
Vlad F
Vlad F
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
antox
Ну, это поле нельзя включать в RefreshSQL, иначе ошибка )

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

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


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

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

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


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

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


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

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

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

давай, вываливай все запросы. И изменяющие, и обновляющий.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2020, 09:13
    #39936536
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
ъъъъъ
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:14
    #39936537
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBX + FireBird несколько таблиц в запросе
antox

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

А не задумывались, что проблема с тем, что после Post у вас в поле с суммой становится пустым, как раз из-за того, что вы в refreshsql его не указали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / IBX + FireBird несколько таблиц в запросе / 25 сообщений из 56, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 513ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2038492]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 158ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 73ms
get tp. blocked users:
 1ms
others: 231ms
total:  513ms
x
x
Закрыть


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