Crear una consulta filtrada por uno o más parametros

[lefarre]

Gracias ante todo por aclararme dudas. Ya probe la consulta en la base y anda.
Solo me surge un problema y es que en la tabla articulos guardo los codigos de las categorias, subcateg y proveedores por medio de un lookupcombo que muestra la descripcion y guarda el codigo.
El tema es que no logro que me busque desde le form con los lookupcombo de la misma manera. (no se que propiedad debo usar.)
La idea es no tener que recordar los codigos y poder seleccionar la descripcion.

Probe con Text y con keyfield.

El codigo esta quedando asi.

Código SQL [-]
dm1.QBA.Active:=false;
JvDBGrid1.DataSource:= DataSource1;
dm1.QBA.SQL.Clear;
dm1.QBA.SQL.Add('select * from articulos');
dm1.QBA.SQL.Add('where lower(descripcion) like :cambuscar and codcateg = :categoria and codsubcateg = :subcategoria and codprov = roveedor order by descripcion');
dm1.QBA.Parameters.ParamByName('cambuscar').Value:= '%'+ lowercase(cambuscar.Text)+'%';
dm1.QBA.Parameters.ParamByName('categoria').Value := categoria.Text;
dm1.QBA.Parameters.ParamByName('subcategoria').Value := subcategoria.KeyField;
dm1.QBA.Parameters.ParamByName('proveedor').Value:= proveedor.KeyField;
dm1.QBA.Active:=true;
if dm1.QBA.IsEmpty then showmessage('No se encuentra en la base de datos');
cambuscar.SetFocus;




PD: Agradecere link de manual buen manual sql mientras tanto empese por alguno que encotre en google.

[ContraVeneno]

¿los loockUpCombBox son los que vienen en las JEDI?

Si es así, entonces es con "KeyValue".

[lefarre]

Prove con los lookup combo de delphi y los de jedi con la propiedad KeyValue, Text, KeyField y ListField.
No logro que tome el valor del combo como parametro.
Desde ya muchas gracias.

[ContraVeneno]

Entonces hay otra cosa que no estas haciendo correctamente. Yo te puedo asegurar, que esto funciona perfectamente:

Código Delphi [-]
with UnAdoQuery do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select Nombre');
 SQL.Add('From Cliente');
 SQL.Add('Where Clave = :Clave');
 Parameters.ParamByName('Clave').Value := cmbClientes.KeyValue; //TjvDBLoockUpCombo
 Open;
 Showmessage(FieldByName('Nombre').AsString);
end; //with

Prueba a hacer esto:
Showmessage(Proveedor.KeyValue);
para ver que valor te muestra.

[lefarre]

Muchisimas Gracias
Me sirvio mucho tu ayuda para corroborar los valores de los parametros y detectar el error.
Error cometido en el Dataset que no apuntaba a QBA sino al TADO de la tabla.
Cambiando eso funciona perfectamente.
Saludos y nuevamente muchas gracias.