Как определить IN APP, если.mdb(база данных доступа), созданная из приложения Delphi, уже существует или нет?

Я пишу проект Delphi, где мне нужно создать базу данных доступа. Я использую ADOX для этой цели.

Позвольте мне признаться, я новичок, когда дело доходит до обработки БД, и я следовал учебнику по сети и успешно создан процедурой CreateDatabase. Что я хочу сделать, так это убедиться, что база данных с заданным именем не существует, и ТОЛЬКО затем создать базу данных.

Procedure CreateDatabase(DB_Name:String);
var
path:String;
dataSource : String;
DB : String;
Begin
  Path := WindowsDirectory;{Its another function}
  delete(Path, 2, length(path));
  DB := Path+':\'+DB_Name+'.mdb';
  DataSource :=
    'Provider=Microsoft.Jet.OLEDB.4.0' +
    ';Data Source=' + DB +
    ';Jet OLEDB:Engine Type=4';
    Form1.ADOXCatalog1.Create1(DataSource);
End;

Я видел подобные вопросы на mySql dbs, но ни одного на access dbs, и я не смог найти никакого решения проблемы.

Псевдо-код формы того, что я хочу:

if (DatabaseExists(DB_Name)) then
   do_something
else 
   create_db

Некоторая помощь по этому вопросу будет полезна. Благодарю вас:)

С уважением Приябрата Чакраверти

Источник

1 ответ

Решение

Проверка того, существует ли база данных, - это просто проверка наличия файла базы данных. Как предложил Маркус Адамс в комментарии выше, функция Дельфи FileExists должен сделать свое дело.

Источник
Другие вопросы по тегам