ADOQUERY no trabaja....

[ilichhernandez]

Estimado(a)s, he comenzado a trabajar en un proyecto y ocupo componentes ADO, buscando aqui en el foro he encontrado algunas cosillas pero no he podido establecer por que esta query no me funciona. Agradeceria enormemente si alguien me orientara y/o me comentara sobre esta adoquery, gracias desde ya....

Código Delphi [-]
begin 
dm.qlab.SQL.Clear; 
dm.qlab.sql.text := 'Select * from stock'; 
if combobox1.Text = 'PRODUCTO' then 
Begin    
dm.qlab.SQL.text := 'Select * from stock  where producto = ' + QuotedStr(Edit1.text); 
end; 
if combobox1.Text = 'MZ' then 
Begin    
dm.qlab.SQL.text := 'Select * from stock  where subpro = ' + QuotedStr(Edit1.text); 
end; 
if combobox1.text <> 'Seleccione' then    
Begin       
dm.qlab.Open;    
End    
else    
Begin      
Showmessage('Debe seleccionar un criterio de busqueda antes de presionar el boton');    
end; 
end;

[[enecumene]]

Hola, prueba de la siguiente manera:

Código Delphi [-]
begin 
dm.qlab.SQL.Clear; 
dm.qlab.sql.text := 'Select * from stock'; 
if combobox1.Text = 'PRODUCTO' then 
Begin    
dm.qlab.SQL.Add(' where producto = '+ QuotedStr(Edit1.text)+' '); 
end; 
if combobox1.Text = 'MZ' then 
Begin    
dm.qlab.SQL.Add(' where subpro = ' + QuotedStr(Edit1.text) +' '); 
end; 
if combobox1.text <> 'Seleccione' then    
Begin       
dm.qlab.Open;    
End    
else    
Begin      
Showmessage('Debe seleccionar un criterio de busqueda antes de presionar el boton');    
end; 
end;

Saludos.

[[Caral]]

Hola

Código Delphi [-]
begin 
dm.qlab.SQL.Clear; 
      if combobox1.text <> 'Seleccione' then    
      Begin       
      dm.qlab.sql.text := 'Select * from stock';
      dm.qlab.Open;
      end    
     else    
     Begin      
     Showmessage('Debe seleccionar un criterio de busqueda antes de presionar el boton');    
     end; 
     if combobox1.Text = 'PRODUCTO' then 
     Begin 
     dm.qlab.Close;
     dm.qlab.SQL.text := 'Select * from stock  where producto = ' + QuotedStr(Edit1.text); 
     dm.qlab.Open;
end; 
     if combobox1.Text = 'MZ' then 
     Begin
     dm.qlab.Close; 
     dm.qlab.SQL.text := 'Select * from stock  where subpro = ' + QuotedStr(Edit1.text); 
    dm.qlab.Open;end; 
end;

Saludos

[ilichhernandez]

Extrañamente, he probado las dos opcione sque me han comentado, pues..... las dos opciones no arrojan ningun error pero no me muestran lo que intento mostrar..... que extraño ?no¿.....muchas gracias de todas formas...

[[Caral]]

Hola
Y que muestra?, no muestra nada?.
Saludos

[[enecumene]]

Me faltó poner lo siguiente :

Código Delphi [-]
begin 
dm.qlab.SQL.Clear; 
dm.qlab.sql.text := 'Select * from stock'; 
if combobox1.Text = 'PRODUCTO' then 
Begin    
dm.qlab.SQL.Add(' where producto = '+ QuotedStr(Edit1.text)+' '); 
dm.qlab.open;
end; 
if combobox1.Text = 'MZ' then 
Begin    
dm.qlab.SQL.Add(' where subpro = ' + QuotedStr(Edit1.text) +' '); 
dm.qlab.open;
end; 
if combobox1.text <> 'Seleccione' then    
Begin       
dm.qlab.Open;    
End    
else    
Begin      
Showmessage('Debe seleccionar un criterio de busqueda antes de presionar el boton');    
end; 
end;

[ilichhernandez]

Que leso que he sido...... lo que sucedia es que habia asociado mal un datasource, por eso no veia los cambios en el grid..... a veces hace mal el copy/paste..... probé en definitiva la version de Caral y me ha funcionado de maravillas, muchisimas gracias por la ayuda.....Saludos, y por supuesto agradecimientos a ambos por su tiempo.........y conocimiento....

[[Caral]]

Hola
Ufffffff, por un momento pensé que ya me había olvidado.
PD: La opción de Enecumene (La segunda) debería funcionar también.
Saludos