Hola muchachos como estan
Mi problema es que deseo eliminar un registro pero me da un error al momento de correr la aplicacion me explico mejor
Estoy usando delphi 7
Una tabla llamada = Suplidor
con 13 Campos que son: (Codigo,Fecha,Rnc,Suplidor,Contacto,Direccion,Area,Telefono,Area1,Fax,Termino,Limite y Email)
un Adoquery llamado = Temp
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.Text:='Delete from Suplidor where Codigo = :Codigo and Fecha = :Fecha and Rnc = :Rnc and Suplidor = :Suplidor and Contacto = :Contacto and Direccion = ireccion and Area = :Area and 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;
Cuando intento correr la aplicacion me manda un mensage que dice:
"String Literal may have at most 255 elements"
el error me lo marca en la linea del Temp.Sql.Text =
si le quito a la linea los dos ultimos campos como son limite y email me correr sin problema pero entonce no puedo eliminar esos dos campos que hago muchachos para resolver esto.