创建ACCESS 2000数据库

daimadai

于 2009-02-11 17:11:00 发布

阅读量702

点赞数

分类专栏： Access 文章标签： access 数据库 dao function string

Access 专栏收录该内容

0 篇文章

订阅专栏

通过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;