¿Por qué no inserta?
 

Hola, amigos del foro.

Tengo una aplicación donde quiero guardar en una base de datos en MS Access los datos que se introducen en un formulario que contiene edit's.
Cuando oprimo el boton guardar se debe ejecutar el siguiente código SQL

Código SQL [-]
  With Datamodule6 do begin
    With Guarda_Colega do begin
      Close;
      Active := True;
      With SQL do begin
        Clear;
        Text := 'INSERT INTO TColegas (indicativo, nombre, apellido1, apellido2) Values (:indicativo, :nombre, :apellido1, :apellido2)';
        ParamByName('indicativo').Value:=edit9.Text;
        ParamByName('nombre').Value:=edit5.Text;
        ParamByName('apellido1').Value:=edit6.Text;
        ParamByName('apellido2').Value:=edit7.Text;
        ExecSQL;
      end;
    end;
  end;

Sin embargo, cuando ejecuto el código me devuelve un error.

¿Qué estoy haciendo mal?

Saludos.

Que componentens usas>? ADO?, Si es el caso, antes de ParamByName va Parameter. (Parameter.ParamByName('nombre').Value)
Si es otro componente, entonces en vez de usar Value debes definirle el tipo de datos correspondiente, Por ejemplo AsString o AsInteger,...

¿Y el error es?????????

Ahora el error que me devuelve es "Field value requiered. Field: indicativo."

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

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.

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? :D

Saludos

Pues no, parece que no me lo llevo :p

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;

Chanfle!, en la cara de uno!

Saludos

Con el ejemplo de Lepe me da el error:

'Maximum validity check failed. Field: indicativo.'

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

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.

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.

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

:eek: Y ese comportamiento?:eek: Que extraño me resulta esto.

Saludos