Eliminar Registro

[Casimiro Noteví]

temp.sql.add

Lo acabo de mirar, es así.

[agustin173]

casimiro lo hice como me digiste pero me da otro error

cuando intento correr el programa el error dice:

"Statement expected, but expresion of type 'integer' found'

y me lo marca en la siguiente line:

Código Delphi [-]
Temp.Sql.Add(' Telefono = :Telefono and Area1 = :Area1 and Fax = :Fax and Termino = :Termino and Limite = :Limite and Email = :Email ');

Que debo hacer.

[Casimiro Noteví]

¿Puedes poner exactamente el código que estás usando?

[agustin173]

casimiro el codigo es el siguiente:

Código Delphi [-]
IF Application.MessageBox ('Desea Eliminar Este Registro'+
           Chr(13)+'',
          '',mb_YesNo+MB_IconStop) = idYes Then
    Begin
     Temp.SQL.Clear;
     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 ');
     Temp.Parameters.ParamByName('Codigo').Value:= EDCodigo.text;
     Temp.Parameters.ParamByName('FECHA').Value:= EDfecha.Text;
     Temp.Parameters.ParamByName('Rnc').Value:= MERnc.text;
     Temp.Parameters.ParamByName('Contacto').Value:= EDContacto.text;
     Temp.Parameters.ParamByName('Direccion').Value:= EDDireccion.text;
     Temp.Parameters.ParamByName('Area').Value:= CBTelefono.text;
     Temp.Parameters.ParamByName('Telefono').Value:= METelefono.text;
     Temp.Parameters.ParamByName('Area1').Value:= CBFax.text;
     Temp.Parameters.ParamByName('Fax').Value:= MEFax.text;
     Temp.Parameters.ParamByName('Termino').Value:= CBterminos.text;
     Temp.Parameters.ParamByName('Limite').Value:= EDLimite.text;
     Temp.Parameters.ParamByName('Email').Value:= EDEmail.text;
     Temp.ExecSQL;
     ShowMessage('Registro Eliminado');
     SuplidorModificar.Enabled := False;
     SuplidorEliminar.Enabled := False;
    End;
end;

cuando corre el error que dice es:

"Statement expected, but espresion of type 'integer' found"

lo marca en la linea:

Código Delphi [-]
Temp.Sql.Add(' Telefono = :Telefono and Area1 = :Area1 and Fax = :Fax and Termino = :Termino and Limite = :Limite and Email = :Email ');

Que puedo hacer chequea el codigo por favor.

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