Ver Mensaje Individual
  #3  
Antiguo 25-05-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.282
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Bant Ver Mensaje
como podria conocer el registro que se ha seleccionado en el ComboBox para cargarlo en un edit
Código Delphi [-]
  Close;
  SQL.Clear;
  SQL.Text := 'select Descripcion from Inventario where Codigo =' + ComboBox1.Text;
  Open;
  // Lo ha encontrado?
  if (not dm2.ADOConsulta.Eof) then begin
     editDescripcion.Text :=  dm2.ADOConsulta.FieldByName('Descripcion').AsString;
     editPrecio.Text :=  dm2.ADOConsulta.FieldByName('Precio').AsString;
  end;
Cita:
Empezado por Bant Ver Mensaje
pero en el campo [Descripcion] para hacerlo con el campo [Precio] más adelante.
Aprovecha la misma consulta para cargar todo el registro, no lances una consulta para cada valor.
Para ello cambia la consulta por:

Código Delphi [-]
  SQL.Text := 'select * from Inventario where Codigo =' + ComboBox1.Text;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita