Ver Mensaje Individual
  #7  
Antiguo 06-07-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Todos los valores son configurables en tiempo de diseño mediante el Object Inspector, pero por razónes de claridad,
voy a asignarlos por código.

Código:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TDBLookupComboBox* lcb = static_cast<TDBLookupComboBox*> (DBLookupComboBox1);

  // Consulta
  qyEmpleado->Close();
  qyEmpleado->SQL->Clear();
  qyEmpleado->SQL->Add("SELECT IDEMPLEADO, APELLIDO &' '& NOMBRE AS FULLNAME");
  qyEmpleado->SQL->Add("FROM EMPLEADO ORDER BY APELLIDO &' '& NOMBRE");
  qyEmpleado->Open();

  // Configuracion del DBLookupComboBox
  lcb->ListSource = dsEmpleado;   // DataSource -> Query empleado
  lcb->ListField  = "FULLNAME";   // Nombre del campo apellido+nombre
  lcb->KeyField   = "EMPNO";      // Nombre del campo ID del empleado
  lcb->DataSource = dsActividad;  // DataSource -> Table actividad
  lcb->DataField  = "IDEMPLEADO"; // Nombre del campo (tabla actividad)
                                  // donde se almacena el ID del empleado
}
No trabajo en Ms Access pero según leí, los campos se concatenan mediante el operador & en la consulta sql.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita