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