enviar dato real a sql

[donald shimoda]

Empezado por Memo6015

Query:='SP_MODIFICA_PRODUCTO '
+ IntToStr(CodigoIngreso_Int) + ','
+ FloatToStr(ValorIngreso_real);
Q_IngresaPlato.SQL.Clear;
Q_IngresaPlato.SQL.Add(query);
Q_IngresaPlato.ExecSQL;

pero esto me da error


espero entiendan mi problema, gracias por la ayuda

Si usas parametros del query (en este caso store procedure ) no es mas simple? Tiene que funcionar.

Saludos.

[Memo6015]

es que el dato lo debo capturar en el programa y del programa enviatr los datos a la tabla en sql

necesito saber como mandar numeros reales, con string e integers no hay problema

[[maeyanes]]

Hola...

Intenta de esta forma:

Código Delphi [-]
Q_IngresaPlato.SQL.Text := 'SP_MODIFICA_PRODUCTO :Param1 :Param2';
Q_IngresaPlato.ParamByName('Param1').AsInteger := CodigoIngreso_Int;
Q_IngresaPlato.ParamByName('Param2').AsFloat := ValorIngreso_Real;
Q_IngresaPlato.ExecSQL;

Si no te funciona (no lo he probado ), puedes intentar usando un componente para tratar con procedimientos almacenados, claro, esto depende de que componentes estés usando para conectarte a tu base de datos...



Saludos...

[donald shimoda]

Empezado por maeyanes

Hola...

Intenta de esta forma:

Código Delphi [-]
Q_IngresaPlato.SQL.Text := 'SP_MODIFICA_PRODUCTO :Param1 :Param2';
Q_IngresaPlato.ParamByName('Param1').AsInteger := CodigoIngreso_Int; 
Q_IngresaPlato.ParamByName('Param2').AsFloat := ValorIngreso_Real; 
Q_IngresaPlato.ExecSQL;

Saludos...

Es lo que decia, sin el código.

[Memo6015]

no me funciono

mi procedimiento almacenado es este

CREATE PROCEDURE SP_MODIFICA_PRODUCTO

@Cod smallint,
@Cant float
AS
update productos
set Cantidad = @Cant
where Codigo =@Cod

como ven recibe un dato float, con el entero no tengo problemas y lo malo que desde el programa debo trabajar obligatoriamente con datos float por que el integer hace un trunc y 15,5 lo deja en 15, enviar el dato como un string tampoco puedo por que la variable an sql esta definida como float
asi que me dara error si envio un string a un float

la parte que escribe es un ciclo

for i:=0 to Indice_Int-1 do
begin
ValorIngreso_real:=RestaProductosCod[i]/1000;
CodigoIngreso_Int:=StrToInt(codigo_Ing[i]);
{
Query:='SP_MODIFICA_PRODUCTO '
+ IntToStr(CodigoIngreso_Int) + ','
+ FloatToStr(ValorIngreso_real);
Q_IngresaPlato.SQL.Clear;
Q_IngresaPlato.SQL.Add(query);
Q_IngresaPlato.ExecSQL;
}
end;

ValorIngreso_real es el valor de tipo real definido en delphi como ven recibe una division que le da datos del tipo 14,5 47,8 etc
pero el procedimiento queda asi

SP_MODIFICA_PRODUCTO 1, 15,4
como ven se crean tres parametros debido a la coma de delphi me gustaria cambiar esa coma por punto


bueno gracias por la ayuda

lo agradezco mucho, todos los puntos de vista me sirven

[elmago]

Hola amigo Memo

Tu problema del signo de separacion de decimales lo tuve hace tiempo y lo resolvi cambiando la configuracion regional del win. alli donde se ingresa el signo para la separacion de miles le puse la "coma" y para la separacion de decimales le puse el "punto". Asi todo el Delphi trabaja con el formato aceptado por el SQL.

Espero que te sirva.

Un saludo.

[Memo6015]

si eso era!!! mi configuracion regional estaba en comas

lo puse en puntos y ya funciona muchas
pero muchas gracias

[donald shimoda]

Empezado por elmago

Hola amigo Memo

Tu problema del signo de separacion de decimales lo tuve hace tiempo y lo resolvi cambiando la configuracion regional del win. alli donde se ingresa el signo para la separacion de miles le puse la "coma" y para la separacion de decimales le puse el "punto". Asi todo el Delphi trabaja con el formato aceptado por el SQL.
Un saludo.

Si, pero el problema es este problema causa side effects sobre otras aplicaciones del sistema. No porque la solución sea la más simple implica que es la correcta.

Yo te recomiendo que busques por el lado de los params o bien que fuerces dentro de tu código el separador decimal. Lo lógico sería hacerlo sobre windows pero como te digo puedes afectar a otras aplicaciones, y hay que ser solidarios en un entorno compartido.

Saludos