Eliminar un registro de DBGRid

[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