Как сделать свое сообщение на ошибку при отсутствии БД

← →
Л1 (2004-08-30 14:28) [0]

Есть БД - акцесс. При открытии формы происходит сооединение с БД
Connection2.Connected:=true;
Как сделать, если файлы не найдены, то Message... Не найдена БД

← →
sniknik © (2004-08-30 14:37) [1]

if fileexists("???????.???") then begin
//
Connection2.Connected:=true;
...
//
end else Message... Не найдена БД

← →
Digitman © (2004-08-30 14:53) [2]

> Л1

файл справки по MSAccessVBA для Пушкина писан ?

← →
Л1 (2004-08-30 14:56) [3]

Что то с этим кодом вообще не происходит соединение.

← →
sniknik © (2004-08-30 15:02) [4]

> Что то с этим кодом вообще не происходит соединение.
вопрос это вообщето в масках любая буква, предполагалось что заменится на реальное путь/имя базы.

← →
Л1 (2004-08-30 15:03) [5]

Да я и заменил на index-p.mdb. Файл лежит в той же папке где и программа.

← →
sniknik © (2004-08-30 15:08) [6]

> Файл лежит в той же папке где и программа.
на это лучше не закладыватся...
if fileexists(extractfilepath(application.exename)+"index-p.mdb") then begin
...

← →
Л1 (2004-08-30 15:22) [7]

Да теперь работает, только наооборот

if fileexists("???????.???") then begin
Message... Не найдена БД
//

...
//
end else Connection2.Connected:=true;

← →
Л1 (2004-08-30 15:26) [8]

А если происходи 2 коннекта можно ли так
if fileexists(extractfilepath(application.exename)+"index-p.mdb")
and
if fileexists(extractfilepath(application.exename)+"t-kod.mdb")
then
begin

> Да теперь работает, только наооборот
...
а говорил вопросы поменял... зачем вреш?

можно ли так

Если мама не против, то можно.

:))))) сохраню эту ветку :)

Как сделать свое сообщение на ошибку при отсутствии БД Найти похожие ветки