دخول

amine_fr1910 · 06-03-2014, 04:03 PM

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

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

phpbb3 · 10-03-2014, 12:14 AM

كود :
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;

amine_fr1910 · 10-03-2014, 06:24 PM

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

Agmcz · 11-03-2014, 01:14 AM

كود :
//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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة