Duda con asignar session con paradox?

[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.............