¿Por qué no inserta?

[[Lepe]]

Pues no, parece que no me lo llevo

Código Delphi [-]

var Val:Variant;
begin
  With Datamodule6 do begin
    With Guarda_Colega do begin
      Close;
//      Active := True; No puede estar activa si vamos a modificar su SQL
      With SQL do begin
//        Clear;  //sobra, ya lo hace internamente
        Text := 'INSERT INTO TColegas (indicativo, nombre, apellido1, apellido2) Values (:indicativo, :nombre, :apellido1, :apellido2)';
        if edit9.Text = EmptyStr then
          Val := NULL
          else
          Val := edit9.text;       
        ParamByName('indicativo').Value:=Val;

// lo mismo que he hecho, para el resto de parámetros.
// Puedes reusar la variable Val, ya que siempre se le asigna un valor.

        ExecSQL;
      end;
    end;
  end;

[vtdeleon]

Chanfle!, en la cara de uno!

Saludos

[deadsystems]

Con el ejemplo de Lepe me da el error:

'Maximum validity check failed. Field: indicativo.'

[jhonny]

Lo que sucede es que en tu BD mas exactamente en tu tabla tienes configurado un Check que restringe valores para que sean menores en ese campo a algun determinado valor (Que seria el valor que estas pasando como parametro).

[deadsystems]

Yo tengo el campo indicativo con un tamaño de 8 catacteres y tan solo le paso 6, a lo sumo 7 que es el máximo permitido.

[jhonny]

No estoy hablándote de el tamaño del campo si no de el dato en si pues debe haber un Check en la tabla; verifica los Check de tu tabla pues allí habrá alguno que este verificando ese dato.

[[Lepe]]

Tambien puede ocurrir otro detalle:

En mi SQL he indicado los dos puntos seguido del nombre del campo, por ejemplo ":indicativo".... en ese caso no se interpreta como un parámetro sino como un nombre de campo, es decir en lugar de usar "Parambyname('indicativo')" debes usar "FieldByName('indicativo')"

Para que se considere un parámetro, debería ser los dos puntos seguido de "algo " que no sea el nombre del campo, por ejemplo "values (:prIndicativo, :prNombre, ...)"



Saludos