Progmatically detectar cuál es la versión de ado está instalado.
Con diferentes versiones de MDAC disponible a veces es útil saber que su aplicación no fallará, ya que un usuario no tiene instalada la versión más reciente
La siguiente función devuelve el ADO versión instalada, es necesario colocar ComObj en la cláusula uses para utilizar esta función.
función GetADOVersion: Doble
var
& nbsp & nbsp ADO: Variante
begin
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp ADO := CreateOLEObject('adodb.conexión')
& nbsp & nbsp & nbsp & nbsp Resultado := StrToFloat(ADO.Versión)
& nbsp & nbsp & nbsp & nbsp ADO := Null
& nbsp & nbsp excepto
& nbsp & nbsp & nbsp & nbsp Resultado := 0.0
& nbsp & nbsp final
fin
Para utilizar esta función intente algo como:
procedure TForm1.Button1Click(Sender: TObject)
const
& nbsp & nbsp ADOVersionNeeded = 2.5
begin
& nbsp & nbsp si GetADOVersion < ADOVersionNeeded, a continuación,
& nbsp & nbsp & nbsp & nbsp ShowMessage('Necesita instalar la versión de MDAC 2.7')
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp ShowMessage(Format('ADO Versión %n, es ACEPTAR', [GetADOVersion]))
fin
saludos
Simon Carter
Orcka de Desarrollo
Progmatically detectar cual es la version de ado esta instalado.
Progmatically detectar cual es la version de ado esta instalado. : Multi-millones de consejos para hacer su vida mas facil.
Con diferentes versiones de MDAC disponible a veces es util saber que su aplicacion no fallara, ya que un usuario no tiene instalada la version mas reciente
La siguiente funcion devuelve el ADO version instalada, es necesario colocar ComObj en la clausula uses para utilizar esta funcion.
funcion GetADOVersion: Doble
var
& nbsp & nbsp ADO: Variante
begin
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp ADO := CreateOLEObject('adodb.conexion')
& nbsp & nbsp & nbsp & nbsp Resultado := StrToFloat(ADO.Version)
& nbsp & nbsp & nbsp & nbsp ADO := Null
& nbsp & nbsp excepto
& nbsp & nbsp & nbsp & nbsp Resultado := 0.0
& nbsp & nbsp final
fin
Para utilizar esta funcion intente algo como:
procedure TForm1.Button1Click(Sender: TObject)
const
& nbsp & nbsp ADOVersionNeeded = 2.5
begin
& nbsp & nbsp si GetADOVersion < ADOVersionNeeded, a continuacion,
& nbsp & nbsp & nbsp & nbsp ShowMessage('Necesita instalar la version de MDAC 2.7')
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp ShowMessage(Format('ADO Version %n, es ACEPTAR', [GetADOVersion]))
fin
saludos
Simon Carter
Orcka de Desarrollo
Progmatically detectar cuál es la versión de ado está instalado.
By Consejos Y Trucos
Progmatically detectar cuál es la versión de ado está instalado. : Multi-millones de consejos para hacer su vida más fácil. 