Cita:
Empezado por ekimo
...como crear una base de datos de Acces, mediante codigo, lo he hecho antes en visual basic, pero en delphi no encuentro la manera.
|
Una forma podría ser la siguiente:
(1) Importa la librería: "Microsoft ADO Ext. 2.X for DDL and Security"
(a) Menu Project/Import Type Librery
(b) Buscala y pulsa "Create Unit"
(2) Una vez que esté en tu proyecto pon el uses y utiliza el siguiente código:
Código Delphi
[-]
const
DATABASENAME = 'c:\temp\BaseDatosNueva.mdb';
var
Catalog: _Catalog;
ConnectionString:String;
begin
Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DATABASENAME;
try
Catalog.Create(ConnectionString);
except
on E:EOLEException do begin
MessageDlg('Error al crear la Base de Datos; Mensaje:' + E.Message, mtError, [mbOK], 0);
end;
end;
Añade al uses
ComObj y
ADOX_TLB;