Ver Mensaje Individual
  #1  
Antiguo 28-08-2004
images images is offline
Miembro
 
Registrado: ago 2004
Posts: 23
Reputación: 0
images Va por buen camino
Asignar parametros al TSession y al TDataBase por codigo me da error

Hola

Siguiendo algunos tutoriales me he decidido a asignar los valores de mi base de datos paradox en tiempo de ejecucion.

En el OnCreate del DataModule pongo el siguiente codigo q es el q saque de un articulo:

Código Delphi [-]
  With SesionServer Do   // TSession
  Begin
   NetFileDir:=CamTextoIni.ReadString('SESIONSERVER','NetFileDir','');
   PrivateDir:=CamTextoIni.ReadString('SESIONSERVER','PrivateDir','');
  End;
 
 With SERVER Do    //TDabaBase
  Begin
   DatabaseName:='SERVER';
   Params.Clear;
   Params.Add('PATH='+CamTextoIni.ReadString('SERVER','PATH',''));
   Params.Add('DEFAULT DRIVER=PARADOX');
   Params.Add('ENABLE BCD=FALSE');
   Connected:=True;
  End;

Despues, con cada tabla hago esto:

Código Delphi [-]
 Try
      Tpv.DatabaseName:='SERVER';       // TPV
      Tpv.SessionName:='SessionServer';
      Tpv.Active:=True;
    Except
      ShowMessage('NO SE PUDO ABRIR LA TABLA TPV')
    End;
    FormSplash.ProgressBar.StepIt;
    FormSplash.update;

Me da el error:

"UnNkow DataBase
Alias: Server"

Antes cuando lo tenia en el programa el TDabaBase le puse el Alias q cree. Pero metiendo los parametros a mano no hace falta el alias ¿no?
Responder Con Cita