В ходе переноса данных из удаленной базы данных на локальную обнаружил презабавный глюк, который вылавливал несколько часов.
Приведу запросы полностью, чтоб что-то случайно не затереть, хотя все дело было в 2-х блоб-полях: CARDCOMMENTS и CARDPROPS, значение которых во всех записях - пустая строка (не нулл).
Зная, что на форуме есть представители команды разработчиков ФБ, думаю, обратят на этот нюанс внимание.
Итак - обычное извлечение 100 первых записей занимает у меня 24 секунды. Это очень много, так как записей 20 тыс.
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.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
execute block
as
declare variable CARDID type of column CARDS.CARDID;
declare variable CARDNAME type of column CARDS.CARDNAME;
declare variable CARDOWNER type of column CARDS.CARDOWNER;
declare variable TELNO type of column CARDS.TELNO;
declare variable CARDTYPE type of column CARDS.CARDTYPE;
declare variable CARDDATE type of column CARDS.CARDDATE;
declare variable CARDDISCNT type of column CARDS.CARDDISCNT;
declare variable CARDBLOCKED type of column CARDS.CARDBLOCKED;
declare variable CARDTOTAL type of column CARDS.CARDTOTAL;
declare variable OWNERDOC type of column CARDS.OWNERDOC;
declare variable DATEBIRTH type of column CARDS.DATEBIRTH;
declare variable CARDCOMMENTS type of column CARDS.CARDCOMMENTS;
declare variable LASTDATE type of column CARDS.LASTDATE;
declare variable DBDATE type of column CARDS.DBDATE;
declare variable CARDAMOUNT type of column CARDS.CARDAMOUNT;
declare variable CARDPROPS type of column CARDS.CARDPROPS;
declare variable CARDSTATUS type of column CARDS.CARDSTATUS;
begin
for execute statement 'select first 100 CARDID, CARDNAME, CARDOWNER, TELNO, CARDTYPE, CARDDATE, CARDDISCNT, CARDBLOCKED,
CARDTOTAL, OWNERDOC, DATEBIRTH, CARDCOMMENTS , LASTDATE, DBDATE, CARDAMOUNT, CARDPROPS,
CARDSTATUS from cards'
on external data source '192.168.97.1:d:\basa\dbserver.fdb'
as user 'SYSDBA' password 'masterkey'
into :CARDID, :CARDNAME, :CARDOWNER, :TELNO, :CARDTYPE, :CARDDATE, :CARDDISCNT, :CARDBLOCKED, :CARDTOTAL,
:OWNERDOC, :DATEBIRTH, :CARDCOMMENTS, :LASTDATE, :DBDATE, :CARDAMOUNT, :CARDPROPS, :CARDSTATUS
do
begin
update or insert into CARDS (CARDID, CARDNAME, CARDOWNER, TELNO, CARDTYPE, CARDDATE, CARDDISCNT, CARDBLOCKED,
CARDTOTAL, OWNERDOC, DATEBIRTH, CARDCOMMENTS, LASTDATE, DBDATE, CARDAMOUNT, CARDPROPS,
CARDSTATUS)
values (:CARDID, :CARDNAME, :CARDOWNER, :TELNO, :CARDTYPE, :CARDDATE, :CARDDISCNT, :CARDBLOCKED, :CARDTOTAL,
:OWNERDOC, :DATEBIRTH, :CARDCOMMENTS, :LASTDATE, :DBDATE, :CARDAMOUNT, :CARDPROPS, :CARDSTATUS);
end
end
Как удалось повысить скорость на несколько порядков!!!!! - в селекте на удаленной БД приводим блоб-поле к типу varchar. И скорость выполнения запроса падает до 0,3 с!!!!!! Причем, объявление локальных переменных простого строкового типа ускорения не дало, только приведение типа в самом запросе.
Настройки серверов ФБ что на локальной, что на удаленной машинах одинаковые, дефолтные, суперсервер, v3.0.4, соединение по ВПН по инету со скоростью 10мбит (не в инете дело)
Вот слегка модифицированный предыдущий запрос, который решил проблему тормозов.
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.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
execute block
as
declare variable CARDID type of column CARDS.CARDID;
declare variable CARDNAME type of column CARDS.CARDNAME;
declare variable CARDOWNER type of column CARDS.CARDOWNER;
declare variable TELNO type of column CARDS.TELNO;
declare variable CARDTYPE type of column CARDS.CARDTYPE;
declare variable CARDDATE type of column CARDS.CARDDATE;
declare variable CARDDISCNT type of column CARDS.CARDDISCNT;
declare variable CARDBLOCKED type of column CARDS.CARDBLOCKED;
declare variable CARDTOTAL type of column CARDS.CARDTOTAL;
declare variable OWNERDOC type of column CARDS.OWNERDOC;
declare variable DATEBIRTH type of column CARDS.DATEBIRTH;
declare variable CARDCOMMENTS type of column CARDS.CARDCOMMENTS;
declare variable LASTDATE type of column CARDS.LASTDATE;
declare variable DBDATE type of column CARDS.DBDATE;
declare variable CARDAMOUNT type of column CARDS.CARDAMOUNT;
declare variable CARDPROPS type of column CARDS.CARDPROPS;
declare variable CARDSTATUS type of column CARDS.CARDSTATUS;
begin
for execute statement 'select first 100 CARDID, CARDNAME, CARDOWNER, TELNO, CARDTYPE, CARDDATE, CARDDISCNT, CARDBLOCKED,
CARDTOTAL, OWNERDOC, DATEBIRTH, cast(CARDCOMMENTS as varchar(2000)), LASTDATE, DBDATE, CARDAMOUNT, cast(CARDPROPS as varchar(2000)),
CARDSTATUS from cards'
on external data source '192.168.97.1:d:\basa\dbserver.fdb'
as user 'SYSDBA' password 'masterkey'
into :CARDID, :CARDNAME, :CARDOWNER, :TELNO, :CARDTYPE, :CARDDATE, :CARDDISCNT, :CARDBLOCKED, :CARDTOTAL,
:OWNERDOC, :DATEBIRTH, :CARDCOMMENTS, :LASTDATE, :DBDATE, :CARDAMOUNT, :CARDPROPS, :CARDSTATUS
do
begin
update or insert into CARDS (CARDID, CARDNAME, CARDOWNER, TELNO, CARDTYPE, CARDDATE, CARDDISCNT, CARDBLOCKED,
CARDTOTAL, OWNERDOC, DATEBIRTH, CARDCOMMENTS, LASTDATE, DBDATE, CARDAMOUNT, CARDPROPS,
CARDSTATUS)
values (:CARDID, :CARDNAME, :CARDOWNER, :TELNO, :CARDTYPE, :CARDDATE, :CARDDISCNT, :CARDBLOCKED, :CARDTOTAL,
:OWNERDOC, :DATEBIRTH, :CARDCOMMENTS, :LASTDATE, :DBDATE, :CARDAMOUNT, :CARDPROPS, :CARDSTATUS);
end
end
|
