Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

Спасибо попробуем




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




Наверх





Память: 0.72 MB
Время: 0.012 c
3-80383           Demon ltd             2002-02-24 22:17  2002.03.25  
Выборка из базы через указание в edit е


1-80493           A.H.                  2002-03-12 19:26  2002.03.25  
TImage - почему у меня ничего не получается :-(( ??


1-80549           Aaz                   2002-03-09 06:22  2002.03.25  
Русский шрифт в консольном приложении


1-80596           .Horol.               2002-03-03 16:40  2002.03.25  
посылка нажатых клавиш в дос програму


7-80712           Mega                  2001-12-23 23:03  2002.03.25  
Отправка данных в LPT