Programación General > Visual Basic 6.0 e inferiores

 Data Combo

(1/1)

josemns:
Amigos como hago para poder cerrar la conexion del recordset que uso en el DataCombo y que los datos sigan en pantalla. Por que si cierro el recordset los datos del combo salen en blanco mi codigo de ejemplo esta abajo


Private Sub CargarFormaPago()

On Error GoTo error1

 Dim rs As New ADODB.Recordset
 sql = "": sql = "Select * from FORMAPAGO order by IDFORMA"
 rs.Open sql, DBConexion, adOpenStatic
 
 Set cboFormaPago.RowSource = rs
 Set cboFormaPago.DataSource = rs
 cboFormaPago.ListField = rs.Fields("DESCRIPCION").Name
 cboFormaPago.BoundColumn = rs.Fields("IDFORMA").Name

 rs.close --> esto no puedo poner porque ya no me salen los datos

Exit Sub

error1:
 MsgBox "Error: " & Err.Description, vbCritical + vbOKOnly, "Mensaje del Sistema"

End Sub

Navegación

[0] Índice de Mensajes