paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 07:26:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

sqldb: implemented TCustomConnection.Close(ForceClose : Boolean = False);

Browse Source 
git-svn-id: trunk@23728 -
This commit is contained in:
ludob 2013-03-08 13:15:53 +00:00
parent 43e0116f61
commit bb735aa7e5
3 changed files with 33 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/base/database.inc
View File

@ -541,9 +541,14 @@ begin
end;
end;
procedure TCustomConnection.Close;
procedure TCustomConnection.Close(ForceClose : Boolean = False);
begin
Connected := False;
try
ForcedClose:=ForceClose;
Connected := False;
finally
ForcedClose:=false;
end;
end;
destructor TCustomConnection.Destroy;

4
packages/fcl-db/src/base/db.pas
View File

@ -1882,6 +1882,7 @@ type
FAfterDisconnect: TNotifyEvent;
FBeforeConnect: TNotifyEvent;
FBeforeDisconnect: TNotifyEvent;
FForcedClose: Boolean;
FLoginPrompt: Boolean;
FOnLogin: TLoginEvent;
FStreamedConnected: Boolean;
@ -1898,9 +1899,10 @@ type
procedure InternalHandleException; virtual;
procedure Loaded; override;
procedure SetConnected (Value : boolean); virtual;
property ForcedClose : Boolean read FForcedClose write FForcedClose;
property Streamedconnected: Boolean read FStreamedConnected write FStreamedConnected;
public
procedure Close;
procedure Close(ForceClose: Boolean=False);
destructor Destroy; override;
procedure Open;
property DataSetCount: Longint read GetDataSetCount;

27
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -572,7 +572,16 @@ begin
C.FStatement := stringsreplace(C.FStatement,ParamNames,ParamValues,[rfReplaceAll]);
end;
if mysql_query(FMySQL,Pchar(C.FStatement))<>0 then
MySQLError(FMYSQL,SErrExecuting,Self)
begin
if not ForcedClose then
MySQLError(FMYSQL,SErrExecuting,Self)
else //don't return a resulset. We are shutting down, not opening.
begin
C.RowsAffected:=0;
C.FSelectable:= False;
C.FRes:=nil;
end;
end
else
begin
C.RowsAffected := mysql_affected_rows(FMYSQL);
@ -581,7 +590,17 @@ begin
repeat
Res:=mysql_store_result(FMySQL); //returns a null pointer also if the statement didn't return a result set
if mysql_errno(FMySQL)<>0 then
MySQLError(FMySQL, SErrGettingResult, Self);
begin
if not ForcedClose then
MySQLError(FMySQL, SErrGettingResult, Self)
else
begin
C.RowsAffected:=0;
C.FSelectable:= False;
C.FRes:=nil;
break;
end;
end;
if Res<>nil then
begin
mysql_free_result(C.FRes);
@ -1145,7 +1164,7 @@ end;
function TConnectionName.Commit(trans: TSQLHandle): boolean;
begin
//mysql_commit(FMySQL);
Result := mysql_query(FMySQL, 'COMMIT') = 0;
Result := (mysql_query(FMySQL, 'COMMIT') = 0) or ForcedClose;
if not Result then
MySQLError(FMySQL, SErrExecuting, Self);
end;
@ -1153,7 +1172,7 @@ end;
function TConnectionName.RollBack(trans: TSQLHandle): boolean;
begin
//mysql_rollback(FMySQL);
Result := mysql_query(FMySQL, 'ROLLBACK') = 0;
Result := (mysql_query(FMySQL, 'ROLLBACK') = 0) or ForcedClose;
if not Result then
MySQLError(FMySQL, SErrExecuting, Self);
end;