如何在程序中实现建立数据库文件 如：.mdb .db

Question

如何在程序中实现建立数据库文件 如：.mdb  .db

Answer 1

function TForm5.CreateDatabase(mDatabaseName: string): Boolean;
var
  CreateAccess: OLEVariant;
begin
  Result := False;
  try
    CreateAccess := CreateOleObject('ADOX.Catalog');
    try
      CreateAccess.Create(Format(
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s%s.mdb',
      [ExtractFilePath(Application.ExeName)+'\bsdata\', mDatabaseName]));
      Application.ProcessMessages;
    finally
      CreateAccess := Unassigned;
    end;
  except
    Exit;
  end;
  Result := True;
end;

Answer 2

uses ComObj
function TForm5.CreateDatabase(mDatabaseName: string): Boolean;
var
  CreateAccess: OLEVariant;
begin
  Result := False;
  try
    CreateAccess := CreateOleObject('ADOX.Catalog');
    try
      CreateAccess.Create(Format(
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s%s.mdb',
      [ExtractFilePath(Application.ExeName)+'\bsdata\', mDatabaseName]));
      Application.ProcessMessages;
    finally
      CreateAccess := Unassigned;
    end;
  except
    Exit;
  end;
  Result := True;
end;