Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

MDAC   Найти похожие ветки 

← →
Юрий Жуков   (2001-12-26 10:27) [1]

Найдено на delphi3000.com:

function GetADOVersion: Double;
var
ADO: Variant;
begin
try
ADO := CreateOLEObject("adodb.connection");
Result := StrToFloat( ReplaceStr(ADO.Version,".",","));
ADO := Null;
except
Result := 0.0;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c