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;
سبحان الله وبحمده سبحان الله العظيم