Duda con asignar session con paradox?

[Coco_jac]

Hola amigos del foro, tengo una duda con respecto a trabajar en red con Paradox, bueno estoy tomando el ejemplo del articulo paradox en la red.

 
With MiSesion do begin			//Tsession
NetFileDir := '\\MiServer\MisDatos\NET';
PrivateDir := 'c:\Temp';
End;

With MiDataBase do begin	   //Tdatabase  
Params.Clear;
Params.Add('PATH='+'\\MiServer\MisDatos');
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE BCD=FALSE');
Connected := true;
End;

Tengo la siguiente duda los Tquery o TTable que coloque en mi datamodule tienen que hacer referencia a la session en su propiedad "sessionname" como hago esto? si pudieran darme un ejemplo seria grandioso.
Otra duda mas, mi Tquery sera necesario en su propiedad DATABASENAME volver a definirla ? o con solo apuntar a la ssesion es suficiente.

Espero sus comentarios.

Gracias anticipadas.

[Coco_jac]

necesito su ayuda.....................

[marcoszorrilla]

Una vez que crees el TSession Selecciones todas las tablas y Consultas a la vez y le pones de una sola vez este TSession a todas.
Ojo tiene el efecto que te cerrará todas las tablas y consultas, las que deban de estar abiertas al iniciar la aplicación tienes que revisarlas para volver a poner su propiedad Active = True.

Un Saludo.

[Coco_jac]

Gracias Marcos , mira eh colocado en la propiedad SessionName del TSession "Prueba" de manera que para los querys y tablas colocare en SessionName:="prueba".

Disculpa que sea insistente, pero con respecto a la propiedad DatabaseName de los query sera necesario redefinirlo ya qu le DataBase hace referencia de donde jalar los datos.

Espero tus comentarios.

[marcoszorrilla]

El DatabaseName, si tienes un alias definido es dicho alias, de esta manera puedes utilizar una carpeta en desarrollo y otra en ejecución en donde vaya a ir instalado el programa.

Ejemplo:
Tu desarrollas en C:\delphi\programas\MiPrograma
y en el destino lo instalas en:
C:\Alfa

Basta con que establezcas el mismo nombre de alias del desarrollo pero la carpeta pertinente y sin tocar para nada el código ya tienes la aplicación funcionando.

Otra opción puede ser utilizar un INI.

Un Saludo.

[Coco_jac]

Hola Marcos, mira es asi como tengo todo, todavia no lo prueba ya que no estoy en el trabajo, pero me gustaria que le dieras una revisada haber si algo esta incorrecto y lo pueda corregir.

F:\Aspelnew\sae30\S-METUSA (unidad compatida): es la ruta del SERVIDOR donde jalo los datos de las tablas PARADOX, esta definido asi, ya que existe un sistema implantado en mi empresa que toma esa ruta, bueno lo eh dejado asi. Aunque estoy pensando que UNICODE seria mejor.
Esto tengo en mi datamodule :

With MetusaSesion do begin				 //Tsession
NetFileDir := 'F:\Aspelnew\sae30\S-METUSA\NET';
PrivateDir := 'c:\Temp';
End;
 
MetusaSesion.sessionName:=Metusa; //defino una session
 
With MetusaDataBase do begin			//Tdatabase 
Params.Clear;
Params.Add('PATH='+'F:\Aspelnew\sae30\S-METUSA');
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE BCD=FALSE');
Connected := true;
End;

esta defido el LOCAL SHARE a true en el servidor, ah esta propiedad sera false en los clientes, corrigeme si estyo mal por favor
para el caso de los query tengo asi en mi modulo :

 
SQLquery.sessionName:=Metusa;			// la session creada
SQLquery.databasename:='F:\Aspelnew\sae30\S-METUSA'
..................................

Espero tus comentarios. si esta bien todo lo planteado.
Gracias anticipadas.

[cloayza]

Yo solo haria el siguiente cambio:

With MetusaDataBase do 
begin			//Tdatabase 
Params.Clear;
Params.Add('PATH='+'F:\Aspelnew\sae30\S-METUSA');
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE BCD=FALSE');
DatabaseName:='Nombre_Sistema_X.X';
Connected := true;
End;

SQLquery.sessionName:=Metusa;			// la session creada
SQLquery.databasename:=MetusaDataBase.DataBaseName;

Feliz año nuevo a todos...
Christian
Concepcion-Chile

[[Lepe]]

Código Delphi [-]
SQLquery.sessionName:=Metusa;

// lo mismo con 
MetusaSesion.sessionName:=Metusa; //defino una session

Ésto no debería compilar, ya que SessionName espera una cadena de texto.

Código Delphi [-]
SQLquery.sessionName:='Metusa';

// lo mismo con 
MetusaSesion.sessionName:='Metusa'; //defino una session

Tambien te aconsejaría que uses constantes para todos los strings esos, ya que te será más facil un cambio:

Código Delphi [-]
const
  NombreSession = 'Metusa';
  DirectorioBD = 'F:\Aspelnew\sae30\S-METUSA';
  DirectorioNET = DirectorioBD + '\NET';
  DirectorioPrivado = 'c:\temp';

Expande el uso de constantes hasta donde sea necesario.

El local Share está bien así.

saludos.

[Coco_jac]

HOLA AMIGOS GRACIAS POR RESPONDER Y DAR SUS CONSEJOS ENTONCES QUEDARIA ASI, LO PROBARE DE INMEDIATO Y LES CUENTO QUE PASO, GRACIAS POR EL APOYO.

 
 
CONST 
MTSession = 'Metusa';
DirectorioBD = 'F:\Aspelnew\sae30\S-METUSA';
DirectorioNET = DirectorioBD + '\NET';
DirectorioPrivado = 'c:\temp';
 
With MetusaSesion do begin	 
NetFileDir := DirectorioNET;
PrivateDir := DirectorioPrivado;
End;
 
MetusaSesion.sessionName:=MTSession; //defino una session
 
With MetusaDataBase do 
begin 
Params.Clear;
Params.Add('PATH='+DirectorioBD);
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE BCD=FALSE');
DatabaseName:='MetusaStock';
Connected := true;
End;
 
SQLquery.sessionName:=MTSession; 
SQLquery.databasename:=MetusaDataBase.DataBaseName;

[Coco_jac]

Hola amigos acabo de probarlo y salio un error : Un known Database Alias : "Metusastock" tengo que crar un alias o que ?


Espero sus comentarios.

Gracias

[marcoszorrilla]

Código Delphi [-]
DatabaseName:=DirectorioBD ;

Como verás tienes un error.

Un Saludo.

[Coco_jac]

Gracias Marcos Todo Bien Hasta Ahora......................

Gracias A Todos Funciono Bien Seguire Probando.............