Problema con DBLookupCombo

[sanz]

Hola a todos tengo un pequeño problema, tengo un dblookupcombobox en donde estan articulos, quiero que cuando yo escoga cualquiera de esos articulos me aparezca el precio en un endit pero no me sale nada mas bien en el dblookupcombobox los datos desaparecen el codigo que utilizo es el siguiente:

Código Delphi [-]
 
procedure Tfrmfactura.DBLookupComboBox2Click(Sender: TObject);
begin
dmsalvador.ADOQarticulo.SQL.Clear;
dmsalvador.ADOQarticulo.Close;
dmsalvador.ADOQartuiculo.SQL.Add('Select * from articulo where codart='+dblookupcombobox2.Text);
dmsalvador.ADOQarticulo.Open;
dmsalvador.ADOQarticluo.Refresh;
if dmsalvador.ADOQarticulo.RecordCount > 0 then
  edit2.Text:=dmsalvador.ADOQArticuloPrecio.Text;
end;

Me olvidaba trabajo con delphi 7 y access xp

[[Nbull]]

Hola Sanz, ¿Por que no usas un DbEdit?

Lo asocias al datasource y al campo que quieras y si el dblookup esta asociado al mismo datasource cuando selecciones un registro en el lookup te saldra su correspondencia en el dbedit.

Por ejemplo:
Pones un datasource y un Adoquery con el siguiente codigo:

Código SQL [-]
SELECT *
FROM Articulos

Un dbedit y en datasource seleccionas el datasource1 y en Datafield el campo precios.
Un dbLookUpCombobox y listsource pones el Datasource y el keyfield ylistfield pones articulo.
ejecutalo
ya funciona


Un saludo.