Que tal colegas!!
Tengo un problema al querer utilizar sql con Parametros, pero cuando se ejecuta la consulta me aparece el mensaje de error:
'Los datos de cadena o binarios se truncarìan', alguien me puede decir a que se debe este mensaje y como puedo hacer para evitarlo.
De antemano muchas gracias por su tiempo.
PD: TRabajo con Delphi 7 y SQL 2000
Código Delphi
[-]
query := (' UPDATE MAESTRO_CLIENTES SET '+
' CEDULA = :CEDULA, NOMBRE = :NOMBRE, DIRECCION1 = IRECCION1,DIRECCION2 = IRECCION2, TELEFONOP = :TELEFONOP,'+
' FAX = :FAX, APARTADO = :APARTADO, EMAIL = :EMAIL, LIMITE_CREDITO = :LIMITE_CREDITO,'+
' APLICA_LIMITE= :APLICA_LIMITE, SALDO_CUENTA = :SALDO_CUENTA, DIAS_CREDITO = IAS_CREDITO, DESCUENTO = ESCUENTO, FECHA_ULTIMA_COMPRA = :FECHA_ULTIMA_COMPRA,'+
' NUMERO_ULTIMA_COMPRA = :NUMERO_ULITMA_COMPRA, MONTO_ULTIMA_COMPRA = :MONTO_ULTIMA_COMPRA, FECHA_INGRESO = :FECHA_INGRESO, ESTADO = :ESTADO, EXENTO = :EXENTO,'+
' RESENA_EXENTO = :RESENA_EXENTO, TIPO_CLIENTE = :TIPO_CLIENTE, DOLAR = OLAR');
sql.SQL.Add(query);
sql.Prepare;
sql.ParamByName('cedula').Text := cliente.getCedula;
sql.ParamByName('NOMBRE').AsString := cliente.getNombre;
sql.ParamByName('DIRECCION1').AsString := cliente.getDireccion1;
sql.ParamByName('DIRECCION2').AsString := cliente.getDireccion2;
sql.ParamByName('TELEFONOP').AsString := cliente.getTelefonop;
sql.ParamByName('FAX').AsString := cliente.getFax;
sql.ParamByName('APARTADO').AsString := cliente.getApartado ;
sql.ParamByName('EMAIL').AsString := cliente.getEmail;
sql.ParamByName('LIMITE_CREDITO').AsFloat := cliente.getLimite_Credito;
sql.ParamByName('APLICA_LIMITE').AsBoolean := cliente.getAplica_Limite;
sql.ParamByName('SALDO_CUENTA').Asfloat := cliente.getSaldo_Cuenta;
sql.ParamByName('DIAS_CREDITO').AsInteger := cliente.getDias_Credito;
sql.ParamByName('DESCUENTO').AsFloat := cliente.getDescuento;
sql.ParamByName('FECHA_ULTIMA_COMPRA').AsDateTime := cliente.getFecha_Ultima_Compra;
sql.ParamByName('NUMERO_ULITMA_COMPRA').AsString := cliente.getNumero_Ultima_Compra;
sql.ParamByName('MONTO_ULTIMA_COMPRA').AsFloat := cliente.getMonto_Ultima_Compra;
sql.ParamByName('FECHA_INGRESO').AsDateTime := cliente.getFecha_Ingreso;
sql.ParamByName('ESTADO').AsBoolean := cliente.getEstado;
sql.ParamByName('EXENTO').AsBoolean := cliente.getExento;
sql.ParamByName('RESENA_EXENTO').AsString := cliente.getResena_Exento;
sql.ParamByName('TIPO_CLIENTE').AsInteger := cliente.getTipo_Cliente;
sql.ParamByName('DOLAR').AsBoolean := cliente.getDolar;
ejecutar_sin_active(sql);