[[Bicho]]

Empezado por Ubed

parece k ya va pero aora kmo recogo el valor de una lista??

yo tengo una lista y kiero k kuando seleccione un valor me cambie el having de la consulta y donde pone foli aparezca ese valor seleccionado.

Perdonad por todas las molestias, pero soy muy nuevo

Tranqui, aquí estamos para eso, ayudar y pasarlo bien. Sin malos rollos.

Ahora llegamos al siguiente punto:
- Los parámetros de una query.
Para substituir el valor de un campo en la query por un parámetro, para así tener un valor variable, debes substituir ese valor puesto a manor por parámetro con el nombre que tu quieras y precedido por dos puntos.
Por ejemplo:

Código Delphi [-]
Con_Art_Bar.SQL.Add('HAVING Articulo= :Artic');

:Artic es el parámetro al cual le asignaremos el valor que queramos.
Ahora vamos a asignarle un valor

Para ello y siempre después de asignar todo el texto de la query y antes de ejecutarla hacemos lo siguiente:

Código Delphi [-]
Con_Art_Bar.SQL.Clear;
Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('HAVING Articulo=:Artic');

Con_Art_Bar.ParamByName('Artic').AsString := edit.text;
 
Con_Art_Bar.Active := True;

Entre los paréntesis ponemos el nombre del parámetro (sin los dos puntos).
Luego hemos puesto AsString para indicarle que el parámetro que le vamos a pasar es de tipo String. Sino es así puedes desplegar las posibles opciones con el codeinsight (Tras el punto espera un poco o presiona Ctrl + Barra espaciadora) y ver los demás tipos que le puedes asignar al parámetro.
Luego asignamos al parámetro un valor, en este caso el contenido de un edit.
Ojo, el valor asignado debe ser del mismo tipo d edatos que el parámetro, en este caso el text de un edit es de tipo string.

Para tú caso particular, debemos saber antes que tipo de objeto estas usando (combobox, listbox, etc).

Haz pruebas con esto y ves jugando un poco.

Edito: ahora que veo en esta misma sentencia hay un error:

Código Delphi [-]
Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');

No es necesario poner los dos puntos al final de la sentencia, ya que el objeto la cierra automáticamente.