Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Л1 © (2004-08-30 14:28:00)
Есть БД - акцесс. При открытии формы происходит сооединение с БД
Connection2.Connected:=true;
Как сделать, если файлы не найдены, то Message... Не найдена БД

Rule (2004-08-30 17:08:00) [1]
:))))) сохраню эту ветку :)

sniknik (2004-08-30 15:28:00) [2]
> Да теперь работает, только наооборот
...
а говорил вопросы поменял... зачем вреш?

Reindeer Moss Eater (2004-08-30 15:28:00) [3]
можно ли так

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

Л1 (2004-08-30 15:26:00) [4]
А если происходи 2 коннекта можно ли так
if fileexists(extractfilepath(application.exename)+'index-p.mdb')
and
if fileexists(extractfilepath(application.exename)+'t-kod.mdb')
then
begin

Л1 (2004-08-30 15:22:00) [5]
Да теперь работает, только наооборот

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

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

sniknik (2004-08-30 15:08:00) [6]
> Файл лежит в той же папке где и программа.
на это лучше не закладыватся...
if fileexists(extractfilepath(application.exename)+'index-p.mdb') then begin
...

Л1 (2004-08-30 15:03:00) [7]
Да я и заменил на index-p.mdb. Файл лежит в той же папке где и программа.

sniknik (2004-08-30 15:02:00) [8]
> Что то с этим кодом вообще не происходит соединение.
вопрос это вообщето в масках любая буква, предполагалось что заменится на реальное путь/имя базы.

Л1 (2004-08-30 14:56:00) [9]
Что то с этим кодом вообще не происходит соединение.

Digitman (2004-08-30 14:53:00) [10]

> Л1

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

sniknik (2004-08-30 14:37:00) [11]
if fileexists('???????.???') then begin
//
Connection2.Connected:=true;
...
//
end else Message... Не найдена БД

Наверх

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