Database 如何在应用程序中确定从delphi应用程序创建的.mdb(access数据库)是否已经存在?

Database 如何在应用程序中确定从delphi应用程序创建的.mdb(access数据库)是否已经存在?,database,delphi,ms-access,exists,adox,Database,Delphi,Ms Access,Exists,Adox,我正在写一个delphi项目,我必须创建一个access数据库。 我使用ADOX的目的 让我承认,我在db处理方面是一个新手,我遵循了网上教程,并成功地使用CreateDatabase程序创建了数据库。我要做的是确保具有给定名称的数据库不存在,然后才创建数据库 Procedure CreateDatabase(DB_Name:String); var path:String; dataSource : String; DB : String; Begin Path := WindowsDir

我正在写一个delphi项目,我必须创建一个access数据库。 我使用ADOX的目的

让我承认,我在db处理方面是一个新手,我遵循了网上教程,并成功地使用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数据库上见过这种问题,但在access数据库上没有,我也没有找到任何解决问题的方法

我想要的伪代码形式:

if (DatabaseExists(DB_Name)) then
   do_something
else 
   create_db
在这个问题上提供一些帮助会有所帮助。 谢谢:)

问候
Priyabrata Chakravti检查数据库是否存在只需检查数据库文件是否存在。正如马库斯·亚当斯(Marcus Adams)在上面的评论中所建议的那样,Delphi函数应该可以做到这一点。

您无权在系统驱动器的根目录下创建文件。还有extractFileDrive从
System.SysUtils
查看
FileExists
GetHomePath
。我明白了..将其视为常规文件。谢谢:)