各位高手 怎样在delphi的程序里建一个access数据库啊?

Question

怎样在delphi的程序里建一个access数据库啊?
  谢了

Answer 1

希望对你有帮助Const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';function GetTempPathFileName():string;//取得临时文件名
var
  SPath,SFile:array [0..254] of char;
begin
  GetTempPath(254,SPath);
  GetTempFileName(SPath,'~SM',0,SFile);
  result:=SFile;
  DeleteFile(result);
end;function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
         //建立Access文件，如果文件存在则失败
var
  STempFileName:string;
  vCatalog:OleVariant;
begin
  STempFileName:=GetTempPathFileName;
  try
  vCatalog:=CreateOleObject('ADOX.Catalog');
  vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
  result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
  DeleteFile(STempFileName);
  except
  result:=false;
end;end;