Eliminar Registro

[Casimiro Noteví]

Claro, es que has puesto "+" en lugar del punto y coma ';' al final de las líneas.

Código Delphi [-]

Temp.Sql.Add('Delete from Suplidor where Codigo = :Codigo and Fecha =')+     <-------
Temp.Sql.Add(' :Fecha and Rnc = :Rnc and Suplidor = :Suplidor and Contacto = :Contacto and Direccion = ireccion and Area = :Area and ')+     <-------
Temp.Sql.Add(' Telefono = :Telefono and Area1 = :Area1 and Fax = :Fax and Termino = :Termino and Limite = :Limite and Email = :Email ');

[agustin173]

casimiro el programa correr y no da error pero no elimina

los datos permanecen en la base de dato

que hacemos ahora.

[microbiano]

Código Delphi [-]
with temp do
 begin
     SQL.Clear;
     Sql.Add('Delete from Suplidor');
     sql.add('where Codigo = :Codigo');
     Sql.Add(' and Fecha = :Fecha and Rnc = :Rnc and Suplidor = :Suplidor and Contacto = :Contacto and Direccion = ireccion and Area = :Area and ');
     Sql.Add(' Telefono = :Telefono and Area1 = :Area1 and Fax = :Fax and Termino = :Termino and Limite = :Limite and Email = :Email ');
     Parameters.ParamByName('Codigo').Value:= EDCodigo.text;
     Parameters.ParamByName('FECHA').Value:= EDfecha.Text;
     Parameters.ParamByName('Rnc').Value:= MERnc.text;
     Parameters.ParamByName('Contacto').Value:= trim(EDContacto.text);
     Parameters.ParamByName('Direccion').Value:= trim(EDDireccion.text);
     Parameters.ParamByName('Area').Value:= trim(CBTelefono.text);
     Parameters.ParamByName('Telefono').Value:= trim(METelefono.text);
     Parameters.ParamByName('Area1').Value:= trim(CBFax.text);
     Parameters.ParamByName('Fax').Value:= trim(MEFax.text);
     Parameters.ParamByName('Termino').Value:= trim(CBterminos.text);
     Parameters.ParamByName('Limite').Value:= trim(EDLimite.text);
     Parameters.ParamByName('Email').Value:= trim(EDEmail.text);
     ExecSQL;
     Application.MessageBox('Registro Eliminado con Exito','Registro Eliminado', MB_OK + MB_ICONINFORMATION);
     SuplidorModificar.Enabled := False;
     SuplidorEliminar.Enabled := False;
    End;

ahora la pregunta el campo fecha de que tipo es? y que estas pasando en el Tedit de fecha?

[agustin173]

microbiano me dice que el registro fue eliminado pero no esta eliminando

los registros siguen en la base de dato

el campo fecha es tipo date

la fecha se coge del sistema de windows y se guarda como constancia de que fecha fue digitado ese registro.

que podemos hacer para resolver este dilema la aplicacion correr pero no elimina

[agustin173]

alguien puede darme una mano por favor con este codigo no me quiere eliminar y no se que hacer

algo debe andar mal en este codigo

[Casimiro Noteví]

No conozco ado, pero seguramente te falta confirmar la transacción, applyupdate, commitretaining, etc.

[agustin173]

casimiro no entiendo como funciona esas intrucciones que dice puedes explicarme mejor

lo que estoy usando es adoquery