Multiselect DBGRID

[kainchu3102]

Buenas Tardes Gente, estoy estancado en medio de algo no puedo seguir, sepan disculparme si soy novato, tengo mi código para eliminar varias filas de un DBGRID con Multiselect, pero por alguna razon no me esta funcionando le agradecería su ayuda.

Código Delphi [-]
procedure TFORMABMCURSOS.BitBtn2Click(Sender: TObject);
  var
  X: Integer;

begin
  if DBGABMCURSO.SelectedRows.Count = 0 then
  begin
  Exit;
  ShowMessage('paso 1')
  end
  else
  begin
  for X := 0 to DBGABMCURSO.SelectedRows.Count -1 do

       With MDATOS_DANZA.FDQABMCUOTAS do
      Begin
      DBGABMCURSO.DataSource.DataSet.GotoBookmark(TBookmark(DBGABMCURSO.SelectedRows.Items[X]));
       SQL.Clear;
       SQL.Add ('DELETE FROM cuotas WHERE id_cuo = :ID_CUOE');
       Params.ParamByName('ID_CUOE').AsInteger := X ;
       ExecSQL;
       if RowsAffected = 1 then
       begin
          MDATOS_DANZA.FDTCUOTAS.Refresh;
          ShowMessage('paso 2')
       end;
         //FORMRESULTADOS.DBGRESULTADOS.DataSource.DataSet.Refresh;
       end;
          ShowMessage('paso 3')

  end;


end;

ese es el codigo

[Garada]

Me da que el error está en

Código Delphi [-]
Params.ParamByName('ID_CUOE').AsInteger := X

Estás asignando la variable índice del FOR (X) cuando lo que deberías es asignar el valor del campo del registro al que acabas de moverte.

Y me da que si haces un Refresh de la tabla dentro del bucle seguramente se reinicia también la propiedad Multiselect del DbGrid y pierdes esa información, compruébalo con el debugger.

[kainchu3102]

Probe de esta manera, anule el refresh y solo me muestra el el Showmessage( Paso 3) sigue sin hacer nada

Código Delphi [-]
    Params.ParamByName('ID_CUOE').AsInteger := DBGABMCURSO.SelectedRows ;
      
          //MDATOS_DANZA.FDTCUOTAS.Refresh;

[kainchu3102]

Lo logre de esta manera, pero si elijo tres registro con multiselect para eliminar me los elimina bien, pero me muestra 3 veces el Showmessage('paso2') y 1 el Showmessage('paso3') jajaja cosa eloco.

Código Delphi [-]
procedure TFORMABMCURSOS.BitBtn2Click(Sender: TObject);
  var
  X: Integer;

begin
  if DBGABMCURSO.SelectedRows.Count = 0 then
  begin
  Exit;
  ShowMessage('paso 1')
  end
  else
  begin
     for X := 0 to DBGABMCURSO.SelectedRows.Count -1 do

       With MDATOS_DANZA.FDQABMCUOTAS do
      Begin
      DBGABMCURSO.DataSource.DataSet.GotoBookmark(TBookmark(DBGABMCURSO.SelectedRows.Items[X]));
           SQL.Clear;
       SQL.Add ('DELETE FROM cuotas WHERE id_cuo = :ID_CUOE');
        Params.ParamByName('ID_CUOE').Value := DBGABMCURSO.datasource.dataset.fieldbyname ('id_cuo'). Asinteger;
     
       ExecSQL;
       if RowsAffected = 1 then
       begin
        
          ShowMessage('paso 2')
       end;
         //FORMRESULTADOS.DBGRESULTADOS.DataSource.DataSet.Refresh;
       end;
          ShowMessage('paso 3')

  end;


end;

[Garada]

Empezado por kainchu3102

Lo logre de esta manera, pero si elijo tres registro con multiselect para eliminar me los elimina bien, pero me muestra 3 veces el Showmessage('paso2') y 1 el Showmessage('paso3') jajaja cosa eloco.

Y es correcto.

Código Delphi [-]
Params.ParamByName('ID_CUOE').Value := DBGABMCURSO.datasource.dataset.fieldbyname ('id_cuo'). Asinteger;

Este línea ya asigna el valor del campo como te comentaba.


"Paso2" ocurre cada vez que el borrado tiene éxito y "Paso3" al salir del bucle.

Aquí ya me he perdido con el objetivo del código.
Borrar los registros, ya los borra. ¿Qué quieres informar en "paso2" y en "paso3"?