Eduardo,

si queres te llamo por telefono y te guio en que tenes que mirar...


El 21 de enero de 2009 10:18, Eduardo - Los Tres Cerros Ltda. <
[email protected]> escribió:

>  Hola a todos, les cuento que estoy en un problema en VB6, tengo una
> función que carga los valores de un combo desde una tabla de Access según
> cierta condición. Hasta ahí funciona ok con la siguiente función:
>
>
>
> '****Carga el Combo de Comercializadores****
>
> Private Sub CargarListaComercializadores()
>
> Dim cnn As ADODB.Connection
>
> Set cnn = New ADODB.Connection
>
> Dim rst As ADODB.Recordset
>
> Set rst = New ADODB.Recordset
>
> Dim n As Integer
>
> n = -1
>
>
>
> cnn.ConnectionString = StrConn
>
> cnn.Open
>
>
>
> rst.Open "SELECT * FROM COMERCIALIZADORES where EstadoComercializador =
> 'Habilitado'", cnn, adOpenDynamic, adLockOptimistic
>
>
>
> If rst.EOF = False Then
>
> rst.MoveFirst
>
> End If
>
>
>
> While Not rst.EOF
>
> comboComercializador.AddItem rst.Fields("Comercializador").Value, n + 1
>
> rst.MoveNext
>
> Wend
>
>
>
> Set rst = Nothing
>
> Set cnn = N
>
> '****FIN****
>
>
>
> Y lo que estoy necesitando, es que además del filtro por 'Habilitado', me
> tome el valor de otro combo que tengo en el mismo form, y para mi la
> consulta queda así, pero al ejecutarla no me muestra valores:
>
>
>
> SELECT * FROM COMERCIALIZADORES where EstadoComercializador = 'Habilitado'
> AND ProvinciaPertenece = '" & comboProvincias.Text & "'"
>
>
>
> Alguien podrá tener idea que ocurre?
>
> Saludos y muchas gracias!!!
>
>
>
> *Eduardo Acuña
> Jefe de Área Operativa*
>
> Los Tres Cerros Ltda.
> Paraguay 776 Piso 11 (1057)
> CABA Argentina
> 54-011-4312-8810
> [email protected]
>
>
>



-- 
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional

Responder a