DataCombos enlazados con Ado
Publicado por Damian (2 intervenciones) el 29/12/2001 15:31:36
Mi proyecto accede a datos en un servidor remoto mediante ADO y ODBC, cuando tengo que construir formularios con numerosos controles DataCombo, lo hago incrustando en tiempo de diseño un control de datos Adodc por cada DataCombo, lo cual, uds. sabrán, insume demasiadas conexiones al motor de base de datos. Mi intención es manipular los controles Adodc para que se conecten al motor através de una sola conección ADODB.Connection creada en tiempo de ejecución y asi suministrar los datos a los controles DataCombo ahorrando conecciones al servidor.
El código de mas abajo se ejecuta sin generar errores en tiempo de ejecución y el DataCombo no muestra los campos, lo que me parece mas extraño aún.
Agradecería que me encaminen sobre el tema, para saber que estoy haciendo mal. Aquí va el código:
Private Sub Form_Load()
Dim rstComplem as ADODB.Recordset
Set rstComplem = New ADODB.Recordset
rstComplem.Open "Select * from tabla1" _, gConn, adOpenStatic, adLockOptimistic
Set adoEstado.Recordset = rstComplem
adoEstado.CommandType = adCmdText
adoEstado.Refresh
Set dcboEstadoT.RowSource = adoEstado
dcboEstadoT.ListField = adoEstado.Recordset.Fields(0).Name
dcboEstadoT.BoundColumn = adoEstado.Recordset.Fields(1).Name
dcboEstadoT.ReFill
End Sub
El código de mas abajo se ejecuta sin generar errores en tiempo de ejecución y el DataCombo no muestra los campos, lo que me parece mas extraño aún.
Agradecería que me encaminen sobre el tema, para saber que estoy haciendo mal. Aquí va el código:
Private Sub Form_Load()
Dim rstComplem as ADODB.Recordset
Set rstComplem = New ADODB.Recordset
rstComplem.Open "Select * from tabla1" _, gConn, adOpenStatic, adLockOptimistic
Set adoEstado.Recordset = rstComplem
adoEstado.CommandType = adCmdText
adoEstado.Refresh
Set dcboEstadoT.RowSource = adoEstado
dcboEstadoT.ListField = adoEstado.Recordset.Fields(0).Name
dcboEstadoT.BoundColumn = adoEstado.Recordset.Fields(1).Name
dcboEstadoT.ReFill
End Sub
Valora esta pregunta


0