Database 如何在应用程序中确定从delphi应用程序创建的.mdb(access数据库)是否已经存在?
我正在写一个delphi项目,我必须创建一个access数据库。 我使用ADOX的目的 让我承认,我在db处理方面是一个新手,我遵循了网上教程,并成功地使用CreateDatabase程序创建了数据库。我要做的是确保具有给定名称的数据库不存在,然后才创建数据库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
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
。我明白了..将其视为常规文件。谢谢:)