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] <blocked::mailto:[email protected]>
