* Clear the database hint after reconnection.

* Make the connected hint public, so an outside caller can check whether a Reconnect() is useful or not.
This commit is contained in:
rosenfield.albert
2009-03-04 14:14:34 +00:00
parent 1f112b6556
commit af6d15e0e9

View File

@ -158,7 +158,6 @@ type
procedure DoRollback;
procedure DoStartTransaction;
procedure CheckConnected;
procedure CheckAutoCommitMode;
procedure CheckNonAutoCommitMode;
@ -185,6 +184,7 @@ type
function GetAffectedRowsFromLastPost: Int64;
function GetThreadId: Cardinal;
function GetEscapeString(const Value: string): string;
procedure CheckConnected;
procedure StartTransaction; virtual;
procedure Commit; virtual;
@ -704,6 +704,7 @@ begin
try
FConnection.Close;
FConnection.Open;
Database := '';
except
CloseAllDataSets;
raise;