Foros Club Delphi - Duda sobre tabla access de varias tablas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Duda sobre tabla access de varias tablas (https://www.clubdelphi.com/foros/showthread.php?t=27187)

Hay un pequeño detalle.

File --

WorkinDirectory

Pon el mismo de las tablas.

Un Saludo.

Ya lo tengo puesto desde el principio...

Aquí lo tienes, funcionando correctamente, he hecho la prueba y he cambiado un codigo de la maestro desde el DatabaseDesktop y me ha modificado los correspondientes del detalle..

Un Saludo.

:D Te quiero Marcos....por fin. Me funciona.
Muchísimas, muchísimas gracias. te prometo que el día que no esté tan verde ayudaré en lo que pueda al foro..:D

Por cierto, al final, cual era el fallo?? pq no me dejaba??

Es posible que sea debido a que la columna que enlaza las dos tablas era numérica?? lo digo porque he visto que lo has cambiado a alpha.

De todos modos como te indique ya me funciona, sólo es por saber el motivo.

Gracias...y por cierto la respuesta no corre prisa...que bastante trabajo os doy.:p

Canté victoria demasiado pronto

Hola Marcos, que tal?? canté victoria demasiado pronto. Te explico (o mejor dicho os explico). Estoy hablando de la tabla pedido.db - detalle.db (maestro - detalle). SI que respeta la relación. Es decir, yo pincho en un registro en la tabla pedido.db y me aparecen los artículos en la detale.db.

El PROBLEMA: si quiero eliminar un registro me devuelve el mensaje "Master has detail records, cannot delete or modify". Del mismo modo cuando quiero editar o crear algún resistro tampoco me deja. Cuando lo quiero editar me cambia el valor del campo al pulsar "aceptar" pero acto seguido vuelve al valor original. Cuando quiero crear un pedido nuevo, me deja meter el pedido en pedido.db y el primer registro en detalle.db. A continuación cuando quiero meter el siguiente me devuelve "Mater record missing".

El código del botón eliminar pedido:

Código:

procedure TForm1.Button23Click(Sender: TObject);

 Var

   Boton : Integer;

 begin

    Boton := Application.MessageBox ('¿Está seguro que desea borrar este registro?',

    'Borrar registro',MB_YESNO+MB_ICONINFORMATION);

    If Boton = ID_YES Then

         DataModule25.Table1.Delete

    else

         DataModule25.Table1.Cancel;

 end;

SOLUCION: yo creo que el problema viene en la integridad referencial. Creo recordar que hablamos que la casilla (estoy en el database desktop) "Strict Referential Integrity" no debe estar marcada, no?? pues a mi me aparece marcada. EL terma es que si la quito me quita la referencia, entonces la vuelvo a crear y pulso "OK". Posteriormetne pulso Save (incluso he probado Save as) para guardar los cambios y me devuelve un mensaje que dice "table is busy". No me deja guardarlo. entonces vuelvo a entrar en "Referential Integrity" y me ha vuelto a marcar la casilla. O sea que creo que este es el problema que no me deja reparar.

Me estoy extendiendo mucho, lo siento. Ya acabo...

Porsi os fuese necesario os doy el código del botón "aceptar" en el formulario "Nuevo - pedido"....

Código:

procedure TForm18.BitBtn2Click(Sender: TObject);

 begin

   Try

    DataModule16.Table1.Post;   

    close;

   Except

    DataModule16.Table1.Cancel;

   End; //De la excepción.

 end;

Incluso he llegado a probar:

Código:

procedure TForm18.BitBtn2Click(Sender: TObject);

 begin

   Try

    DataModule16.Table1.Post;

    DataModule16.Table2.Post;

    close;

   Except

    DataModule16.Table1.Cancel;

    DataModule16.Table2.Cancel;

   End; //De la excepción.

 

 end;

Aunque esto supongo que no es necesario, supongo que se encargará la Integridad referencial.

Bien, siento el tamaño del post, si lo leeis entero ya os mereceis una medalla o algo. Gracias y a ver si me podeis decir que es lo que pasa.

aleee

Resumiendo mucho porque ando mal de tiempo, en las tablas relación maestro detalle, primero se elimina todo el detalle, despues el maestro del registro correspondiente.

El problema es que hemos hablado de integridad referencial y por extensión de actualización en cascada, pero Paradox no tiene eliminación en cascada, por lo tanto si intentas el eliminar el maestro te dará el mensaje que estás viendo, solución la propuesta, eliminas todo el detalle y luego el maestro.

Un Saludo.

De nuevo y como siemrpe. GRACIAS !. Bie, he probado lo que me ha dicho Marcos y como siempre perfecto. Os dejo el código del botón eliminar en el cual primero se eliminan los registros de la tabla detalle.db y posteriormente el de la tabla maestro, en este caso pedido.db.

Código:

procedure TForm1.BitBtn7Click(Sender: TObject);

  Var

    Boton : Integer;

  begin

     Boton := Application.MessageBox ('¿Está seguro que desea borrar este registro?',

     'Borrar registro',MB_YESNO+MB_ICONINFORMATION);

     If Boton = ID_YES Then begin

          DataModule16.Table2.Delete; //borro los registros de la tabla detalle (detalle.db)

          DataModule16.Table1.Delete; //borro los registros de la tabla maestro (pedido.db)

     end Else

          DataModule16.Table1.Cancel;

  end;

Ya veis, el dolor de cabeza que me ha dado una simple linea de código. Aún podría estar manoseando el database desktop. :)

Ésto era por lo que respecta a eliminar un pedido. El problema de crear un pedido nuevo sigue llevándome loco...y aunque os he puesto el código del botón aceptar en el anterior post, creo que no tiene nada que ver, ya que el error se produce antes de pulsar en él.

Cita:

Originalmente publicado por marcoszorrilla
Resumiendo mucho porque ando mal de tiempo,

Siento causar tantas molestias, poco a poco me voy quedándo con todo. No sabes cómo te lo agradezco.