Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-12-2005
Avatar de Coco_jac
Coco_jac Coco_jac is offline
Miembro
 
Registrado: mar 2005
Ubicación: Lima Peru
Posts: 338
Poder: 20
Coco_jac Va por buen camino
Duda con asignar session con paradox?

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.
Código:
 
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.
Responder Con Cita
  #2  
Antiguo 26-12-2005
Avatar de Coco_jac
Coco_jac Coco_jac is offline
Miembro
 
Registrado: mar 2005
Ubicación: Lima Peru
Posts: 338
Poder: 20
Coco_jac Va por buen camino
necesito su ayuda.....................
Responder Con Cita
  #3  
Antiguo 26-12-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #4  
Antiguo 26-12-2005
Avatar de Coco_jac
Coco_jac Coco_jac is offline
Miembro
 
Registrado: mar 2005
Ubicación: Lima Peru
Posts: 338
Poder: 20
Coco_jac Va por buen camino
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.
Responder Con Cita
  #5  
Antiguo 26-12-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #6  
Antiguo 27-12-2005
Avatar de Coco_jac
Coco_jac Coco_jac is offline
Miembro
 
Registrado: mar 2005
Ubicación: Lima Peru
Posts: 338
Poder: 20
Coco_jac Va por buen camino
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 :
Código:
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 :

Código:
 
SQLquery.sessionName:=Metusa;			// la session creada
SQLquery.databasename:='F:\Aspelnew\sae30\S-METUSA'
..................................
Espero tus comentarios. si esta bien todo lo planteado.
Gracias anticipadas.

Última edición por Coco_jac fecha: 27-12-2005 a las 04:19:10.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 20:53:55.


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