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

Remove driver stuff from MS SQL error messages.

Browse Source
This commit is contained in:
Ansgar Becker
2011-04-04 06:16:32 +00:00
parent 049e4bb526
commit e5c8df2ecb
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/dbconnection.pas
View File

@ -1602,10 +1602,19 @@ end;
function TAdoDBConnection.GetLastError: String; function TAdoDBConnection.GetLastError: String;
var var
Msg: String;
rx: TRegExpr;
E: Error; E: Error;
begin begin
E := FAdoHandle.Errors[FAdoHandle.Errors.Count-1]; E := FAdoHandle.Errors[FAdoHandle.Errors.Count-1];
Result := Format(MsgSQLError, [E.NativeError, E.Description]); Msg := E.Description;
// Remove stuff from driver in message "[DBNETLIB][ConnectionOpen (Connect()).]"
rx := TRegExpr.Create;
rx.Expression := '^\[DBNETLIB\]\[.*\](.+)$';
if rx.Exec(Msg) then
Msg := rx.Match[1];
rx.Free;
Result := Format(MsgSQLError, [E.NativeError, Msg]);
end; end;