Jump to content


Photo

Delphi 7 y Firebird 2.1 - Consulta sobre Componente DBLookupComboBox

DBLookupComboBox

  • Please log in to reply
4 replies to this topic

#1 seba_13680

seba_13680

    Member

  • Miembros
  • PipPip
  • 27 posts

Posted 27 April 2016 - 10:16 AM

Buen dia para todos¡

 

Hace poco comencè con Delphi 7 y estoy desarrollando un sistema, estoy varado en un DBLookupComboBox que se conecta con una base en Firebird 2.1 por medio de los componentes IBDatabase, IBTransaction e IBQuery y necesito que liste las opciones que estan en una tabla (id,vendedores) el tema es que solo muestra un renglon en la seleccion y no se "expande" como se muestra en la imagen adjunta

en la propiedad DropDownRows tiene asignado un 7, por que lei que de esa propiedad expande de acuerdo a los registros encontrados, pero sigue sin funcionar ...

Bueno si alguien tiene una solucion, comentario o truco desde ya muchas gracias

Saludos y exitos¡

 

 

 

 

 

 

 

 

 

 

 

 

 

Attached Files


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14448 posts
  • LocationMéxico

Posted 27 April 2016 - 10:38 AM

Hola seba_13680, bienvenido a delphiaccess.

 

Intenta recorriendo la consulta de fin a inicio, es decir:


php
  1. IBQuery.Last;
  2. IBQuery.First;

Nos comentas.

 

Saludos


  • 1

#3 seba_13680

seba_13680

    Member

  • Miembros
  • PipPip
  • 27 posts

Posted 27 April 2016 - 11:24 AM

Buenas tardes Egostar¡

Gracias por la pronta respuesta y por la bienvenida¡  (y)

 

Fue como trompada de loco en la oscuridad¡ Funciono a la primera

 

Cargue el codigo en donde hace la conexion con la base de datos

 

IBDatabase1.Connected:=true;
IBTransaction1.Active:=true;
IBQuery1.Active:=true;
IBQuery1.Last;
IBQuery1.First;
 
y funciono sin problemas¡
 
y pego codigo que utilice para que quede un valor por defecto en el DBLookupComboBox 
 
DBLookupComboBox1.KeyValue := IBQuery1.FieldByName('NOMBRE').AsString; 
 
Ahora a aprender a utilizar el Quick Report ... 
 
Cualquier consulta me avisa, estoy tambien para ayudar 
 
Saludos y muchos exitos por allà 

  • 1

#4 FerCastro

FerCastro

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 636 posts
  • LocationCiudad de México

Posted 28 April 2016 - 10:24 AM

Bienvenido al grupo Seba, si necesitas ayuda aqui es el lugar para aprender.

 

Saludos!!


  • 1

#5 seba_13680

seba_13680

    Member

  • Miembros
  • PipPip
  • 27 posts

Posted 16 May 2016 - 12:14 PM

Gracias FerCastro¡ no lo  dudo¡ excelente sitio, muy completo, ademas de la calidad de las respuestas

Saludos y muchos exitos por allà¡


  • 0




IP.Board spam blocked by CleanTalk.