Progmatically ermitteln, welche Version von Ado installiert ist.

Progmatically ermitteln, welche Version von Ado installiert ist.

Progmatically ermitteln, welche Version von Ado installiert ist. : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Mit verschiedenen Versionen von MDAC verfügbar ist es manchmal sinnvoll zu wissen, dass Ihre Anwendung nicht wird nicht, denn ein Benutzer nicht die aktuellste Version installiert

Die folgende Funktion gibt die ADO-Version installiert, müssen Sie ComObj in der Klausel verwendet, um diese Funktion nutzen.
Funktion GetADOVersion: Double;
var
ADO: Variante;
beginnen
versuchen Sie
ADO: = CreateOLEObject('adodb.connection');
Ergebnis: = StrToFloat (ADO.) Version);
ADO: = Null;
mit Ausnahme von
Ergebnis: = 0.0;
Ende;
Ende;
Für die Verwendung dieser Funktion versuchen so etwas wie:
Prozedur TForm1.Button1Click(Sender: TObject);
const
ADOVersionNeeded = 2.5;
beginnen
Wenn GetADOVersion < ADOVersionNeeded dann
ShowMessage (' müssen MDAC Version 2,7' installieren)
sonst
ShowMessage (Format ('ADO-Version %n, ist OK', [GetADOVersion]));
Ende;

Grüße
Simon Carter
Orcka Entwicklung