Borrar datos sql

[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.

[ttotto]

ya lo hice asi ecfisa y no me responde nada

te envio mi codigo

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  SimpleDataSet1.Connection:=Form1.SQLConnection1;
  SimpleDataSet1.DataSet.CommandText:='Select * from  posiciones';
  SimpleDataSet1.Active:=True;
  SimpleDataSet1.Refresh;
  SimpleDataSet1.Open;
end;