AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Datenbanken Delphi ADO Datenbank ermitteln

ADO Datenbank ermitteln

Ein Thema von shmia · begonnen am 4. Mai 2006
Antwort Antwort
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#1

ADO Datenbank ermitteln

  Alt 4. Mai 2006, 12:11
Mit folgenden Funktionen kann der Datenbankhersteller (Access, Oracle, ...) ermittelt werden:

Delphi-Quellcode:
uses ADODB;

interface
  // Typ der Datenbankverbindung feststellen
  function IsAccessConnection(cn: TADOConnection): Boolean;
  function IsSQLServerConnection(cn: TADOConnection): Boolean;
  function IsMySQLConnection(cn: TADOConnection): Boolean;
  function IsOracleConnection(cn: TADOConnection): Boolean;
  function IsODBCConnection(cn: TADOConnection): Boolean;

type
   TADOConnectionType = ( ctMSAccess, ctMSSqlServer, ctMySQL, ctOracle, ctUnknown,
   ctODBC );

function GetADOConnectionType(cn: TADOConnection): TADOConnectionType;

implementation

uses SysUtils;

function PosIgnoreCase(const SubStr, S: string): Integer;
begin
   Result := Pos(UpperCase(SubStr),UpperCase(S));
end;


function IsAccessConnection(cn: TADOConnection): Boolean;
begin
  Result := PosIgnoreCase('Microsoft.Jet.OLEDB.',cn.Provider) > 0;
end;

function IsSQLServerConnection(cn: TADOConnection): Boolean;
begin
  Result := (PosIgnoreCase(\\\'SQLOLEDB\\\',cn.Provider) > 0) or
    // SQL Native Client von SQL Server 2005
    (PosIgnoreCase(\\\'SQLNCLI\\\',cn.Provider) > 0);
end;

function IsMySQLConnection(cn: TADOConnection): Boolean;
begin
  // Warning !!! untested
  Result := PosIgnoreCase('MYSQLOLEDB',cn.Provider) > 0;
end;

function IsOracleConnection(cn: TADOConnection): Boolean;
begin
  // Warning !!! untested
  Result := PosIgnoreCase('MSDAORA',cn.Provider) > 0;
end;

function IsODBCConnection(cn: TADOConnection): Boolean;
begin
  Result := PosIgnoreCase('MSDASQL', cn.Provider) > 0;
end;

function GetADOConnectionType(cn: TADOConnection): TADOConnectionType;
begin
  Result := ctUnknown;
  if not Assigned(cn) then
    Exit;

  if IsAccessConnection(cn) then
    Result := ctMSAccess
  else if IsSQLServerConnection(cn) then
    Result := ctMSSqlServer
  else if IsMySQLConnection(cn) then
    Result := ctMySQL
  else if IsOracleConnection(cn) then
    Result := ctOracle
  else if IsODBCConnection(cn) then
    Result := ctODBC;
end;

end.
[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=Phoenix]Für shmia Korrektur bzgl. SQL Server 2005 eingefügt. Mfg, Phoenix[/edit]
Andreas
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf