Ver Mensaje Individual
  #1  
Antiguo 22-02-2013
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Reputación: 13
steelha Va por buen camino
Como actualizar Dblookupcombobox

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;
Responder Con Cita