Скачать: CL | DM;

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

← →
Л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

---

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

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

---

← →
Reindeer Moss Eater ©   (2004-08-30 15:28) [10]

можно ли так

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

---

← →
Rule ©   (2004-08-30 17:08) [11]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c