Eliminar Registro

[agustin173]

Tampoco funciona asi con Temp.Selectsql.line,

el selectsql no lo reconoce

puedes darme un codigo que me funcione para eliminar registro de una tabla que use cadena larga por favor, es que no se mucho de programacion.

el componente Temp es un Adoquery

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