1
« en: Sábado 29 de Marzo de 2008, 20:28 »
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
Mostrar Mensajes
