¿Por qué no inserta?

[jhonny]

Coloca un Break y haz un depurar, así te darás cuenta que edit9.Text; debe estar vació...

[deadsystems]

El error esta en la línea:

Código Delphi [-]
   With SQL do begin

En el datamodule que utilizo tengo un Query donde en la propiedad SQL tengo:

Código SQL [-]
insert into TColegas (indicativo, nombre, apellido1, apellido2)
Values (indicativo, nombre, apellido1, apellido2)

saludos.

[[Lepe]]

El error ahora es obvio la sql debe ser:

Código SQL [-]
insert into TColegas (indicativo, nombre, apellido1, apellido2)
Values (:indicativo, :nombre, :apellido1, :apellido2)

para indicar que cada "value" es un parámetro que debe ser suministrado con Parambyname.

PD: ¿Me llevo el gallifante?

Saludos

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