Hola gente, desde la semana pasada estoy con problemas en un combo, el mismo
se carga a partir de una tabla de access con una condición, el problema
surge cuando quiero agregarle otra condición a partir del valor que toma
otro combo, a continuación copio el script que funciona o después el select
que no me devuelve valor.
Saludos y gracias a todos!!!
'****Carga el Combo de Reparticiones****
Private Sub CargarListaReparticiones()
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 REPARTICIONES where EstadoReparticion =
'Habilitado'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF = False Then
rst.MoveFirst
End If
While Not rst.EOF
comboReparticiones.AddItem rst.Fields("Reparticion").Value, n + 1
rst.MoveNext
Wend
Set rst = Nothing
Set cnn = Nothing
End Sub
'****Fin Carga el Combo de Reparticiones****
SELECT * FROM REPARTICIONES where EstadoReparticion = 'Habilitado' AND
OrganismoPertenece = '" & comboOrganismos.Text & "'"
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]>
