4 respuestas en este tema

[abraham85]

hola gente q tal ? 


les traigo un consulta como lo indica el titulo 


tengo una variable de tipo Currency a la que segun el valor de otra variable (totvariedad=0) le quiero asignar NULL para
q cuando me actualize en la Tabla de la BD  no me guarde ningun valor.

delphi

if n=1 then totvariedad := multi
                  else if n=0 then totvariedad := null 
                              else totvariedad := Power(multi, 1/n)   ;
           AQimpu3.SQL.Text := 'update  '+tablavariedad+'  '+
                                  'set  actual ='+ currtostr(totvariedad) +' '+
                                  'where idvariedad= '+ inttostr(variedad)+' '+
                                  'and  idnegocio= '+inttostr(negocio)+' ';
           AQimpu3.ExecSQL;

totvariedad y multi con Currency y cuando ejecuto el procedimiento
me sale el error : "could not convert variant of type null into type Currency"


hay alguna manera de asignarle null a una variable en delphi?


Gracias por todo.


Saludos!

[bigleaguer]

Saludos.


Yo presumo que lo que quieres hacer es que cuando la variable n <> 0, te actualice los datos en la BD y cuando n=0 no toque nada en la BD. De ser así entonces tienes que preguntar de otra forma. Por ejm:

delphi

begin
  { Si n=0 terminamos la rutina }
  if n = 0 then 
    Exit;
 
 
  { Esto se va a realizar cuando n sea <> 0 }
  if n = 1 then
    totvariedad := multi
  else
    totvariedad := Power(multi, 1/n);
 
 
  { Es recomendable el uso de parámetros en las consultas SQL }
   AQimpu3.SQL.Text := 'UPDATE tablavariedad SET actual = :totvariedad WHERE idvariedad = :variedad AND idnegocio = :negocio';
  AQimpu3.ParamByName('totvariedad').Value := totvariedad;
  AQimpu3.ParamByName('variedad ').Value := variedad ;
  AQimpu3.ParamByName('negocio').Value := negocio;
  try
    AQimpu3.ExecSQL;
  except
    { Aqui puedes capturar cualquier error en la BD }
    //...
  end;
end;

Espero te sirva.

[Sergio]

Con "Campo.Value:= null" a mi no me funciona, parece que "value" no admite nulos por diseño.

Yo cuando quiero poner un campo de firebird a null, hago algo como esto (escrito de memoria, ojo):

delphi

SQL.Text:= 'update MiTabla set Campo=:VALOR where .... ';
SQL.Prepare;
SQL.Params[0].AsVariant:= null;
SQL.Execute;

El truco es usar un parametro y darle valor con .AsVariant, y no con .Value.

[Marc]

Lo primero que te recomendaría es que uses parámetros. Como en los ejemplos que te dan los compañeros. Así podrás asignar un valor nulo (que solo se puede asignar a una variable de tipo Variant, no a un dato de Tipo String, como es el resultado de la función CurrToStr).

En todo caso, si quieres tocar lo mínimo tu código, entonces declara TotalVariedad como String, y utiliza este código :

delphi

if n=1 then totvariedad := CurrToStr(multi)
                  else if n=0 then totvariedad := 'null'
                              else totvariedad := CurrToStr(Power(multi, 1/n));
           AQimpu3.SQL.Text := 'update  '+tablavariedad+'  '+
                                  'set  actual ='+ totvariedad +' '+
                                  'where idvariedad= '+ inttostr(variedad)+' '+
                                  'and  idnegocio= '+inttostr(negocio)+' ';
           AQimpu3.ExecSQL;

Saludos.

[Rolphy Reyes]

Saludos.

Las variables que soportan Null son las tipos Variants, pero como bien indican los demás compañeros es preferible utilizar una consulta parametrizada así mandas Null inicialmente al parámetro y haces la validaciones de lugar para ver si tiene valor la variable, entonces si coincide con el valor esperado le haces la respectiva asignación de valor al parámetro.