Actualizar campo de dbgrid

[jorelivi]

Tengo un Dbgrid con multiselect y solo quiero actualizar solo los que seleccione y me cambia todos los que muestra el DbGrid.

Solicito su ayuda y gracias por las indicaciones para llegar a este foro.

Código Delphi [-]
 Codigo Delphi

  if DbGrid1.SelectedRows.Count>0 then  // por si solo seleccionan uno...
     for I := 0 to DbGrid1.SelectedRows.Count-1 do
     begin
       DbGrid1.DataSource.DataSet.BookMark := DbGrid1.SelectedRows[i];
       // Todo lo que tengas que hacer
       If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
           sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias';
           Query1.Close;
           Query1.SQL.Clear;
           Query1.SQL.Add(sQuery);
           Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
           Query1.ExecSQL;
        End;
     end

[[Caral]]

Hola jorelivi
Primero lo voy a arreglar un poco para entenderlo mejor, es bueno que te fijes en la guia de estilo del foro.

Código Delphi [-]
if DbGrid1.SelectedRows.Count>0 then // por si solo seleccionan uno...
for I := 0 to DbGrid1.SelectedRows.Count-1 do
begin
DbGrid1.DataSource.DataSet.BookMark := DbGrid1.SelectedRows[i];
// Todo lo que tengas que hacer
If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(sQuery);
Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
Query1.ExecSQL;
End;
end

Saludos

[[Caral]]

Hola
Bueno primero tengo varias dudas:
1: Por que usar una variable sQuery en doden pones la sentencia sql?
2: Dias me suena a date no a integer ?
En tal caso, para empezar lo haria asi:

Código Delphi [-]
if DbGrid1.SelectedRows.Count>0 then // por si solo seleccionan uno...
for I := 0 to DbGrid1.SelectedRows.Count-1 do
begin
DbGrid1.DataSource.DataSet.BookMark := DbGrid1.SelectedRows[i];
// Todo lo que tengas que hacer
If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
Query1.Close;
Query1.SQL.Text:= 'Update cuen01 Set Fecha_venc=Fecha_apli+ias';
Query1.ExecSQL;
Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
End;
end

Con esto ya simplificamos un poco el codigo.
Vamos a por otra.
Saludos

[[Caral]]

Hola
Sigo con mis dudas, como sale modificado el codigo en el grid si usas un ExecSQL; para el Update, no lo entiendo.?
Recuerda que que grid es solo un visor de la tabla o tablas en si, creo que falta algo del codigo que estas haciendo, adicionalmente, me quedo corto con la pregunta.
Saludos

[jorelivi]

Mira Caral,

Este es mi codigo que tengo en un boton para actualizar dos situaciones diferentes dentro de un grid.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var sQuery:String;
var I:Integer;
begin
  if DbGrid1.SelectedRows.Count>0 then  // por si solo seleccionan uno...
     for I := 0 to DbGrid1.SelectedRows.Count-1 do
     begin
       DbGrid1.DataSource.DataSet.BookMark := DbGrid1.SelectedRows[i];
       // Todo lo que tengas que hacer
           sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias';
           Query1.Close;
           Query1.SQL.Clear;
           Query1.SQL.Add(sQuery);
           Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
           Query1.ExecSQL;
     end
  else
  // Todo lo que tengas que hacer
   If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
       sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias Where cclie=:cclie';
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add(sQuery);
       Query1.ParamByName('cclie').AsString:=Edit1.Text;
       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
       Query1.ExecSQL;
    End;
end;

Espero esto sea mas claro, sigo en linea y gracias por tu tiempo

[[Caral]]

Hola
La verdad me queda un poco largo, pero para mi el problema esta en que haces un recorrido por el dbgrid, con esto, para mi le estas diciendo al programa que actualice todo lo que este en el grid, no se, me parece por ahi.
El codigo lo entiendo, entiendo mas o menos el problema, tambien creo que se puede reducir el codigo un poco, sera mejor para analizar.
Soy muy probablemente mas novato que tu, asi que no esperes mucho.
Saludos