delphi4arab منتديات دلفي للعرب

السلام عليكم عندي استفسار
كيف يمكني عمل كود يقوم بانشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7

واحد عن طريق الكود والاخر عن طريق Query

كود :
uses comobj;

function CreateAccessDatabase(FileName : String) : String;
var cat : OLEVariant;
begin
  Result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Filename+';');
    cat := NULL;
  except
    on e : Exception do
    Result := e.message;
  end;
end;

سلام عليكم
ممكن توضيح اكثر
باسورد ?

كود :
//Donwload: http://www.microsoft.com/en-us/download/details.aspx?id=13255

uses ComObj;

function CreateAccessDatabase(DataBase: string): string;
var
  CAT: OLEVariant;
begin
  Result := '';
  try
    CAT := CreateOleObject('ADOX.Catalog');
    CAT.Create('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + DataBase +
      ';Jet OLEDBatabase Password = 123456;');
    CAT := NULL;
  except
    on e: Exception do
      Result := e.message;
  end;
end;

amine_fr1910

phpbb3

amine_fr1910

Agmcz