Eliminar un registro de DBGRid

[giulichajari]

Bueno amigos tengo un DBGrid, con la propiedad de SelectRows en true, es decir que si seleeccion una fila se negrea.
Tengo el siguiente codigo en un menu:

Código Delphi [-]
Query1->Close();
        Query1->SQL->Clear();

 Query1->SQL->Add("DELETE FROM GASTO WHERE Fecha = :VALUE");
 Query1->ParamByName("VALUE")->Value = DBGrid1->Fields[0]->Value;
 Query1->ExecSQL();

Y me da error: Creating cursor handle. No se que puede ser.
Tambien me gustaria que se actualize el DBGRid al borrar un dato.

Muchas gracias.

[TiammatMX]

Quiero suponer que donde tienes "->" deberían estar puntos "."; si es así, no veo dónde pudiera estar el problema, a menos que al momento de sustituir tu parámetro venga en nulo...

[ecfisa]

Hola.

Como dice tiammat, tál como está ese código no tendría que dar error.

Revisa que en el código original no te haya quedado:

  Query1->Close();
  Query1->SQL->Clear();
  Query1->SQL->Add("DELETE FROM GASTO WHERE Fecha = :VALUE");
  Query1->ParamByName("VALUE")->Value = DBGrid1->Fields[0]->Value;
  Query1->Open(); // <= aquí

Por que si estuvieras usando el método Open en ese caso, te daría exáctamente el error que mencionas.

Saludos.

[giulichajari]

Me funciono, el caso es que no se actualiza en el acto. Muchas gracias

[ecfisa]

Empezado por giulichajari

Me funciono, el caso es que no se actualiza en el acto. Muchas gracias

Hola.

Eso sin dudas es debido a que el TDBGrid está asociado a otro componente distinto a "Query1". Al finalizar el borrado tendrías que hacer un Refresh() sobre el otro componente (o cerrarlo y abrirlo).

Saludos

[giulichajari]

Coloque el codigo que me dijiste pero dice
Query1 Cannot perform this operation on a closed dataset, pero no quise ponerle un Query1- open por lo que me dijiste anteriormente.

[ecfisa]

Hola.

A ver.... Si DBGrid1 está vinculado a Query1 no se puede hacer de la forma anterior ya que al llamar al método Close() se cierra la consulta que alimenta a DBGrid1 y al referenciar a Fields[x] se elevaría una excepción.

Entonces, hay que salvar el valor del campo previamente al cerrado:

{
  Variant aux = DBGrid1->Fields[0]->Value; // resguardar valor

  Query1->Close();
  Query1->SQL->Text = "DELETE FROM GASTO WHERE Fecha = :PVALUE";
  Query1->ParamByName("PVALUE")->Value = aux;
  Query1->ExecSQL();
  ...
}

Si el caso fuera otro, sería bueno que explicaras con que consulta o dataset está vinculado el DBGrid y el código completo de la consulta.

Saludos

[giulichajari]

Pues me sigue tirando error, y esto para mi se debe a que el DBGrid esta vinculado a un DataSource, entonces este debe estar cerrado. Gracias