-
Вот такой запрос: IBQFil.Close;
IBQFil.SQL.Clear;
IBQFil.SQL.Add('select a.accn_id, a.accn_name, a.curr_state, a.status, c.Cont_type, a.open_date from accn a');
IBQFil.SQL.Add('join cont c on c.cont_id=a.cont_id');
IBQFil.SQL.Add('where a.memb_id=:m'); далее в программе передаю параметр: IBQFil.Close;
IBQFil.Params[0].AsInteger:=IBQRef.FieldByName('memb_id').AsInteger;
S:=IBQFil.SQL.Text;
IBQFil.Open;
IBQFil.First; На помеченной строке программа зависает очень надолго (десятки минут) Если я на той же базе выполняю тот же запрос в IBExpert, передавая ему тот же параметр, то запрос выполняется мгновенно. Кроме того, в программе этот запрос выполняется в цикле, и зависает только при первой итерации цикла, в остальных итерациях тоже отрабатывает мгновенно. Я пробовал проделать это на двух разных базах (базы разных филиалов), получается тоже самое - первая итерация - зависание, последующие итерации - нормально. От чего может быть это зависание и как с ним бороться?
-
в Firebird первый может тормозить из за начальной подгрузки dll, если например ембедед версия используется. сервер в принципе тоже время на "раскрутку" может требовать, но десятки минут... это черезчур в обоих случаях, это у тебя в программе глюк.
-
автоматическая сборка мусора?
-
> этот запрос выполняется в цикле
Перед первой итерацией коннект с базой уже установлен ?
-
procedure TMainForm.BRefRemNPOClick(Sender: TObject);
var ...
begin
puth:=GetCurrentDir;
try
if not IBDBRemContr.Connected then
begin
IBDBRef.DatabaseName:='localhost:'+puth+'\Users.fdb';
IBDBRef.Params.Add('user_name=SYSDBA');
IBDBRef.Params.Add('password=masterkey');
IBDBRef.Connected:=true;
end;
IBQFil.Close;
IBQFil.SQL.Clear;
IBQFil.SQL.Add('select a.accn_id, a.accn_name, a.curr_state, a.status, c.Cont_type, a.open_date from accn a');
IBQFil.SQL.Add('join cont c on c.cont_id=a.cont_id');
IBQFil.SQL.Add('where a.memb_id=:m');
for i:=1 to 28 do
begin
IBDBFil.Connected:=false;
IBDBFil.DatabaseName:='localhost:'+Puth+'\npfe_'+IntToStr(i)+'.fdb';
IBDBFil.Params.Add('user_name=SYSDBA');
IBDBFil.Params.Add('password=masterkey');
try
IBDBFil.Connected:=true;
except
ShowMessage('Нет соединения с базой');
continue;
end;
IBQKorpFlag.Close;
IBQKorpFlag.Open;
IBQRef.Close;
IBQRef.SQL.Clear;
IBQRef.SQL.Add('select count(*) as kol from users where filial_no=:f');
IBQRef.Params[0].Value:=i;
IBQRef.Open;
PB3.Max:=IBQRef.FieldByName('kol').AsInteger;
IBQRef.Close;
IBQRef.SQL.Clear;
IBQRef.SQL.Add('select id, memb_id from users where filial_no=:f');
IBQRef.Params[0].Value:=i;
IBQRef.Open;
IBQRef.First;
PB3.Position:=0;
while not IBQRef.Eof do
begin
PB3.Position:=PB3.Position+1;
IBQFil.Close;
IBQFil.Params[0].AsInteger:=IBQRef.FieldByName('memb_id').AsInteger;
S:=IBQFil.SQL.Text;
IBQFil.Open;
IBQFil.First;
while not IBQFil.Eof do Вот полностью код процедуры до места зависания. Не вижу места для глюка :о)). Коннект с базой установлен, как видно из приведенного кода.
-
> for i:=1 to 28 do begin IBDBFil.Connected:=false;
диковинная штука
> PB3.Position:=0;
IBQFil.Prepare;
> while not IBQRef.Eof do
> begin
> PB3.Position:=PB3.Position+1; IBQFil.Close;
> IBQFil.Params[0].AsInteger:=IBQRef.FieldByName('memb_id').
> AsInteger;
-
> IBQFil.Prepare;
Prepare действительно надо делать до передачи параметра запросу?
-
Теперь также точно виснет на IBQFil.Prepare;
-
База объемом 400 Мб, но BDQRef возвращает примерно 60 тысяч записей. Зависание при первой итерации цикла примерно 30 минут, при открытии IBQFil. IBQFil возвращает от 1 до десяти записей. База другого филиала, весит примерно 250 Мб, зависает при первой итерации примерно на 10 минут. Но баз у меня 28 штук, таких больших штук 8, остальные до 100 Мб.
-
> но BDQRef возвращает
пардон, IBQRef
-
> Prepare действительно надо делать до передачи параметра запросу?
только тип параметра установи до этого
> Теперь также точно виснет на IBQFil.Prepare;
сборку мусора делал?
-
> сборку мусора делал?
Пардон за глупый вопрос: а как?
-
> Пардон за глупый вопрос: а как?
простейший способ - через gfix -sweep
-
Сделал, результат нулевой. Тоесть виснет также. Перед gfix сделал еще backup/restore...
-
есть одна мысль. замечал такие тормоза, когда клиентская библиотека gds32.dll была от Interbase а сервер - firebird.
IBQFil это TIBQuery? попробуй на TIBSQL поменять, он легче и быстрее
-
Приведи метаданные для accn, cont. И план запроса.
-
Приведи метаданные для accn, cont. И план запроса.
-
Попробуй подконнектиться к базе из Firebird 2.0 и выше и задать параметры транзакции isc_tpb_read_commited isc_tpb_write isc_tpb_rec_version isc_tpb_nowait Если глюк не вопроизведется, то батенька запустили Вы ваши базы данных. Backup-Retore им нуна срочно. Да, кстати, чуть не забыл
...............
BDBFil.Connected:=false;
IBDBFil.DatabaseName:='localhost:'+Puth+'\npfe_'+IntToStr(i)+'.fdb';
IBDBFil.Params.Add('user_name=SYSDBA');
IBDBFil.Params.Add('password=masterkey');
......
Где чарсет подключения ?
IBDBFil.Params.Add('lc_ctype=WIN1251');
-
> запустили Вы ваши базы данных. Backup-Retore им нуна срочно.
ты невнимателен
см [13]
-
Все решилось очень странным образом, я еще буду разбираться, что сие означает. Взял с сервера более свежие базы филиалов - и все заработало без проблем. На базах месячной давности все висло, несмотря на backup/restore и gfix -sweep
|
Есть новые 
Нет новых [134477 +39][b:0][p:0.002]