buenas..... logre obtener el resultado deseado pero con el unico detalle que tarda una eternidad a la hora de cargar.....aqui les anexo el codifgo..... lo que intento es cargar un listbox con ciertos numeros de pagos que tienen que cumplir varias condiciones....
Código vb:
Ver original'lleno la lista con todos los pagos que estan almacenados en la base de datos
'tomando en cuenta los diferentes filtros
Set rslista = myconn.Execute(" SELECT * FROM dbo_pagos WHERE monto <>" & 0 & " AND anulado <>" & -1 & " ")
Do Until rslista.EOF
Set rsnumdoc = myconn.Execute("SELECT doc_num FROM dbo_reng_pag WHERE cob_num =" & rslista!cob_num) '& " AND tp_doc_cob = 'FACT' ")
Set rsobserva = myconn.Execute("SELECT observa FROM dbo_docum_cp WHERE nro_doc =" & rsnumdoc!doc_num)
observacion = rsobserva!observa
observacion = Left(observacion, 37)
If observacion = "CORPORACION VENEZOLANA DE GUAYANA CVG" Then
List1.AddItem rslista!cob_num
End If
rslista.MoveNext
Loop
debe haber una manera mas sotisficada de hacer lo mismo sin tener que realizar tantas consultas sql.... creo que asi no se tardaria una eternidad en cargar el listbox...
gracias por su tiempo..... cualquier ayuda se las agradecere....
p.d. son casi 6mil registros que tiene que recorrer...