Ir al contenido


Foto

Delphi 7 y Firebird 2.1 - Consulta sobre Componente DBLookupComboBox

DBLookupComboBox

  • Por favor identifícate para responder
4 respuestas en este tema

#1 seba_13680

seba_13680

    Member

  • Miembros
  • PipPip
  • 27 mensajes

Escrito 27 abril 2016 - 10:16

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¡

 

 

 

 

 

 

 

 

 

 

 

 

 

Archivos adjuntos


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 27 abril 2016 - 10:38

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 mensajes

Escrito 27 abril 2016 - 11:24

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 mensajes
  • LocationCiudad de México

Escrito 28 abril 2016 - 10:24

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

 

Saludos!!


  • 1

#5 seba_13680

seba_13680

    Member

  • Miembros
  • PipPip
  • 27 mensajes

Escrito 16 mayo 2016 - 12:14

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.