19 respuestas en este tema

[mariarosina1984]

tengo un bgrid kiero borrar una fila pincho una fila y le pincho el boton despues de eliminar y cuando le doy eliminar segun se borra la fila pero no aparece nada luego de eso sale el dbgrid en blanco y no se hicieron los cambios alguien me podria decir que pasa ahi? que esta mal de mi codigo? es el siguiente:

delphi

var
 boton : integer;
begin
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
if boton = mrOK then
Begin
  query1.Active:=false;
  query1.SQL.Text:='delete from BLIBROS';
  query1.AutoRefresh:=true;
  query1.CachedUpdates:=true;
  QUERY1.ExecSQL;
  showmessage('Registro borrado');
End
else
   begin
    Close;
  end;
end;

[Caral]

Hola
A ver asi:

delphi

var
 boton : integer;
begin
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
if boton = mrOK then
Begin
  query1.Active:=false;
  query1.SQL.Text:='delete from BLIBROS';
  query1.ExecSQL;
  query1.Requery;
  showmessage('Registro borrado');
End
else
   begin
    Close;
  end;
end;

Saludos

[mariarosina1984]

Hola
A ver asi:

delphi

var
 boton : integer;
begin
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
if boton = mrOK then
Begin
  query1.Active:=false;
  query1.SQL.Text:='delete from BLIBROS';
  query1.ExecSQL;
  query1.Requery;
  showmessage('Registro borrado');
End
else
   begin
    Close;
  end;
end;

Saludos

no re conoce el dephi el requery

[eduarcol]

estas utilizando el mismo query para el dbgrid como para ejecutar la sentencia??

El problema se te soluciona utilizando otro query para el borrado.

Otra cosa es que estando así como lo tienes estas borrando toda la información.

[mariarosina1984]

estas utilizando el mismo query para el dbgrid como para ejecutar la sentencia??

El problema se te soluciona utilizando otro query para el borrado.

Otra cosa es que estando así como lo tienes estas borrando toda la información.

se que me falta poner el where si estoy utilizando otro query

[enecumene]

Pues te falta el where, así como lo tienes te borra todos los registros:

delphi

var
 boton : integer;
begin
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
if boton = mrOK then
Begin
  query1.Active:=false;
  query1.SQL.Text:='delete from BLIBROS WHERE libro_id = :cod'; //en el where pones el campo id de la tabla.
  query1.ParamByName('cod').value := Tabla1libro_id.AsInteger; //aqui cambia libro_id por el campo id de la tabla que tienes 
  QUERY1.ExecSQL;
  showmessage('Registro borrado');
End
else
   begin
    Close;
  end;
end;

Saludos.

[egostar]

Hola

No se compliquen demasiado, en las propiedades del Query asigna la propiedad CachedUpdates a True y en el código pon lo siguiente....

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 if messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0) = mrOK then
 begin
   query1.Delete;
 end;
end;

Cuando se ejecute el códogo te va a mostrar una ventana de confirmación del borrado del registro.

Salud OS

[mariarosina1984]

Hola

No se compliquen demasiado, en las propiedades del Query asigna la propiedad CachedUpdates a True y en el código pon lo siguiente....

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 if messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0) = mrOK then
 begin
   query1.Delete;
 end;
end;

Cuando se ejecute el códogo te va a mostrar una ventana de confirmación del borrado del registro.

Salud OS

no jala por que dice ke me falta abrir el query o cerrar

[egostar]

A ver, tu deberías tener un query abierto con un select * from tabla para poder ver los datos en el dbgrid, ese mismo query es el que debes de utilizar y hacer lo que te propuse.


Saludos

[mariarosina1984]

A ver, tu deberías tener un query abierto con un select * from tabla para poder ver los datos en el dbgrid, ese mismo query es el que debes de utilizar y hacer lo que te propuse.


Saludos

asi lo tengo

[enecumene]

¿Verificaste lo que te recomendé el post #5?

[mariarosina1984]

no serà ke me falta confirmaR la transaccion? para que se haga el cambio? cual seria la sintaxis?

[Rolphy Reyes]

Saludos.

No recuerdo bien, pero tengo entendido, que BDE aplica la transacción siempre y cuando sea implícita.  Ahora bien cuando usas CacheUpdates o StartTransaction debes de ser tú quien termine la transacción.

[mariarosina1984]

le pusè cachedupdates no trabaja le puse en la rejilla true pero no trabaja que pudris hacer?

[mariarosina1984]

no funciona con todo lo ke he probado gracias pòr su ayuda no me hace el cambio del delete

[eduarcol]

Si colocas el código del .PAS aqui podríamos adaptarle la sugerencia de egostar que es la mas fácil.

[mariarosina1984]

Si colocas el código del .PAS aqui podríamos adaptarle la sugerencia de egostar que es la mas fácil.

sql

var
 boton : INTEGER;
BEGIN
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
IF boton = mrOK THEN
BEGIN
    QUERY1.CLOSE;
    query1.DELETE;
    query1.ExecSQL;
     QUERY1.CLOSE;
     QUERY1.SQL.CLEAR;
   QUERY1.SQL.ADD('SELECT * FROM BLIBROS');
    QUERY1.OPEN;
   END ELSE BEGIN
   query1.close;
   QUERY1.SQL.CLEAR;
    query1.SQL.text:='select * from blibros';
    query1.OPEN;
  END

[mariarosina1984]

resuelto gracias por todo

[eduarcol]

podrías decir cual era el problema?

[mariarosina1984]

podrías decir cual era el problema?

ya lo hace pero kiero mandar el dato borrado del dbgrid del boton hacia el dbgird principal gracias