Actualizar campo de dbgrid

[[egostar]]

Ahh

Ya veo

Entonces la respuesta a nuestra pregunta "Que usas para enlazar el DBGrid", es un Query.

Pues mi sugerencia es que uses otro query para realizar los cambios.

Del código que al final puso nuestro buen amigo Caral, Query1 debe ser el Query "nuevo" que será usado para la actualización.

Si tienes Query1 como el objeto que usas para enlazar al DBGrid, entonces cambialo por Query2 o el nombre que le pongas.

Solo necesitas agregar al final de la actualización:

Query1.Close;
Query1.Open;

Para que los cambios se vean reflejados en el DBGrid.

Salud OS.

[jorelivi]

Sorry egostar, este es mi codigo me ilustras por favor.
Son dos casos el for es para cuando selecciono del dbgrid que es donde esta el problema. El otro funciona bien que es cuando se quiere para todos los registros.

plese for your help me.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var sQuery, Querytrab:String;
var I:Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then begin
     with DBGrid1.DataSource.DataSet do begin
                   for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
                       GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
                       QueryTrab:='Update cuen01 set Fecha_venc=Fecha_apli+:dias Where cclie= :cclie And Docto= :docto';
                       Query1.Close;
                       Query1.SQL.Clear;
                       Query1.SQL.Add(Querytrab);
                       Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
                       Query1.ParamByName('cclie').AsString:=Edit1.Text;
                       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
                       Query1.ExecSQL;
                   end;
{                   Label5.Caption:='oy es:'+DateTimetoStr(Now);
                   sQuery:='Select * from cuen01 where cclie=:cclie and tipo_mov=1';
                   Query1.Close;
                   Query1.SQL.Clear;
                   Query1.SQL.Add(sQuery);
                   Query1.ParamByName('cclie').AsString:=Edit1.Text;
                   Query1.Open;
                   Label2.Visible:=True;
                   Edit4.Visible:=True;
                   BitBtn2.Visible:=True;}
            end;
       end
    Else
   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;

[[egostar]]

No entiendo cual es tu problema, de hecho si lo hace bien en la segunda SENTENCIA SQL, deberia hacerlo igual en la primera.

Lo que veo diferente es que en una metes docto y en otra no.

Cual es el problema, te da error, no te actualiza?

En la propiedad Options del DBGrid debes de tener configurado dos cosas

dgRowSelect en True
dgMultiSelect en True

Salud OS.

[jorelivi]

no me esta actualizando la fecha de vencimiento segun el codigo.

las opciones del dbgrid estan en TRUE las dos. y al actualizar me manda un mensaje de "List Index out of Bounds (1)"

[[egostar]]

Creo ver el problema, como estas usando el mismo Query, se pierde la relación de los registros que estas seleccionando, yo te sugiero que uses otro Query para hacer la actualización, solo cambia en el código Query1 por Query2 o el nombre que tenga el nuevo Query.

Solo recuerda que después de actualizar, debes de cerrar y abrir el Query1 para que veas los cambios.

Salud OS.

[jorelivi]

Lo voy a intentar, sigo con ustedes y gracias.

Una duda como coloco una imagen para mi usuario y que se vea como los demas del foro. ??????

[[Caral]]

Hola
HUiiiii esto si que es mas complicado que tu problema, tienes que pertenecer a un grupo selecto muy selecto de foristas........ES BROMA.
Solo editas tu perfil y buscas editar avatar en el pones la foto, es facil.
Saludos