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;