OK,

no attachments in this mailing list.

86300 Error 000007D0 0 Dynamic SQL Error (17) SQL error code = -501 (21) Attempt to reclose a
004F8231 DoTheFetch in IB_Components.pas (23457) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F82BD TIB_Statement::API_QuickFetch in IB_Components.pas (23474) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F814E TIB_Statement::API_Execute2 in IB_Components.pas (23422) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F6965 TIB_Statement::SysExecute in IB_Components.pas (22752) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004FEC1C TIB_Dataset::SysExecute in IB_Components.pas (26745) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00526E81 TIB_StoredProc::SysExecute in IB_StoredProc.pas (216) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004FDE75 TIB_Dataset::Execute in IB_Components.pas (26337) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00526E73 TIB_StoredProc::Execute in IB_StoredProc.pas (211) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
0064CDF4 TAppCtrl::GetRootObject in AppControl.pas (1329) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
0064D131 TAppCtrl::SetRootFolder in AppControl.pas (1414) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
160640 Error 000007D0 0 Dynamic SQL Error (17) SQL error code = -501 (21) Attempt to reclose a
004F8231 DoTheFetch in IB_Components.pas (23457) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F82BD TIB_Statement::API_QuickFetch in IB_Components.pas (23474) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F814E TIB_Statement::API_Execute2 in IB_Components.pas (23422) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F6965 TIB_Statement::SysExecute in IB_Components.pas (22752) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004FEC1C TIB_Dataset::SysExecute in IB_Components.pas (26745) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00526E81 TIB_StoredProc::SysExecute in IB_StoredProc.pas (216) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004FDE75 TIB_Dataset::Execute in IB_Components.pas (26337) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00526E73 TIB_StoredProc::Execute in IB_StoredProc.pas (211) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00657BE5 TAppCtrl::_GetPathOfObject_ in AppControl.pas (5618) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00651655 TAppCtrl::GetPathOfObject in AppControl.pas (3000) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00666CFA TAppCtrl::PyCreateObject in AppControl.pas (9928) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
163391 Error 000007D0 0 Dynamic SQL Error (17) SQL error code = -501 (21) Attempt to reclose a
004F8231 DoTheFetch in IB_Components.pas (23457) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F82BD TIB_Statement::API_QuickFetch in IB_Components.pas (23474) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F814E TIB_Statement::API_Execute2 in IB_Components.pas (23422) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004F6965 TIB_Statement::SysExecute in IB_Components.pas (22752) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004FEC1C TIB_Dataset::SysExecute in IB_Components.pas (26745) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00526E81 TIB_StoredProc::SysExecute in IB_StoredProc.pas (216) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
004FDE75 TIB_Dataset::Execute in IB_Components.pas (26337) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00526E73 TIB_StoredProc::Execute in IB_StoredProc.pas (211) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
0064C950 TAppCtrl::CreateObject in AppControl.pas (1174) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe
00666CFA TAppCtrl::PyCreateObject in AppControl.pas (9928) C:\workdir\wNewsNet30\wNewsNet\bin\wns.exe



Original Message processed by Tobit InfoCenter
Subject: [firebird-support] SQL Error code 0 or 501 (09-Okt-2004 13:30)
From: mw@...
To: mw@...


Hi,

currently I'm facing some trouble with stored procedures.
On a heavy load system. I'm getting some errors wich are
I cannot explain.

My System:

Firebird 1.5.1
Windows XP P/2003 Server
Delphi 7E
IBO 4.3.Aa

Tools:

MemProof 0.9.4.8

1) sometimes I get an error without any
ISC or SQL Errornumber like:

2004 Oct 07 6:52:56 PM:WPS::ERROR:db error: SQL:0 ISC:0
2004 Oct 07 6:52:56 PM:WPS::ISC--> 0
2004 Oct 07 6:52:56 PM:WPS::ISC--> 0
2004 Oct 07 6:52:56 PM:WPS::SQL--> delete from ACTIVE_QUEUE_TAB
where ACTIVE_QUEUE_ID = ? /* id */

