Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Crear un Alias en el BDE en tiempo de ejución, no persistente - Delphi
Lenguaje de programación Borland Delphi


Esta función creará un Alias en el BDE en tiempo de ejecución, este Alias es temporal, se eliminará automáticamente al cerrar la aplicación:
En el USES del formulario o unidad declararemos las unidades: DBIProcs y DBITypes

 procedure NuevoAlias(sAliasName, sAliasPath, sDBDriver: string);
 var
   h : hDBISes;
 begin
   DBIInit(nil);
   DBIStartSession('dummy', h, '');
   DBIAddAlias(nil, PChar(sAliasName), PChar(sDBDriver),
               PChar('PATH:' + sAliasPath), True );
   DBICloseSession(h);
   DBIExit;
 end;
Ejemplo de llamada: colocaremos un botón en un formulario y en el evento click del mismo pondremos:
procedure TForm1.Button1Click(Sender: TObject);
begin
  NuevoAlias ('Transportes', 'C:\transportes\tablas', 'Paradox');
end;




Publicado el: 2003-09-19

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A