Como actualizar Dblookupcombobox

[steelha]

Hola foreros, estoy trabajando con una pantalla la cual cambie de un simple combobox a un dblookupcombobox según leí indicaciones en este foro, perfecto ya que me resolvió el problema de seleccionar desde la base de datos (mysql). Pero a la hora de hacer una consulta/actualizar datos en pantallas no se como resolver el problema de presentar el dato que previamente se guardo. He realizado este código para ver si funcionaba y nada. Necesito una manita con esto ya que son mas de 8 dblookupcombobox que tengo. Aca les dejo uno codigo de muestra si necesitan mas avisan

Código Delphi [-]
procedure TfrmAdmision.buscar_ars(codigo: Integer);
var
  sqlant : string;
begin
  sqlant := dmConexiones.sqlPrestadorasdeSalud.SQL.Text;
  dmConexiones.sqlPrestadorasdeSalud.SQL.Clear;
  dmConexiones.sqlPrestadorasdeSalud.SQL.Add('SELECT * FROM tblprestadoradesalud ');
  dmConexiones.sqlPrestadorasdeSalud.SQL.Add('WHERE prestadora_id = ' + IntToStr(codigo));
  dmConexiones.sqlPrestadorasdeSalud.Open;

  memarstelefonos.Text    := dmConexiones.sqlPrestadorasdeSaludprestadora_telefonos.Value;
  edtcodigoautorizar.Text := dmConexiones.sqlPrestadorasdeSaludprestadora_codigoAutorizaciones.Value;

  dmConexiones.sqlPrestadorasdeSalud.SQL.Text := sqlant;
end;

[kapcomx]

no estoy muy seguro de lo que quieres, pero creo que necesitas actualizar el dato que contiene el dblookup mmm si es asi tienes que afectar su propiedad keyvalue.

supongamos que el dblookup esta conectado a la tabla clientes y lo muestras en este el campo nom_cliente y en el keyfield el id_cliente.

entonces al actualizar tendrias que poner

Código Delphi [-]
tudblookup.keyvalue:= miconsulta.id_cliente.value;

espero te sirva

Saludos...

[steelha]

Muchas gracias kapcomx era lo que buscaba.

[kapcomx]

X nada Steelha...

Saludos