opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

* Clear the database hint after reconnection.

Browse Source 
* 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
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/zeosdbo/src/component/ZConnection.pas
View File

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