Validar celdas de un stringgrid

[[Delphius]]

Empezado por Caro

Holitas

Marcelo el Clear no borra una fila o columna, lo que hace es limpiar la columna o fila.

Para borrar una fila de un StringGrid debes utilizar el procedimiento DeleteRow donde le pasas como parametro la fila a eliminar, pero como es un metodo protegido, primero defines un nuevo tipo que herede de un TStringGrid.

Código Delphi [-]type StringG = class (TStringGrid); ......................... ......................... procedure TForm1.ButtonBorrarClick(Sender: TObject); begin //En este caso te eliminara la fila actual del StringGrid StringG(StringGrid1).DeleteRow(StringGrid1.Row); end;

Muy buena aclaración Caro,
Tienes razón, yo estaba entendiendo a que "Borrar" se refiere a limpiar el contenido de la fila o columna.

Sería oportuno que Elite237 nos haga saber si por borrar se refiere a eliminar, o por el contrario a limpiar el contenido. De ese modo sabré si lo estado aconsejando mal.

Saludos,

[Elite237]

Hola delphius y caro...si, lo que quiero es borrar toda la fila. Delphius no es limpiar el contenido sino borrar toda la fila.Y el update lo quiero hacer para una sola fila, osea que el usuario edite en el stringgrid.Gracias por contestar.Saludos

[*Caro*]

Empezado por Elite237

no es limpiar el contenido sino borrar toda la fila.Y el update lo quiero hacer para una sola fila,

Hola, con lo que he puesto arriba, ya tendrías ambas cosas, pero como te digo tienes que aumentar una condición a tu update, supongo que cada fila esta identificada por un codigo, entonces en el Where del Update pondrías la condición por ese codigo, para que no modifique todos los registros de tu tabla sino solo el registro que tenga ese codigo.

Saluditos

[Elite237]

Hola caro, quitando el for...en mi update, si lo hago bien?osea se que me falta el where, pero aparte de eso quiero saber si estoy asignando correctamente los valores a los campos de mi BD.En caso de que este mal, me puedes decir donde esta mi error?

Código Delphi [-]
query1.sql.add('update tevaluacion set (eval_descripcion,eval_nivel,eval_ult_version,eval_ver_usada)');
   query1.sql.add('values(eval_descripcion,eval_nivel,eval_ult_version,eval_ver_usada)');
   query1.Params.ParamByName('eval_descripcion').asstring:=(sgEvaluacion.Cells[1,i]);
   query1.Params.ParamByName('eval_nivel').asstring:=(sgEvaluacion.Cells[2,i]);
   query1.Params.ParamByName('eval_ult_version').asstring:=(sgEvaluacion.Cells[3,i]);
   query1.Params.ParamByName('eval_ver_usada').asstring:=(sgEvaluacion.Cells[4,i]);

[*Caro*]

Empezado por Elite237

........ pero aparte de eso quiero saber si estoy asignando correctamente los valores a los campos de mi BD.En caso de que este mal, me puedes decir donde esta mi error?

Debes cambiar el i por Row ya que con la propiedad Row del StringGrid obtienes la fila actual y no necesitas el ciclo for, ahora si quieres armar las columnas talvez, pero también puedes acceder directamente a las columnas de la fila actual, como te puse arriba.

Código Delphi [-]
query1.ParamByName('eval_descripcion').asstring:=sgEvaluacion.Cells[1,sgEvaluacion.Row];
query1.ParamByName('eval_nivel').asstring:=sgEvaluacion.Cells[2,sgEvaluacion.Row];
query1.ParamByName('eval_ult_version').asstring:=sgEvaluacion.Cells[3,sgEvaluacion.Row];
query1.ParamByName('eval_ver_usada').asstring:=sgEvaluacion.Cells[4,sgEvaluacion.Row];

Saluditos

[Elite237]

Ok..Gracias Carito..lo hare como me dices mas adelante te digo como voy en mi desarrollo.Gracias por tu tiempo.

[[Delphius]]

Elite237, disculpame pero no se de que modo decirte que la consulta SQL está mal hecha, una instrucción SQL de UPDATE no se escribe así.

Es así:

Código SQL [-]
UPDATE tu_tabla SET Campo1 = Parametro1, Campo2 = Parametro2, ..., CampoN = ParametroN WHERE ....

La verdad es que desde la mitad del hilo te estado llamando la atención al respecto del tema. No se de que modo hacerme entender.

Por el otro lado, siempre y cuando en esa variable "i" que tienes en tu código referencie a la fila en cuestión no veo problemas. Lo que si veo que está demás son esos paréntesis cuando haces el paso de los valores a los parámetros.

Como te mencionaba Caro, la consulta UPDATE debe ir con una cláusula de condición. Sin ella lo que consigues es cambiar EN TODOS LOS REGISTROS DE LA TABLA.
Por ello Caro habla de que debes tener de algún modo relacionado a la fila i-ésima con el código del registro al que representa. Es decir que debe haber alguna correspodencia entre las filas y el campo "identificador" en la tabla.

Por darte un ejemplo:
Fila 1 -> corresponde al registro cuyo ID es 100
Fila 2 -> corresponde al registro cuyo ID es 287

Generalmente este ID no cambia (no debería cambiar) y una manera sencilla para evitar que el usuario lo cambie, es que cuando vuelcas los datos al TStringGrid, a la columna 0 (esa columna gris y fija que no se puede modificar) la emplees para "mostrar" ese ID. De este modo en la celda [0,i] tenés "guardado" el ID y lo puedes emplear para ponerlo en la condición; por ejemplo algo asi:

Código SQL [-]
UPDATE tabla SET Campo = Parametro, ... , CampoN = ParametroN WHERE ID = PARAMETRO_ID

Saludos,

[Elite237]

Hola Delphius, ya entendi..disculpa mi ignorancia. Ya capte tanto la idea, como la forma de hacer un update.Saludos