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