Borrar datos sql

[ttotto]

Buenos dias

Una vez que pude borrar un dato

me surge una pregunta

como puedo borrar un dato una vez que lo identifico en un dbgrid con el puntero y dando un click

que apareciera en otra forma y desde ahi estar seguro de borrarlo

gracias de antemano

[ecfisa]

Hola ttotto.

¿ Y no te sería mas sencillo algo como esto ?

Código Delphi [-]
// Como ejemplo utilizo el evento OnDblClick del DBGrid, pero bién pudiera ser cualquier otro
procedure TForm1.DBGrid1DblClick(Sender: TObject);
const
  MSG = '¿ Desea borrar el dato %s ?';
begin
  with TDBGrid(Sender) do
   if MessageBox(Handle,PChar(Format(MSG,[SelectedField.AsString])),'', MB_ICONQUESTION+MB_YESNO) = IDYES then
      DataSource.DataSet.Delete;
end;

Saludos.

[ttotto]

Gracias ecfisa

voy a probar este codigo y te aviso

como agradecerte est oque haces

gracias nuvamente

[ttotto]

Hola ecfisa.

buenos dias todo bien con tu codigo

ahora bien si quiero borrar desde un boton que diga borrar una vez seleccionado del dbgrid

pensando en pasarle el valor que traigo de un simpledataset a un sqlquery te pongo el codigo

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
begin
   SQLQuery1.SQL.Clear;
   SQLQuery1.Close;
   SQLQuery1.SQL.Add('delete from departamento where pos01=:pos');
   SQLQuery1.Params.ParamByName('pos').Value:=SimpleDataSet1.DataSet;
   SQLQuery1.ExecSQL;


end;

no puedo completar el codigo la pasarle e lvalor del simpledataset al sqlquery

me puedes ayudar a entender

de antemano gracias

[ecfisa]

Hola ttotto.

Si el nombre del campo es "pos", creo que deberías hacer:

Código Delphi [-]
    ...
    SQLQuery1.Params.ParamByName('pos').Value:=SimpleDataSet1.FieldByName('pos').Value;
    ...

Saludos.

[ttotto]

Gracias ecfisa
dentro de esta forma para hacer el borrado que ya lo hice y funciona

deseo que una vez que se borre me actualize mi dbgrid

se que es con un refresh y con un open y un close, ya lo intente de

varias formas poniendo primero el refresh ,luego el close y por ultimo el opne y

no pasa nada ya inverti el orden y nada me puedes ayudar

gracias

[ecfisa]

Hola ttotto.

Si el DBGrid está asociado, mediante a su propiedad DataSource al TSimpleDataSet, es decir:

DBGrid1.DataSource -> DataSource1.DataSet -> SimpleDataSet1

Basta con que hagas:

Código Delphi [-]
  SimpleDataSet1.Refresh;

Al finalizar cualquier accion de inserción, modificación o borrado realizado mediante el TSQLQuery.

Saludos.