2004 Oct 07 6:52:56 PM:WPS:::<DeleteActiveQueueEntry> failed

What's this ???

2) MemProof shows a lot of errors (see attachment).
The calling code for the procedure in the Screenshot is:

function TAppCtrl.GetRootObject: integer;
var
sproc: TIB_StoredProc;
{$IFDEF DEBUG_VER}
c, n1, n2: TLargeInteger;
{$ENDIF}
begin
{$IFDEF DEBUG_VER}
QueryPerformanceFrequency(c);
QueryPerformanceCounter(n1);
{$ENDIF}
sproc := TIB_StoredProc.Create(nil);
sproc.IB_Connection := _ProdBase;
sproc.IB_Transaction := _ScriptTransaction;
sproc.OnError := _OnIBError;
sproc.Name := 'GET_OBJECT_ID';
sproc.StoredProcName := 'GET_OBJECT_ID';
try
with sproc do
begin
ParamByName('PARENTID').AsInteger := 0;
ParamByName('OBJ').AsString := '__rootlevel__';

ExecProc;

Result := ParamByName('OBJECTID').AsInteger;
if ParamByName('INSERTED').AsInteger <> 0 then
FNewObjectsCreated := True;
end;
except
sproc.Free;
raise;
end;

sproc.Free;
{$IFDEF DEBUG_VER}
QueryPerformanceCounter(n2);
WriteLog(Format('ƒƒ-> GetRootObject T = %g <-ƒƒ', [(n2 - n1) / c]));
{$ENDIF}

end;
//#---------------------------------------------------------------------

The DoTheFetch Method in IB_Components has some comments about a 'Bug' I do not
really understand this. Has this something to do with my Problems ?

.
// There seems to be a bug where a cursor on the server is not getting closed.
// Or, it could be getting opened when it should not be.
// Added code below to attempt to avoid/recover.
if ( errcode = 0 ) and Assigned( Out_DA ) then
isc_dsql_free_row_statement( @status, PstHandle, DSQL_CLOSE );
.
// There seems to be a bug where the server is losing the compile.
// Added code below to attempt to recover.
if ( errcode = isc_dsql_error ) or
( errcode = isc_port_len ) then
begin
if ClientMonitorHooksIn then
begin
MonitorText := '//>>> STATEMENT PREPARED <<<//'#13#10 +
'TIB_Statement.API_QuickFetch()'#13#10 +
'Recovery from lost server compile needed.'#13#10 +
Self.ClassName + ': "';
if Assigned( Self.Owner ) and ( Self.Owner.Name <> '' ) then
MonitorText := MonitorText + Self.Owner.Name + '.';
MonitorText := MonitorText + Self.Name +
'" stHandle=' + IntToStr(Integer(PstHandle^)) + ' #QF';
OutputToMonitor( MonitorText );
end;
if not StoredProcHasDML then
begin
asm fstcw [SaveCW] end;
tmperr := isc_dsql_prepare( @tmpstatus,
PtrHandle,
PstHandle,
null_terminated,
PChar(ServerSQL),
SQLDialect,
Out_DA );
asm fldcw [SaveCW] end;
if tmperr = 0 then
begin
asm fstcw [SaveCW] end;
DoTheFetch;
asm fldcw [SaveCW] end;
end;
end;
end;

Thanks in advance
Maik

To: firebird-support@yahoogroups.com
Cc: IBObjects@yahoogroups.com


[Non-text portions of this message have been removed]


Yahoo! Groups Sponsor
ADVERTISEMENT






Yahoo! Groups Links

To visit your group on the web, go to:
http://groups.yahoo.com/group/firebird-support/

To unsubscribe from this group, send an email to:
firebird-support-unsubscribe@yahoogroups.com

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.


[Non-text portions of this message have been removed]