Progmatically détecter la version d'ado est installé.

Progmatically detecter la version d'ado est installe.

Progmatically detecter la version d'ado est installe. : Plusieurs milliers de conseils pour vous faciliter la vie.

Avec les differentes versions de MDAC disponibles, il est parfois utile de savoir que votre application ne va pas echouer parce que l'utilisateur n'a pas installe la derniere version

la fonction suivante renvoie La ADO version installee, vous devez la placer ComObj dans la clause uses de l'utilisation de cette fonction.
fonction de GetADOVersion: Double
var
& nbsp & nbsp ADO: Variant
begin
& nbsp & nbsp essayer
& ! & ! & ! & nbsp ADO := CreateOLEObject ('adodb.connexion')
& ! & ! & ! & nbsp Resultat := StrToFloat(ADO.Version)
& ! & ! & ! & nbsp ADO := Null
& nbsp & nbsp a l'exception de
& ! & ! & ! & nbsp Resultat := 0.0
& nbsp & nbsp fin
fin
Pour utiliser cette fonction, essayez quelque chose comme:
procedure TForm1.Button1Click(Sender: TObject)
const
& nbsp & nbsp ADOVersionNeeded = 2.5
begin
& nbsp & nbsp si GetADOVersion < ADOVersionNeeded puis
& ! & ! & ! & nbsp ShowMessage('Besoin pour installer la version de MDAC 2.7')
& nbsp & nbsp else
& ! & ! & ! & nbsp ShowMessage(Format('ADO Version %n, est OK', [GetADOVersion]))
fin

salutations
Simon Carter
Orcka Developpement