• Lunes 23 de Diciembre de 2024, 01:35

Autor Tema:  Dbcombo En Tiempo De Ejecución  (Leído 1634 veces)

jesusmurillo

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Dbcombo En Tiempo De Ejecución
« en: Martes 28 de Septiembre de 2004, 18:03 »
0
Hola. Tengo una pregunta, Se puede cargar un DBCombo en tiempo de ejecución?, por medio de un DataControl ya lo hice, pero hace muy lenta la aplicación, debido a que utiliza muchos recursos.
   Ya he estado intentando cargar el dbcombo por medio de codigo, pero lo que no me permite es indicar la propiedad RowSource, no se si se pueda hacer esto en tiempo de ejecución.
   Gracias.  :huh:

Orologium

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Dbcombo En Tiempo De Ejecución
« Respuesta #1 en: Martes 7 de Diciembre de 2004, 03:04 »
0
Si, si se puede cargar cualquier control en tiempo de ejecucion. Los pasos son:

1. El control debe ser una matriz de controles y lo ponemos el indice en 0. En este caso  sera un Combo (puede ser cualquier control).    

[ Combo1(0) ]

2. En un boton, lo cambias a donde lo ocupes, va el sig. codigo.
     Load Combo1(1)
     Combo1(1).Left = 0
     Combo1(1).Top = 0
     Combo1(1).Visible = True

En este caso le puse '1' ya que solo cargare un combo mas. si quieres varios lo colocas en un ciclo for y cambias el 1 por el contador.

Ojala y te sirva.  :hola:

ches

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Dbcombo En Tiempo De Ejecución
« Respuesta #2 en: Martes 7 de Diciembre de 2004, 05:41 »
0
Creo que lo que necesitas es llenar un DataCombo con la informacion que tengas en un tabla de una base de datos en tiempo de ejecucion.... te sirve eso? Yo lo hago asi.. y me sirve y no es muy lento... al menos en mi maquina


'********
'Coneccion con la tabla TablaPruebas
    Dim adoPruebas As ADODB.Recordset
    Set adoPruebas = New ADODB.Recordset
    adoPruebas.CursorLocation = adUseClient 'La Base de Datos esta en la PC del cliente
    'Carga el recordset en la consulta SQL indicada, con la conexion ConeccioBD
    adoPruebas.Open "SELECT PKCodigoInquilino  from TInquilinos", ConeccioBD, adOpenDynamic, adLockOptimistic
   
'********
'lleno el combo box con todos los codigos de inquilinos
     Set Me.dbcCodigoInquilino.RowSource = adoPruebas
    Me.dbcCodigoInquilino.BoundColumn = "CodigoTabla"
    Me.dbcCodigoInquilino.ListField = "DescripcionTabla"

Espero te sirva...