trabajar en red con base de datos paradox

[Sayuri]

Hola compañeros, siento ser pesada, pero necesito una respuesta.¿nadie me puede ayudar?

Muchas gracias

[[Lepe]]

Siento no haber contestado antes, pero ayer tambien era fiesta local, por tanto, no estaba yo para usar internet

Según el artículo tienes dos opciones (al menos hasta donde llego yo a entender) o hacerlo mediante el alias (que es lo que yo hago) o sino mediante lo de TSession. Yo tengo en el ordenador cliente el alias redirigido a donde se supone que va el servidor ¿no?

No. Es una única opción, tienes que definir el alias, y además establecer las propiedades del Session.

las propiedades Privatedir y NetFileDir, pertenecen al objeto TSession, tu no creas ninguno, pero delphi cuando pones un TDatabase en tu programa, lo crea implicitamente. Por tanto, debes añadir ese código por fuerza.

En lugar de usar "MiSesion" puedes poner "Session" delphi te lo reconocerá.

Todas las tablas y consultas, deben apuntar a ese Session, es decir, en su propiedad SessionName, tienes que poner el "Default" que te deja elegir de la lista.

En cuanto a varios .Net, ten en cuenta que Delphi (el IDE de programación) es un usuario más de tus tablas, por tanto tambien crea un .Net, y el propio Database Desktop tambien, por eso puedes ver el .Net en c:\

El hecho de que un ordenador no vea al otro, es la prueba de que la session o el BDE no está bien configurado.

¿Habrás cambiado la propiedad LOCAL SHARE verdad?.

Cuando al modificar un mismo registro desde 2 ordenadores te salga el cartelito diciendo que el registro está bloqueado por otro usuario, entonces, y solo entonces, tienes bien configurado el BDE y la Session.

Un saludo

[[Lepe]]

Por cierto, No dejes ningún cabo suelto, si el artículo dice "hay que hacer esto": hazlo, si no lo haces, ten por seguro que algo fallará.

Un saludo de nuevo y Suerte.

[Sayuri]

Ante todo muchas gracias, me voy a poner ahora mismo con el tema, pero una cosa

Empezado por Lepe

¿Habrás cambiado la propiedad LOCAL SHARE verdad?.

te diría que si... pero creo que no¿que significa que si lo habré configurado?

Gracias de nuevo

[Sayuri]

pero me encuentro perdida... tengo que añadir un componente TDataBase, pero... ¿sólo eso?no necesito añadir ningún TSession?Además que tengo que poner en las propiedades del anterior. yo hasta ahora sólo usaba el alias y metía en las tablas el alias y a correr, entonces me encuentro perdida, además pone que tengo que poner el código en

Código Delphi [-]
object Label2: TLabel
  Left = 152
  Top = 112
  Width = 189
  Height = 26
  Caption = 'Nº Pacientes totales :'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = 8388863
  Font.Height = -19
  Font.Name = 'Comic Sans MS'
  Font.Style = []
  ParentFont = False
end

mmmmmmm ¿que es el datamodule? jeje
lo siento, soy inutil

muchas gracias

[[Lepe]]

Pues va a ser que no lo has modificado.

Busca por el foro por "local share", Marcos Zorrilla posteó una función para modificar esa entrada del registro de windows por código.

Debes poner el LOCAL SHARE a true en el ordenador que tiene las tablas. En el resto de ordenadores de la red local, deben estar a false.

bye

[Sayuri]

he escrito más cosas antes... espero que las leas

[[Lepe]]

TDataModule: Es un contenedor donde poner las tablas y objetos no visuales. Normalmente se utiliza para no tener desperdigadas las tablas por todos las ventanas, pero tambien, en determinadas aplicaciones, no se usa de esta forma.

En tu caso, yo añadiría un TDatamodule, File -->new --> Datamodule, como verás parece una ventana pero con fondo blanco, estará oculta en tu aplicación siempre, no tiene métodos para mostrarlo, ya que no tiene sentido, solo es un contenedor de objetos.

Ahi pones el TDatabase, solo tienes que modificar la propiedad DatabaseName, donde eliges el alias que tengas definido, y ya puedes poner el código:

Código Delphi [-]
MiDataModule.OnCreate;
 
Begin

With Database1.Session do begin
  NetFileDir := '\\MiServer\MisDatos\NET';
  PrivateDir := 'c:\Temp';
End;
 
With DataBase1 do begin
  Params.Clear;
  Params.Add('PATH='+'\\MiServer\MisDatos');
  Params.Add('DEFAULT DRIVER=PARADOX');
  Params.Add('ENABLE BCD=FALSE');

End;
  Database1.Session.Open;
  Database1.Connected:= True; 
End;

Tendrás que leer en la ayuda de delphi, que es un TDatabase, y para que se usa este componente. Como idea general, es el componente que se encarga de la conexion a las tablas, y mantiene una lista con todas las tablas que usas en tu aplicación

El TSession no lo añadas en el Datamodule. Ya ves que se accede a través del TDatabase.

Ahora a cada tabla y consulta que tengas, tienes que modificar la propiedad SessionName y elegir "Default"

Todas estas cosas pueden hacerse de mil maneras, por eso es tan lioso .

Te recomiendo el libro de la , la cara oculta de Delphi 4. Viene mucha información sobre lo que estas haciendo.

PD: No eres inutil, eres ignorante, como todos los que empezamos una tarea nueva. La ignorancia es pasajera si pones de tu parte .

[Sayuri]

primero.... muchisimas gracias por tu ayuda
y segundo... siguen las preguntas
las propiedades del DataBase me pide nombre alias (que es donde pongo el mio)... sólo ahí verdad? porque si lo pongo en DataBaseName... es cuando da error

[Sayuri]

y otra duda final ¿tengo que añadir el componente TSession? que propiedades le pongo?