创建ACCESS 2000数据库

最新推荐文章于 2024-09-04 11:52:12 发布

转载最新推荐文章于 2024-09-04 11:52:12 发布 · 713 阅读

文章标签：

#access #数据库 #dao #function #string

Access 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一种使用ODBC接口结合ADOX组件来创建Access 2000数据库的方法。该方法通过设置不同的Provider参数来区分Office 97版和非97版的Access数据库，并提供了详细的Delphi代码实现。

通过ODBC创建ACCESS   2000   的数据库文件：
uses   DAO97;
function   CreateAccessDB(FileName:String;bOffice97:boolean=true):boolean;
var
      CreateAccess:OleVariant;
      CreateMSG:string;
begin
      Result:=false;
      if   not   FileExists(FileName)   then
      begin
          CreateAccess:=CreateOleObject('ADOX.Catalog');
          if   not   bOffice97   then
              CreateMSG:='Provider=Microsoft.Jet.OLEDB.4.0;'
          else
              CreateMSG:='Provider=Microsoft.Jet.OLEDB.3.51;';
          CreateMSG:=CreateMSG+'Data   Source='+FileName;
          try
              CreateAccess.Create(CreateMSG);
              Result:=true;
          except
              Result:=false;
          end;
      end;
end;