error truncasted SQL "Modificando"

[agustin173]

Hola muchachos como estan todos

Muchachos otro error nuevo para mi que no entiendo es el truncado en SQL me explico

Cuando intento modificar un registro por segunda vez me tira un error que dice:

"String or binary data would be truncated process stopped. Use step or run to continue."

ese error me dicen que es cuando hay mas caracteres en un edit que lo que soporta el campo en la tabla

osea que si tengo un varchar(20) estoy tratanto de introducir 21 o mas caracteres, en mi caso e chequeado todo y mis campos estan bien con sus valores respectivos y cada edit le puse su MaxLenght con la cantidad que es

estoy usando delphi 7
una tabla llamada = Suplidor
un adoquery llamado = Temp

La estructura de la tabla es la siguiente:

Estoy usando SQL Server 2008
Una base de dato llamado = Synapse
Una tabla llamada = Suplidor

Los campos son los Siguientes:

Codigo int (Llave)
Fecha date
Rnc char(12)
Suplidor varchar(50)
Contacto varchar(25)
Direccion varchar(50)
Area char(4)
Telefono char(8)
Area1 char(4)
Fax char(8)
Termino varchar(9)
Limite char(13)
Email varchar(50)

el codigo es el siguiente para que verifiquen por favor si es el codigo

Código Delphi [-]
 // Modifica los Datos en la Base de Datos
  Temp.SQL.Clear;
  Temp.Sql.Text:='Update Suplidor set Rnc = :Rnc, Contacto = :Contacto, Direccion = ireccion, Area = :Area, Telefono = :Telefono, Area1 = :Area1, Fax = :Fax, Termino = :Termino, Limite = :Limite, Email = :Email where Codigo = :Codigo';
  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.Parameters.ParamByName('Codigo').Value:= EDCodigo.text;
  Temp.ExecSQL;
  ShowMessage('Registro Modificado');
  SuplidorModificar.Enabled := False;
  SuplidorEliminar.Enabled := False;

Este es el codigo para modificar la data ayudenme por favor.

[marcoszorrilla]

En un principio podrías probar a hacer el máximo ancho del Tedit Maxlength = al que tenga el campo receptor.

Un Saludo.

[agustin173]

marcoaszorrilla ya probe eso pero no funciona

que hacemos

[agustin173]

Gracias por todo ya resolvi el problema

gracias marcoszorrilla por tu ayuda

[ecfisa]

Hola Agustin.

¿ Podrías decirnos como lo solucionaste ?

Muchas gracias.