Форум: "Базы";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
ВнизОпределить Сушествование ADO, ODBS ??? Найти похожие ветки
← →
MetallAdm (2002-02-24 15:30) [0]Вобшем то сабж
А поточнее как сделать так что бы он не пытался конектится на той машине у которой нет не BDE ни того не другово
А то вылетает с ошибкой типа "программа выполнила недопустимую операцию и все такое ... "
Заранее благодарю.
← →
sniknik (2002-02-25 02:44) [1]Установлена ли BDE
uses
Bde;
function BDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = 0)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if BDEInstalled then
ShowMessage("BDE is installed.")
else
ShowMessage("BDE is not installed.")
end;
← →
Юрий Жуков (2002-02-25 08:54) [2]//Возврасчает версию ADO
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;
← →
Upendra (2002-02-25 10:48) [3]Маленька поправка для дельфи 6
....
ADO := CreateOLEObject("adodb.connection");
.....
ADO := Unassigned;
← →
MetallAdm (2002-02-25 13:05) [4]Спасибо попробуем
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c