Admin
Fondateur
Nombre de messages : 197
Age : 40
Localisation : Tlemcen ( Algérie )
Date d'inscription : 04/12/2006
 |  Sujet: créer une base Access vide sans que Access soit installé  Mar 13 Fév - 1:40 | |
| Si vous ne disposez pas du logiciel Access sur votre station et que vous désirez créer une nouvelle base Access (mdb), il vous suffit d'utiliser OLE. Le fonction suivante attend en entrée le nom du fichier mdb. Si une exception est levée alors la fonction AccessDatabaseCreator renvoit un message d'erreur. - Code:
-
uses comobj,sysutils;
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;
Exemple d'utilisation: - Code:
-
AccessDatabaseCreator('c:\baseVide.mdb'); . | |
|
