Duda con asignar session con paradox?

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