Boletín mugperu Digital - Julio 2009!
  Search 
Thursday, February 09, 2012 ..:: Foros de Discusión ::.. Register  Login
Foros MUGPERU Minimize
Subject: Llenado de DataCombo
Prev Next
You are not authorized to post a reply.

Author Messages
walterjpv
Posts:25

25/10/2008 01:40 PM  

Hola amigos del MUG:

Mi consulta es la siguiente. Para llenar un datacombo hago lo siguiente

    Dim rx3 As New ADODB.Recordset
    Set rx3 = p.ListaLugarEntrega
    If rx3.RecordCount > 0 Then
        With Me.cboLugarEntrega
            Set .DataSource = rx3
            .DataField = "Descripcion"
            Set .RowSource = rx3
            .BoundColumn = "codigo"
            .ListField = "Descripcion"
            .BoundText = 0
        End With
    End If

 pero al terminar, para liberar espacio quiero colocarle

rx3.close  y  rx3=nothing

pero entonces el combo se blanquea. Si no pongo estas dos ultimas sentencias si sale bien.

Mi duda es si este recordset queda abierto, no originará algun problema de memoria??

 

gracias

 

Walter

ms_edgard
Posts:12

11/11/2008 10:47 AM  
Hola

Este codigo solo es demo , el close no lo uso por lo mismo que te esta sucediendo. No te preocupes por eso de la memoria, yo eh echo muschas aplicaciones VB6 y nunca me han dado problemas.

Private Sub Form_Load()
Set dcbCliente.RowSource = ListarCliente
dcbCliente.BoundColumn = "CliCodigo"
dcbCliente.ListField = "CliNombre"
End Sub

Function ListarCliente() As ADODB.Recordset
Dim conx As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
Dim cn As ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
cn.CursorLocation = adUseClient
cn.Open ConnectionString
Dim rs As ADODB.Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.Open "Cliente", cn, adOpenDynamic, adLockBatchOptimistic
Set ListarCliente = rs
Set rs = Nothing
End Function
You are not authorized to post a reply.



ActiveForums 3.7
        
Copyright 2001-2012 MUGPERU   Terms Of Use  Privacy Statement