Tengo este proceso
Código Delphi
[-]
procedure TForm1.MachinesCharactValue;
begin
sSqlstatement:='SELECT value_type '+
'FROM technical_items '+
'WHERE visible=''Y'' and tech_id='+sTechId;
IBSQL_access(sSQLstatement);
if (DataModule2.IBSQL1.FieldByName('value_type').AsString)='INT' then
sSqlstatement := 'SELECT MIN(cast(t.svalue as float)) as Minimo'+
', MAX(cast(t.svalue as float)) as Maximo'
else if (DataModule2.IBSQL1.FieldByName('value_type').AsString)='VAR' then
sSqlstatement := 'SELECT distinct t.svalue as Intervalo'
else
ShowMessage('Fallo la construccion del sSQL');
sSqlstatement:=sSqlstatement+' FROM technical_inf t'+
' WHERE t.id_part_type=0'+
' AND t.tech_id='+sTechId;
IBDataSet_access(sSQLstatement);
if (DataModule2.IBSQL1.FieldByName('value_type').AsString)='VAR' then
dbgSuppliers.Columns[0].FieldName:='Intervalo'else
begin
dbgSuppliers.Columns[0].FieldName:='Minimo'; dbgSuppliers.Columns[1].FieldName:='Maximo'; end;
sExecStatus:='MachinesCharactValue';
visible_screen;
dbgSuppliers.SetFocus;
end;
Cuya función es realizar una consulta concreta en función de unas condiciones. En teoria es muy sencillo lo que pretendo.
Pero cuando lo ejecuto me da un error
"conversion error from string "SAE3""
Ni puñetera idea de que va eso, he googleado un poco (y ahora seguiré), pero no acabo de saber que me quiere indicar, salvo que hay un error al pasarle el string de la consulta.
Llevo un rato atascado, necesito que alguién me guie a la luz, si es posible.
Un abrazo confuso.
Papulo.