Error DataTruncated for column en INT(11)
 

Tengo en una base de datos un entero comun INT(11), y los parametros del SQLQuery como ftInteger(solo modifique esta propiedad y el nombre del parametro), y he probado insertar un dato como el numero 10 por ejemplo en el mysql workbench y me permite, de codigo tengo:

Código Delphi [-]
procedure TForm3.Button4Click(Sender: TObject);
var
ticket:Isucursales1.Tticket;
venta:Isucursales1.Tventa;


begin
      ticket:=Isucursales1.Tticket.Create;
      venta:=Isucursales1.Tventa.Create;

                with ticket do
                  begin
                    fechae:=DateToStr(Now());
                    horae:=TimeToStr(Now());
                    idsucursal:=1;
                    numero:=5;
                   importe:=StrToFloat(StringGrid1.Cells[1,0]);
                    GetIsucursales.hacerticket(ticket);
                  end;
                while not Grillaticket.DataSource.DataSet.Eof do
                  begin
                     with venta do
                      begin
                        idproducto:=Grillaticket.DataSource.DataSet['idproducto'];
                        cantidad:=Grillaticket.DataSource.DataSet['cantidad'];
                        GetIsucursales.ventas(venta);
                      end;
                  end;

end;

esto de arriba en el cliente, por su parte en el servidor:

Código Delphi [-]
  procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');
          ExecSQL();
        end;
    end;

No se que otra cosa debo verificar, el numero lo probe con uno estatico porque mas adelante debo programar para obtenerlo del controlador fiscal.

De primeras, en tu código hay algo que veo raro, primero asignas los parámetros y luego la SQL. ¿No debería ser al revés? No estarás añadiendo código sql dos veces, ¿no?

Pues podria probar pero me parece que en el momento de "ExecSQL" los parametros ya deben estar asignados,para que la consulta se ejecute.Si la consulta SQL es antes o despues es lo mismo.

No es lo mismo.

Pues acabo de probar en el servidor con:

Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');
          ExecSQL();
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;


        end;
    end;

Pero sigo teniendo el mismo problema.
Saludos

¡ Pero cómo es que le das los parámetros después de ejecutarlo ! :rolleyes:

Bueno me equivoque...

Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');

          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;
           ExecSQL();

        end;
    end;

Igualmente sigue el problema.
Lo que lei en foros es que el mensaje implica un dato de mayor tamaño que el definido para el campo, pero es un numero 5?

Disculpen mi ignorancia..

Nadie nace sabiendo :)

¿De qué tipo es el campo en la base de datos?, ¿seguro que es un entero?
¿Qué valor le llega a la hora de asignarlo?, ¿seguro que es un 5? ¿lo has mirado con el depurador?

Tambien intente poner los parametros en orden:

Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(idticket,numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (null,:numero,:importe,:fechae,:horae,:idsucursal);');
               ParamByName('numero').AsInteger:=ticket.numero;

          ParamByName('importe').AsFloat:=ticket.importe;
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;
                ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
           ExecSQL();

        end;
    end;

Intente con F7 pero me pide unas librerias .dcu porque estoy usando zeoslib, la verdad no se muy bien como comprobar el valor que llega al servidor.

Tienes otras formas, por ejemplo, pones el cursor en esa línea, le das a F4 y se detendrá la ejecución justo en ese sitio. Ya puedes mirar el valor que tiene.

Si de hecho abri la aplicacion servidor en la ide y el ejecutable del cliente y probe oprimir el boton que llama a la funcion:



Si te fijas en el cudro de la izquierda dice entre parentesis 5. ja

Muchas gracias

En el codigo del pantallazo estas asignando un valor a 'idticket', si es un autoincremental no le des ningún valor:

Código Delphi [-]
SQL.Text := 'insert into ticket(numero,importe,fechae,horae,idsucursal) values (:numero,:importe,:fechae,:horae,:idsucursal);';

Pues ya lo cambie y sigue el problema de data truncated for column numero at row1

Cosas raras: la fecha y hora en formato texto :eek:

Por cierto, copia y pega el mensaje de error, que todavía no lo has puesto ;)

El error es:

Hola giulichajari.

No soy un experto en MySql, pero dado el mensaje de error, revisaría que el valor que se está intentando ingresar sea soportado por el tipo del campo.

De modo que la primera pregunta que me haría es: ¿ Con que tipo está definido el campo 'numero' en la creación de la tabla ? para lo cuál revisaría:

• Data Types
• Choosing the Right Type for a Column
• Numeric Types

Y la segunda y no menos importante: ¿ Que valor estoy intentando ingresar en 'numero' ?

Saludos :)

Hola ecfisa, por eso hice lo de F4, para saber que valor llega, es lo que esta en la caps mas arriba.

El campo es un entero comun.

Código SQL [-]
create table ticket(
idticket integer not null primary key auto_increment,
numero integer,
importe integer,
fechae date,
horae time,
idsucursal integer,
foreign key (idsucursal) references sucursal(idsucursal)
);

Hola.

Una pregunta, si idticket es "integer not null primary key auto_increment", y le pasas un valor null, en algun sitio debe hacer el auto incremento, trigger, sql o similar.

Puede ser que el error venga porque le estas dando valor null a este campo?

Si no es así, funciona bien el auto incremento?

Saludos

Josep

Gracias por responder.
A mi siempre me anduvo bien por si solo, solo debo pasar los valores del resto de los campos y se incrementa solo.

Hola giulichajari.

