DataCombo error
Publicado por Gerardo Soto (3 intervenciones) el 20/10/2004 19:49:22
Hola a todos, quiero q una columna de mi tabla que esta en AS400 se muestre en un data combo, para ello puse el siguiente codigo:
Call Conectar ' Procedimiento de conexión
sql = "Select * from librlcom.per_ser" 'consulta
Set rs400 = New ADODB.Recordset
rs400.Open sql, cn400, adOpenDynamic, adLockReadOnly
Set Me.cmbSer.DataSource = rs400
Me.cmbSer.DataField = rs400.Fields(1).Name
Me.cmbSer.BoundColumn = rs400.Fields(0).Name
Call Desconectar
El problema que tengo es que el datacombo solo me muestra el primer registro, osea me muestra la columna pero solo con un registro.
Al principio pense que era el recordset pero puse un mshflexgrid y lo enlace con el recordset, el detalle es que en la grilla me mostro toda la columna. Entonces llega a la conclusión que el recordset esta bien. Creo que el problema es con el data combo. Por favor indiquenme cual es el error o que puedo hacer.
Gracias.
Gerardo Soto
Call Conectar ' Procedimiento de conexión
sql = "Select * from librlcom.per_ser" 'consulta
Set rs400 = New ADODB.Recordset
rs400.Open sql, cn400, adOpenDynamic, adLockReadOnly
Set Me.cmbSer.DataSource = rs400
Me.cmbSer.DataField = rs400.Fields(1).Name
Me.cmbSer.BoundColumn = rs400.Fields(0).Name
Call Desconectar
El problema que tengo es que el datacombo solo me muestra el primer registro, osea me muestra la columna pero solo con un registro.
Al principio pense que era el recordset pero puse un mshflexgrid y lo enlace con el recordset, el detalle es que en la grilla me mostro toda la columna. Entonces llega a la conclusión que el recordset esta bien. Creo que el problema es con el data combo. Por favor indiquenme cual es el error o que puedo hacer.
Gracias.
Gerardo Soto
Valora esta pregunta
0