borrar registro en un query

[mjjj]

hola amigos... ayudenme con el siguiente problem...

quiero borrar un registro de un query.

selecciono el registro de un dbgrid y presiono un boton que tiene el siguiente codigo.... query1.delete, efectivamente el registro se elimina del dbgrid, pero al hacer un nueva busqueda este vuelve a aparecer.

Que pasa con eso... he tratado con query1.post y me tira un error de dataset not in edit or insert modo... entonces agregue query1.edit antes del delete y me tira este otro error... cannot modify a read only dataset

uffff... ojala me entiendan.... gracias

[[Caral]]

Hola mjjj
Para empezar lo normal es identificar:
Query es un aposento de una sentencia sql, que trae informacion de una tabla o varias, osea, borrar un query, es raro, esto te lo digo nada mas como comentario sin afan de critica.
Segundo, antes de un query.delete; deberia haber algo, que voy a borrar?
Entonces, resumiendo, si colocas el codigo con el que estas haciendo la operacion sera mas facil interpretar el problema.
Otra cosa importante, que base de datos usas?, que campos, que claves?
Saludos

[mjjj]

a ver, voy a tratar de ser mas claro....

estoy usando tablas paradox, sin KEY, lo que hago es realizar una busqueda utilizando un query luego selecciono el registro que quiero borrar desde un dbgrid, una vez seleccionado el registro, presiono un boton con el codigo query1.delete... se borra el registro del dbgrid, pero al realizar nuevamente la busqueda este vueve aparecer....

esta operacion le he utilizado en tablas, en ese caso me a funcionado perfectamente...

gracias

[[Caral]]

Hola
Tienes un query, el cual carga un dbgrid, apretando un boton quieres borrar el dato elegido.
Bueno el query genera una informacion y contiene unos campos en el, va, con otro query se elimina el dato que se quiere, aqui un ejemplo:

Código Delphi [-]
begin
      DataModule1.AC1.BeginTrans;
      try
         Query.SQL.Text := 'Delete * from TUTABLA where TUCAMPO = '+TUTABLATUCAMPOTuDato.AsString;
         Query.ExecSQL;
         DataModule1.AC1.CommitTrans;
      except
         on E:Exception do
         begin
            DataModule1.AC1.RollbackTrans;
            MessageDlg('Se ha producido un error.',mtError,[mbok],9);
         end;
      end;

Aqui como veras se hace la conexion directa al modulo de datos y al conector, se inicializa, se ejecuta, de lo contrario, envia un mensaje.
Saludos

[mjjj]

ufffff... perdon la ignorancia... que es un datamodule, trata de explicarme con manzanas lo que hace cada linea del codigo asi yo puedo adaptarlo a mi programa.... se que es mucho pedir, pero me harias un gran favor

tengo que agregar otro query a mi form... en ese agrego las lineas SQL... el otro lo dejo tal cual??

ayuda please

gracias

[[Caral]]

Hola mjjj
Me parece que como las manzanas estas un poco verde en esto.
Bueno eso no es un pecado, seria muy bueno que pusieras una copia del codigo que estas haciendo, asi veriamos como va.
Usa las etiquetas del club se vera mejor.
Saludos

[Pedro-Juan]

Hola a tod@s

Por el comentario que ha hecho mjjj, "pero al hacer un nueva busqueda este vuelve a aparecer", deduzco que lo que quiere es eliminarlo definitivamente, o sea, eliminarlo de la tabla.
Yo he hecho algo parecido a esto en mis aplicaciones, espero que te ayude:

Código Delphi [-]
var cVarCampo: String; //puede ser cualquier otro tipo que esté indexado
 
//El el evento OnClick del button
cVarCampo := Query.FieldByName('cCampo').AsString;
if (TABLE do Locate(cCampo',cVarCampo,[])) then
with TABLE do Delete;
else
ShowMessage('Aviso','No cuela');

Un saludo