Scribd
Cargar
21 vistas1 página

Conec. Delphi

Cargado por

Norjelis Gutiérrez
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOC, PDF, TXT o lee en línea desde Scribd
21 vistas1 página

Conec. Delphi

Cargado por

Norjelis Gutiérrez
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOC, PDF, TXT o lee en línea desde Scribd

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\[Link]';
var
Catalog: _Catalog;
ConnectionString:String;
begin
// Create a Catalog Object
Catalog := CreateCOMObject(StringToGUID('[Link]')) as
_Catalog;
// Set the Connection String
ConnectionString := 'Provider=[Link].4.0;Data
Source=' + DATABASENAME;
try
// Create new Access database
[Link](ConnectionString);
except
on E:EOLEException do begin
// Levantamos la excepción
MessageDlg('Error al crear la Base de Datos; Mensaje:' +
[Link], mtError, [mbOK], 0);
end;
end;

Añade al uses ComObj y ADOX_TLB;

Esto es lo que necesitan para crear la conex. Cualquier


cosa me avisan.

ATTE.: LCDA. Norjelis Gutiérrez M.

También podría gustarte