Seleccionar valor en DBLookupComboBox
Hola Como estan?
Veran me la he pasado un buen rato con este problema:
Estoy haciendo una consulta y el resultado de la consulta lo quiero poner en DBLookupComboBox 's (cada valor de los campos de la tabla consultada en un DBLookupComboBox).
El problema es que los DBLookupComboBox donde quiero poner los resultados de la consulta tambien los utilizo para insertar datos en la base de datos(mysql 5) y el objetivo es desplegar los datos para poder modificarlos.
procedure TForm1.BotonBuscarClick(Sender: TObject);
begin
Datamodule1.ADOQueryEscuela.SQL.Clear;
DataModule1.ADOQueryEscuela.SQL.Add('select * from escuela where clave='+#39+LCBClaveEscuela.Text+#39);
DataModule1.ADOQueryEscuela.Active;
Datamodule1.ADOQueryEscuela.Open;
if (DataModule1.ADOQueryEscuela.ExecSQL > 0) then
begin
EditClaveEscuela.Text:=DataModule1.ADOQueryEscuela['clave'];
EditNombreEscuela.Text:=DataModule1.ADOQueryEscuela['nombre'];
DBLookupComboBoxTipo.Text:=DataModule1.ADOQueryEscuela['tipo'];
end;
Lo he intentado con la propiedad .Text, .ListField .KeyValue pero no he logrado desplegar los datos en el DBLookupComboBox
pero en realidad lo que quiero es seleccionar en el DBLookupComboBox y no asignar un valor en este
|