Error Token From

[Harfred]

Saludos a Todo el Foro.

Agradeciendoles, por anticipado y le imploro de favor, para ver quien de ustedes, puede ayudarme a solucionar este error de programación que se me esta dando dolor de cabeza y tengo varios meses trantando de resolver. He leido en algunos manuales pero no he tenido exitos, recurro a ustedes, para ver que me sugieren cuando ustedes tenga la oportunidad de responderme. Una vez más le agradezco la ayuda.

HarFred.

Estoy tratando de ejecutar una consulta en Delphi y cuando le doy ejecutar hago algunas selecciones Como: En el lado Izq. Selecciono Bajo Punto de Reorden y
en lado derecho Selecciono Cod. Producto, Descripcion, Pto Reorden y Existencia

Sale el sgte. error

Proyect Inventario.exe Raised Exception Class EDBEngineError with message 'Invalid use of key word. Token: From

Line Number: 1'. Stopped Process. Use step or run to continue

RadioGroup GroupBox1 con 8 CheckBox
Bajo Existencia Mínima Cod. Producto Pto. Reorden
Sobre Existencia Máxima Descripción Entradas
Bajo Punto de Reorden Existencia Mínima Salidas
Existencia Máxima Existencia

=============================================================
1 - Uson un BitBtn
1 - Query DBTable
1 - DataSource
1 - DBGrid

También estoy usando
1 - RadioGroup Tiene las sgte. Opciones.
Nombre del RadioGroup en Delphi Tipo_Consulta_Producto

Bajo existencia Mínima
Sobre Existencia Máxima
Bajo Punto de Reorden

1 - GroupBox1 con 8 CheckBox
Nombre de los CheckBox en Delphi
1er. Check_Cód_Producto
2do. Check_Descripción
3er. Check_Mínima
4to. Check_Máxima
5to. Check_Pto_Reorden
6to. Check_Entradas
7mo. Chec_Salidas
8vo. Check_Existencia

Este es el Código
BitBtn2 Se llama Ejecutar
Estoy usando un fsMDIChiild
El Formulario se Lama Forma_Consulta

Código Delphi [-]
 
===============================================================
procedure TForma_Consulta_Producto.BitBtn2Click(Sender: TObject);
Var
 Campos: String;
begin
 Campos:= '';
{Cerrar la Consulta SQL}
 Query_Producto.Active:= False;
 {Borrar la lnstrucción SQL Actual}
 Query_Producto.SQL.Clear;
 If Check_Cod_Producto.Checked Then Campos:= Campos +'Codigo_Producto';
 If Check_Descripcion.Checked     Then Campos:= Campos +'Descripcion_Producto';
 If Check_Minima.Checked           Then Campos:= Campos +'Existencia_Minima';
 If Check_Maxima.Checked          Then Campos:= Campos +'Existencia_Maxima';
 If Check_Pto_Reorden.Checked   Then Campos:= Campos +'Punto_Reorden';
 If Check_Entrada.Checked          Then Campos:= Campos +'Total_Entradas';
 If Check_Salida.Checked            Then Campos:= Campos +'Total_Salida';
 If Check_Existencia.Checked   {Campo Calculado}
 Then Campos:= Campos +'(Total_Entradas - Total_Salidas) As Existencia,';
 {Cuando no hay un botón de radio seleccionado}
 If (Tipo_Consulta_Producto.ItemIndex = -1) or (Campos = '') {No hay campos seleccionado}
     Then Begin
             MessageDlg('Debe seleccionar un tipo de consulta/o Campos',mtError, [mbOk], 0);
             Exit;
          end;
{Eliminar la última "coma"}
 //campos[length(Campos)]:=''; 
 Campos:= 'Select '+Campos;
 With Query_Producto
 Do Case Tipo_Consulta_Producto.ItemIndex Of {Los Items se enumeran desde (0)}
 {Existencia Bajo Existencia Mínima}
 0 : Begin
      Sql.Add(Campos +'From Producto ');
      Sql.Add('Where (Total_Entradas - Total_Salidas) < Existencia_Minima')
     end;
 {Existencia Bajo Existencia Máxima}
 1 : Begin
      Sql.Add(Campos +'From Producto ');
      Sql.Add('Where (Total_Entradas - Total_Salidas) > Existencia_Maxima')
     end;
 {Existencia Bajo Existencia Mínima}
 2 : Begin
      Sql.Add(Campos +'From Producto ');
      Sql.Add('Where (Total_Entradas - Total_Salidas) <= Punto_Reorden')
     end;
end;
{Ejecutar la Instrucción Sql}
Query_Producto.Open;
{Mostrar el DBGrid Con el resultado de la consulta}
DBGrid1.Visible:= True;
end;
end.

[marcoszorrilla]

Esto colócalo justo antes de abrir la consulta, te ayudará a ver dónde está el error, aunque yo apostaría por una concatenación no deseada:

Código Delphi [-]
ShowMessage(Query_Producto.Sql.Text);

Sql.Add(Campos +'From Producto ');
//Prueba esto otro
Sql.Add(Campos +'  From Producto ');

Un Saludo.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.



.

[cloayza]

Para mi el problema esta en la concatenación de los campos que forman parte de la consulta, en ningun lugar veo que se separen por coma ','

Código SQL [-]
 If Check_Cod_Producto.Checked Then Campos:= Campos +'Codigo_Producto';
 If Check_Descripcion.Checked     Then Campos:= Campos +'Descripcion_Producto';
 If Check_Minima.Checked           Then Campos:= Campos +'Existencia_Minima';
 If Check_Maxima.Checked          Then Campos:= Campos +'Existencia_Maxima';
 If Check_Pto_Reorden.Checked   Then Campos:= Campos +'Punto_Reorden';
 If Check_Entrada.Checked          Then Campos:= Campos +'Total_Entradas';
 If Check_Salida.Checked            Then Campos:= Campos +'Total_Salida';

El resultado debe ser:
Campos=>'Codigo_ProductoDescripcion_ProductoExistencia_MinimaExistencia_MaximaPunto_ReordenTotal_Ent radasTotal_Salida'...

Lo correcto deberia ser:
Campos=>'Codigo_Producto, Descripcion_Producto, Existencia_Minima, Existencia_Maxima, Punto_Reorden, Total_Entradas, Total_Salida'...

Si solo seleccionas un campo creo que deberia funcionar sin problemas...
Saludos