Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   un gran problema con bde (https://www.clubdelphi.com/foros/showthread.php?t=15833)

LordBits 06-11-2004 00:28:17

un gran problema con bde
 
no se porque mi aplicacion en ciertas maquinas cuando ingreso a ella, se ve que empieza a buscar por la red de la empresa informacion, sabiendo que la base de datos esta local,
he mirado el bde y el path esta direccionado localmente.pero el hace una busqueda en la red, me doy cuenta porque los iconos de la red enciende, ademas es mas lenta..

alguien puede ayudarme con esto....
:(

marcoszorrilla 06-11-2004 14:05:01

Tendrías que decirnos exactamente como tienes configurado el camino y que es lo que has puesto en el Alias.....


Un Saludo.

LordBits 08-11-2004 17:52:58

Este es el codigo que utilizo para crear el alias cuando en la maquina no existe.

Siempre la base de datos va a estar en el directorio donde se ejecute la aplicación, pero este en algunos equipos se va por la red a buscar algo..:confused:


DB_DIRNAME = datos

GE_DBNAMEALIAS = ‘Gelec’

session.NetFileDir := 'c:\';

(* If alias does not exist then create it *)

if not Session.IsAlias(GE_DBNAMEALIAS) then begin

(* Create alias *)

sDBPath := ExtractFilePath(Application.Exename) + DB_DIRNAME;

Session.AddStandardAlias(GE_DBNAMEALIAS, sDBPath, 'PARADOX');

try

Session.SaveConfigFile;

except

ShowMessageBox(Application.Handle , GetMsg(IDS_GEEXEC0002),

GetMsg(IDS_MSG_ERROR),

MB_ICONINFORMATION or MB_OK);

UnloadLang;

Halt(0);

end;

end

else begin (* Update alias directory *)

lstParams := TStringList.Create;

lstParams.Clear;

sDBPath := ExtractFilePath(Application.Exename) + DB_DIRNAME;

lstParams.Add('PATH=' + sDBPath);

Session.ModifyAlias(GE_DBNAMEALIAS, lstParams);

try

Session.SaveConfigFile;

except

ShowMessageBox(Application.Handle , GetMsg(IDS_GEEXEC0002),

GetMsg(IDS_MSG_ERROR),

MB_ICONINFORMATION or MB_OK);

UnloadLang;

Halt(0);

end;

lstParams.Destroy;

end;


La franja horaria es GMT +2. Ahora son las 05:23:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi