Eliminar Registro

[agustin173]

no me funciono me da un error donde dice lines como que no lo reconoce

osea el temp.sql.lines

no me correr por el lines no se que hacer

[Casimiro Noteví]

Empezado por agustin173

no me funciono me da un error donde dice lines como que no lo reconoce

osea el temp.sql.lines

no me correr por el lines no se que hacer

Depende del componente que sea, puede que: temp.selectsql.lines

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