| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Определить Сушествование ADO, ;ODBS ??? [D3, D5, MSSQL]

MetallAdm ©   (2002-02-24 15:30:00) 

Вобшем то сабж
А поточнее как сделать так что бы он не пытался конектится на той машине у которой нет не BDE ни того не другово
А то вылетает с ошибкой типа "программа выполнила недопустимую операцию и все такое ... "


Заранее благодарю.

---

MetallAdm   (2002-02-25 13:05:00) [1]

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

---

Upendra   (2002-02-25 10:48:00) [2]

Маленька поправка для дельфи 6
....
ADO := CreateOLEObject("adodb.connection");
.....
ADO := Unassigned;

---

Юрий Жуков   (2002-02-25 08:54:00) [3]

//Возврасчает версию 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;

---

sniknik   (2002-02-25 02:44:00) [4]

Установлена ли 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;

---

Наверх