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

Azure support:

Browse Source 
* Add text from @@VERSION value into FServerVersionUntouched so TConnectionParameters.IsAzure can see "Azure" in it.
* Do not bypass required (!) USE query when IsAzure was detected
* Display a special MS Azure icon in the tree and in the status bar
This commit is contained in:
Ansgar Becker
2015-04-07 16:37:31 +00:00
parent f8e75b5d2e
commit 34f70eaf08
3 changed files with 50 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/dbconnection.pas
View File

@ -1321,7 +1321,10 @@ begin
else if IsInfiniDB then Result := 172
else if IsInfobright then Result := 173;
end;
ngMSSQL: Result := 123;
ngMSSQL: begin
Result := 123;
if IsAzure then Result := 188;
end;
ngPgSQL: Result := 187;
else Result := ICONINDEX_SERVER;
end;
@ -1822,7 +1825,7 @@ begin
// Try to get more exact server version to avoid displaying "20.14" in some cases
ServerVersion := GetVar('SELECT SERVERPROPERTY('+EscapeString('ProductVersion')+')');
if ExecRegExpr('(\d+)\.(\d+)\.(\d+)\.(\d+)', ServerVersion) then
FServerVersionUntouched := ServerVersion;
FServerVersionUntouched := Copy(FServerVersionUntouched, 1, Pos(' - ', FServerVersionUntouched)+2) + ServerVersion;
except
// Above query only works on SQL Server 2008 and newer
// Keep value from SELECT @@VERSION on older servers
@ -2153,8 +2156,6 @@ begin
FSQLSpecifities[spDbObjectsTypeCol] := 'type';
end;
end;
if Parameters.IsAzure and (not Parameters.AllDatabasesStr.IsEmpty) then
SetDatabase(Parameters.AllDatabasesStr);
end;
@ -2859,8 +2860,7 @@ begin
Value := EscapeString(Value)
else
Value := QuoteIdent(Value);
if not Parameters.IsAzure then
Query(Format(GetSQLSpecifity(spUSEQuery), [Value]), False);
Query(Format(GetSQLSpecifity(spUSEQuery), [Value]), False);
end;
SetObjectNamesInSelectedDB;
end;