Tantos TQuery como consultas deseo?

[Pollo2004]

Hola a todos nuevamente, sigo muy agradecido por toda la ayuda brindada por el foro, y deseo mucho algun dia poder colaborar de la misma manera q lo hacen ustedes.
Estoy queriendo aprender un poco de SQL y mi pregunta es esta. yo a una tabla le puedo hacer muchas consultas, pongamos un ejemplo
Tengo una tabla de productos, y quiero buscar uno, tambien quiero controlar q ningun producto tenga stock= 0 y alguna otra q ustedes se imaginen.

otro ejemplo:
O buscar un producto por nombre, o codigo, o lo q fuese, tengo q poner un TQuery para cada busqueda y activar cada query con una accion de un boton o de otro componente.

Como seria la cosa?

Sigo usando paradox 7!
Gracias!

[[enecumene]]

Hola, no amigo no es necesario un TQuery por cada búsqueda, con uno basta ejemplo:

Código Delphi [-]
if ComboBox1.Text = 'Codigo' then
  begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select * from tabla where codigo = '12345'';
     Query1.Open;
  end;
if ComboBox1.Text = 'Nombre' then
  begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select * from tabla where Nombre = 'Pedro'';
     Query1.Open;
  end;
if ComboBox1.Text = 'Producto' then
  begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select * from tabla where producto = 'Jabon'';
     Query1.Open;
  end;

en este ejemplo estoy usando un sólo Query.

Saludos.

[ContraVeneno]

Código Delphi [-]
with UnQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select LosCampos ');
 SQL.Add('From UnTabla');
 Case ComboBox1.ItemIndex Of Begin
  0:   SQL.Add('Where Codigo = :Valor ');
  1:   SQL.Add('Where Nombre = :Valor ');
  2:   SQL.Add('Where Producto = :Valor ');
 end; //Case
 ParamByname('Valor').AsString := UnEdit.Text;
 Open;
end;  //with

[[coso]]

Código Delphi [-]
q.Active := false;
q.SQL.Text := 'select * from tabla where ' + ComboBox.Text + ' = ' + QuotedStr(edit.text);
q.Active := true;

[[AzidRain]]

Puedes hacer un solo query para consultar por uno o varios campos así:

Código Delphi [-]
q.SQL.Add('select * from productos where (:clave is null or clave=:clave) AND (:nombre is null or nombre like :nombre) OR (:stock is null or stock>=:stock) ');

Solo tienes que llenar los parámetros según requieras, si no llenas ninguno te va a traer todos los registros. Esta es una forma muy sencilla de hacer combinaciones de condiciones y utilizas un solo query. De esta manera podrias traer por ejemplo: todos los productos que contengan "PRO" en su nombre y que tengan stock de mas de 10.
Para ello llenamos los parametros así:

Código Delphi [-]
 q.parambyName('nombre').AsString := '%PRO%';
q.ParamByName('stock').AsInteger  := 10;

[ContraVeneno]

tómala, jejeje

[rgstuamigo]

Ja,jaa,jaa,ja,ja,jaa, me sorprendieron.
Esta muy bueno, es lo que necesitaba tambien.......

[roman]

Yo creo que es cuestión de organización. Si vas a usar un solo query para todas las consultas, posiblemente signifique o implique que vas a tener tus consultas desperdigadas por todo el código. Puede ser preferible tener las partes limpiamente separadas.

// Saludos