SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jesusmurillo en Martes 28 de Septiembre de 2004, 18:03
-
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:
-
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:
-
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...