function AccessDatabaseCreator(FileName : String) : String; var Catalog : OLEVariant; begin Result := ''; try Catalog := CreateOleObject('ADOX.Catalog'); Catalog.Create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Filename+';'); catalog := NULL; except on E : Exception do Result := E.Message; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question