动态创建Access数据库文件

最新推荐文章于 2022-01-19 16:12:44 发布

转载最新推荐文章于 2022-01-19 16:12:44 发布 · 502 阅读

本文介绍了一个使用 Delphi 创建 Access 数据库的方法。通过 ADOX 提供的 Catalog 对象，可以实现对 Access 数据库的创建，并支持设置密码保护。示例代码展示了如何利用 OleObjects 和 ADOX 的 Catalog 对象来完成这一过程。

http://www.cnblogs.com/fyen/archive/2010/12/18/1909719.html

动态创建Access数据库文件

 
          function 
          CreateAccessFile(FileName: 
          string
          ; PassWord: 
          string 
          = 
          ''
          ): 
          boolean
          ;
         
          const
         
          SConnectionString = 
          'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s;'
          ;
         
          var
         
          vCatalog: OleVariant;
         
          begin
         
          try
         
          vCatalog := CreateOleObject(
          'ADOX.Catalog'
          );
         
          vCatalog
          .
          Create(format(SConnectionString, [FileName, PassWord]));
         
          Result := 
          True
          ;
         
          except
         
          Result := 
          False
          ;
         
          end
          ;
         
          end
          ;