Ver Mensaje Individual
  #11  
Antiguo 21-12-2005
[Nbull] Nbull is offline
Miembro Premium
 
Registrado: nov 2004
Ubicación: Valencia-España
Posts: 168
Reputación: 20
Nbull Va por buen camino
Hola a todos, en primer lugar estoy realizando una aplicación en Delphi7, base de datos Access y componentes ADO, mi problema es que tengo una tabla enlazada con otras dos mediante el siguiente codigo:


Código Delphi [-]
AdoQuery2.Active:=false;
AdoQuery2.SQL.Text := 'SELECT Archivo.* , Tema.*,Formato.* FROM (Archivo '+
' LEFT OUTER JOIN Tema ON Archivo.Registro2=tema.Registro2) '+
' LEFT OUTER JOIN Formato ON Archivo.Id=Formato.Id';
AdoQuery2.Active:=True;

Antes de enlazar las dos tablas borraba los registros seleccionados en mi dbgrid con este codigo:
Código Delphi [-]
procedure TFGestion.BborrarClick(Sender: TObject);
var
button : integer;
begin
button := application.messagebox ('¿Realmente desea borrar la cinta seleccionada?', 
'¿Seguro?', MB_yesno + mb_iconwarning); // Mostramos un mensaje de advertencia
if button = IDYes then begin // Si ha pulsado si...
//Borramos el registro seleccionado
DBGrid2.DataSource.DataSet.Delete;
El problema es que al unirlas otras tablas, cada vez, que pulso el boton borrar me borra un registro en cada tabla, he mirado en access como me dijo Neftalí y no tengo activada los borrados en cascada.

Yo solo quiero que se borre un registro de la tabla maestro no de las detalle.

Gracias por vuestra ayuda, un saludo.

PD: He realizado otra vez la consulta aquí por que creo que encaja mejor en este hilo, sino es asi pido disculpas a los moderadores.
Responder Con Cita