1

我正在编写一个 delphi 项目，我必须在其中创建一个访问数据库。我为此目的使用 ADOX。

让我承认，在数据库处理方面我是一个新手，我按照网上的教程并通过 CreateDatabase Procedure 成功创建。我想要做的是确保具有给定名称的数据库不存在，然后才创建数据库。

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

关于这个问题的一些帮助会有所帮助。谢谢你 ：）

问候 Priyabrata Chakraverti

4

1 回答 1

3

检查数据库是否存在只是检查数据库文件是否存在的问题。正如 Marcus Adams 在上面的评论中所建议的那样，Delphi 函数FileExists应该可以解决问题。

于 2013-10-14T10:57:14.197 回答