Lamento no tener MySQL para tener la seguridad de que funcione en ese gestor, pero al ver la estructura de la tabla encontré dos detalles:

1. El campo IDTICKET tiene la restricción NOT NULL y le envias NULL. (*)
2. El campo IMPORTE esta declarado como INTEGER por lo que truncará los decimales, aún usando la propiedad AsFloat.

La prueba que hice (en Firebird) y funciona correctamente es:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  idticket, numero, idsucursal: Integer;
  importe: Double;
  fechae,horae: string;
begin
  // Valores de prueba
  idticket:= 1; // Para pruebas es irrelevante si es autoinc.
  numero:= 1;
  idsucursal:= 1; // No verifico restricción de int. ref.
  importe:= 111.11;
  fechae:= '04/08/2014';
  horae := '10:19:00';

  with TSQLQuery.Create(nil) do
  try
    SQLConnection:= SQLConnection1;
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO TICKET (IDTICKET,NUMERO,IMPORTE,FECHAE,HORAE,IDSUCURSAL)');
    SQL.Add('VALUES (:PID,:PNRO,:PIMP,:PFECHA,:PHORA,:PSUC)');
    ParamByName('PID').AsInteger := idticket;
    ParamByName('PNRO').AsInteger:= numero;
    ParamByName('PIMP').AsFloat:= importe;  // Redeclarar campo en la tabla
    ParamByName('PFECHA').AsString:= fechae;
    ParamByName('PHORA').AsString:= horae;
    ParamByName('PSUC').AsInteger:= idsucursal;
    ExecSQL;
  finally
    Free;
  end;
end;

(*) En Firebird enviar un valor nulo a un campo con restricción NOT NULL generaría un error de validación (desconozco si es igual en MySQL).

Espero te sirva de ayuda.

Saludos :)

Bueno encontre un problema en la aplicacion que puede estar relacionado, esto se debe a que tnego poca experiencia.

Sucede que el formulario de ticket tiene un boton de agregar producto que lleva a otro form con la lista de productos. Ademas contiene un dataset para poder "traer" el producto, y tener algunos campos calculables como totales y demas, pero me inserta en la tabla productos un registro. Pienso que por ahi va la cosa...

En el boton Agregar del form agregar producto:

Código Delphi [-]
begin
   if (GrillaProd.SelectedRows.Count=1) then
    begin
      ShowMessage('seleccione al menos un producto');
    end
    else
      if (Edit3.Text='') then
          begin
            ShowMessage('Especifique la cantidad a vender');
          end

      else
    begin
    //obtengo idprod para llenar ticket
      Form3.ZQuery1.ParamByName('idp').AsInteger:=GrillaProd.DataSource.DataSet.FieldByName('idproducto').  AsInteger;
        with Form3.ClientDataSet1 do
          begin
            Open;
            Insert;
            FieldByName('cantidad').AsFloat:=StrToFloat(Edit3.Text);
            FieldByName('nombre').AsString:=ZQuery1.FieldByName('nombre').AsString;

            FieldByName('preciou').AsFloat:=ZQuery1.FieldByName('preciou').AsFloat;
            FieldByName('total').AsFloat:=((StrToFloat(Edit3.Text)) * (ZQuery1.FieldByName('preciou').AsFloat));

            if State in [dsEdit,dsInsert] then
              Post;
            if ChangeCount>0 then
              begin
                ApplyUpdates(0);

              end;

        end;
         Form3.StringGrid1.Cells[1,0]:=Form3.ClientDataSet1.FieldByName('totalticket').AsString;
       end;
end;

Creo que corrigiendo esto va a andar, porque para que funcione el HACER TICKET del form de ticket tiene que estar bien seteada la grilla.

Hola de vuelta, bueno probe comentar la linea de numero del lado del servidor

Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin


         // ParamByName('numero').AsInteger:=ticket.numero;

          ParamByName('importe').AsFloat:=ticket.importe;
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;
                ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
                SQL.Add('insert into ticket(idticket,numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (null,:numero,:importe,:fechae,:horae,:idsucursal);');
           ExecSQL();

        end;
    end;

y obtuve

Error: data truncated for column importe at row 1, osea el problema esta en la insercion o probablemente en el id

Hola giulichajari.

De nuevo estas llamando a los parámetros antes de ser declarados en la sentencia. Mas allá de cualquier otro error que pudiera existir, no va a funcionar de ese modo. Es más, me extraña que no te aparezca la excepción "Parameter 'xxxx' not found".
Siempre primero declara la consulta con sus parámetros y luego, una vez que existan, hace referencia a ellos.

También te aconsejo que te acostumbres a llamar al método Clear antes de invocar al método Add, eso limpiará cualquier residuo que pudiera haber quedado. Te vas a ahorrar dolores de cabeza con errores de sintáxis de SQL que no vas a saber de donde vienen...

Código Delphi [-]
procedure Tsucursales.hacerticket(ticket:Tticket);
begin
  consultas:=Tsucursallaferretera.Create(nil);
  with consultas.queryticket do
  begin
    SQL.Clear;
    SQL.Add('insert into ticket(idticket,numero,importe,fechae,horae,idsucursal)');
    SQL.Add('values (null,:numero,:importe,:fechae,:horae,:idsucursal);');

    // ParamByName('numero').AsInteger:=ticket.numero;
    ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
    ParamByName('importe').AsFloat:=ticket.importe;
    ParamByName('fechae').AsString:=ticket.fechae;
    ParamByName('horae').AsString:=ticket.horae;
    ExecSQL();
  end;
end;

Saludos :)