Ver Mensaje Individual
  #1  
Antiguo 02-02-2006
Avatar de papulo
papulo papulo is offline
Miembro
 
Registrado: ago 2005
Ubicación: Lleida - Cataluña - España -Europa - Planeta tierra - Sistema solar - Via Lactea ...
Posts: 542
Reputación: 19
papulo Va por buen camino
Datamodule, SQL, DELPHI y un error tope chungo

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'//sIntervalo
else
   begin
    dbgSuppliers.Columns[0].FieldName:='Minimo';//sMinimo
    dbgSuppliers.Columns[1].FieldName:='Maximo';//sMaximo
   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.
Responder Con Cita