Borrar datos sql

[ttotto]

Buenos dias todos

tengo el siguiente problema : deseo borrar un dato , cuando lopongo fijo si se borrar

ahora lo quiero hacer por medio de un edit , mi codigo es este

Código Delphi [-]

SQLQuery1.SQL.Text:='delete from departamento where depto01=10';

ya tengo el edit pero no se com oponer el codigo para borrar a traves de este

de antemano gracias por su ayuda

[Casimiro Notevi]

Empezado por ttotto

tengo el siguiente problema : deseo borrar un dato , cuando lopongo fijo si se borrar
ahora lo quiero hacer por medio de un edit , mi codigo es este
Código Delphi [-]SQLQuery1.SQL.Text:='delete from departamento where depto01=10';
ya tengo el edit pero no se com oponer el codigo para borrar a traves de este
de antemano gracias por su ayuda

Pues igual que se te explicó en el otro hilo, ejemplo, tienes una tabla llamada 'unatabla' y quieres borrar el cliente cuyo campo 'codigo' escriba el usuario en el tedit edit1

Código Delphi [-]
query.sql.text := 'delete from unatabla where codigo='+IntToStr(edit1.text);

Por cierto, ¿antes era ms sql server y ahora mysql?

[[oscarac]]

podrias hacer algo como esto

Código Delphi [-]
 
qryBorrar.Clear
qryBorrar.Sql.Add('delete from departamento where depto01 = : Dpto'
qryBorrar.Sql.Parameters.ParambyName('Dpto').value := edit1.text
qryBorrar.ExeSql;

[ttotto]

Hola estimado Casimiro.

te agradesco tu invaluable ayuda

ya puse el codigo y memanda el siguiente error

there is no averloaded version of 'inttostr' that can be called with these arguments

[[newtron]]

Empezado por Casimiro Notevi

Por cierto, ¿antes era ms sql server y ahora mysql?

No no... es myserver.

[Casimiro Notevi]

Empezado por ttotto

Hola estimado Casimiro.
te agradesco tu invaluable ayuda
ya puse el codigo y memanda el siguiente error
there is no averloaded version of 'inttostr' that can be called with these arguments

Pues como siempre, te recomiendo que pongas tu código aquí, ya que nuestra bola de cristal está averiada y con los recortes no nos da para repararla

Por cierto, la opción de oscarac, con parámetros, es la más profesional, segura y adecuada

Empezado por newtron

No no... es myserver.

No sabía que MS hubiese comprado Oracle

[ttotto]

Casimiro:

copie el codigo com oesta en el ejemplo y manda el siguiente error

undeclared identifier:'parameters'

[ttotto]

perdon tienes razon

mi codigo

Código Delphi [-]
 SQLQuery1.SQL.Add('delete from departamento where depto01=depto');
   SQLQuery1.SQL.Parameters.ParamByName('depto').Value:=Edit1.Text;

me manda el error

undeclared identifier:'parameters'

[[oscarac]]

depto01=depto

despues del igual debe haber dos puntos :

[ttotto]

Gracias oscarac

te explico y te pongo el codigo

Código Delphi [-]

SQLQuery1.SQL.Parameters.ParamByName('depto').Value:=Edit1.Text;

cuando estoy introduciendo el codigo arriba descrito despues de sql

en la ayuda no se encuentra la palabra parameters y es cuando me envia el error

undeclared :'parameters'

[ecfisa]

Empezado por ttotto

Gracias oscarac

te explico y te pongo el codigo

Código Delphi [-]
SQLQuery1.SQL.Parameters.ParamByName('depto').Value:=Edit1.Text;

cuando estoy introduciendo el codigo arriba descrito despues de sql en la ayuda no se encuentra la palabra parameters y es cuando me envia el error
undeclared :'parameters'

Hola ttotto.

Es que Params no es una propiedad de SQL (TStrings) sino de TSQLQuery.

Debería ser:

Código Delphi [-]
SQLQuery1.Params.ParamByName('depto').Value:= Edit1.Text;

Saludos.

Edito: Además toma en cuenta lo que te comentó oscarac, los parámetros dentro de la cadena sql van precedidos de ':'

[ttotto]

Nuevamente no tengo palabras para agradecerle a todos

casimiro, oscarac y ecfisa

ya pude borrar el dato

gracias mil

[[oscarac]]

Empezado por ttotto

Nuevamente no tengo palabras para agradecerle a todos

casimiro, oscarac y ecfisa

ya pude borrar el dato

gracias mil

Ah no pues.... me halaga que me menciones con semejantes mostros en delphi...

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