TQuery y calcular campo

[[Caral]]

Hola

Código SQL [-]
SELECT UNIDAD * +'editMultiplicador.Text'+ AS RESULTADO FROM mitabla;

Saludos

[[coso]]

hola, ten en cuenta de distinguir tambien el caso en que el texto este vacio o no sea un numero. saludos.

[[Delphius]]

Hola, si estoy entendiendo bien... lo que se busca multiplicar una columna (mejor dicho campo) por un valor.

El problema es que el multiplicador que se pasa está en formato string, por tanto deben pasarlo a integer.

No se que base de datos usas pero una solución es emplear cast (1):

Código SQL [-]
select tu_campos, el_campo * cast('5' as integer) as resultado from tu_tabla;

Otra opción es lanzar la consulta desde Delphi, empleando parámetros.

(1) Debes ver si el motor de base de datos que usas soporta cast.

Saludos,

[marcoszorrilla]

Igual resulta más fácil utilizar una variable:

Código Delphi [-]
var
n:Integer;
begin
try
n:=StrToInt(Edit1.Text);
select tu_campos, el_campo * n as resultado from tu_tabla;
Except
ShowMessage('Atención:Se ha producido un error en la conversión.');
end;
end;

Un Saludo.

[mzell]

Hola.
Esta es otra alternativa (además sirve para extender lo comentado por el compañero Delphius sobre los parámetros).
Empleando el componente ADODataset:

Código Delphi [-]
ADODataSet1.CommandText := 'SELECT *, UNIDAD * :Multiplicador AS RESULTADO FROM mitabla';
ADODataSet1.Parameters.ParamByName('Multiplicador').Value := strtoint(Edit1.Text);

[[Caral]]

Hola

Código Delphi [-]
Table1.Sql.Text := 'SELECT *, UNIDAD * :Multiplicador AS RESULTADO FROM mitabla';
Table1.Parameters.ParamByName('Multiplicador').Value := strtoint(Edit1.Text);

Los parámetros son buenos, sobre todo cuando hay varios datos que quieres sacar de la sentencia, pero para sacar un solo dato, pues.....
Saludos

[HombreGordo]

Parece no funcionar, casi siempre recibo el error de "Invalid use of keyword" refieriéndose al "SELECT" o al "AS". Estuve pensando en que si la inexistencia del campo "RESULTADO" tiene algo que ver, debido a que solo la quiero para mostrar, pero actualmente no existe en la tabla como tal.

[[coso]]

Hola, creo que esto deberia funcionarte :

Código Delphi [-]
   ...
   try 
     strtofloat(editMultiplicador.Text);
   except
     Editmultiplicador.SelectAll;
     Editmultiplicador.SetFocus;
     exit;
   end;

   SQL.Text := 'SELECT *, UNIDAD * '+ editMultiplicador.Text + ' AS RESULTADO FROM mitabla';
   ...