optimizar consultas sql

[ARGFA]

buenas.....con este codigo que desarrolle logro obtener el resultado deseado pero con el unico detalle que tarda una eternidad a la hora de cargar.....aqui les anexo el codigo....., lo que intento es cargar un listbox con ciertos numeros de pagos que tienen que cumplir varias condiciones....

Código vb:

'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)
            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...

[Kruzado]

lo que yo haria es crearme una consulta donde "enzalo" las dos tablas y hago el select a esa consulta y el where quedaria algo como WHERE monto <>0 AND anulado <>-1 and mid(observa,1,37)="CORPORACION VENEZOLANA DE GUAYANA CVG"

[ARGFA]

una pregunta: donde dices:

mid(observa,1,37)="CORPORACION VENEZOLANA DE GUAYANA CVG"

es lo mismo que

observacion = Left(observacion, 37)

????

estoy intentando de la siguiente forma pero me devuelve los valores como si no cumpliera las condiciones:

Set rs1 = myconn.Execute("SELECT dbo_pagos.cob_num,dbo_reng_pag.doc_num,dbo_docum_c p.observa FROM dbo_pagos,dbo_reng_pag,dbo_docum_cp WHERE dbo_pagos.monto <>" & 0 & " AND dbo_pagos.anulado <>" & -1 & " AND mid(observa,1,37)= 'CORPORACION VENEZOLANA DE GUAYANA CVG' ")
Do Until rs1.EOF
pago = rs1!cob_num
rs1.MoveNext
Loop

[ARGFA]

la logica me dice que deberia ser algo como esto:

Código vb:

Set rs1 = myconn.Execute("select * FROM dbo_pagos WHERE (dbo_pagos.cob_num = dbo_reng_pag.cob_num) && (dbo_reng_pag.doc_num = dbo_docum_cp.nro_doc) && (dbo_docum_cp.observa = 'CVG') && (dbo_pagos.monto != " & 0 & ") && (dbo_pagos.anulado !=" & -1 & ") ")
 

pero igual me da error de sintaxis

[Kruzado]

en tu pregunta, no es lo mismo
observacion=left(observacion,37)
estas comparando onservacion con los primeros 37 caracteres de la misma variable, entonces siempre que observacion tenga largo 37 o menor, van a ser iguales me entiendes????

ahora vamos a tu select, en las condiciones ocupas campos de tablas distintas a las que estas utilizando(ej.dbo_docum_cp.observa = 'CVG', dbo_docum_cp no es la tabla que tienes en el select), no creo que eso se pueda hacer...

cuando comence a utilizar acces un amigo me recomendo lo siguiente :

en la pantalla de diseño de consultas, create una consulta que enlace todas las tablas que necesitas, con todas las condiciones para seleccionar registros, una vez que la tengas diseñada en access y el resultado es el que quieres, dale click con el boton derecho del mouse y anda a la vista sql, copia ese texto de la consulta y pegala en tu programa, reemplaza los valores por tus variables y listo, problema resuelto.

tambien puedes utilizar el metodo inverso para revisar tus consultas, esto es, copia la consulta que tienes en el programa, crea una nueva en access y andate a la vista SQL, pega la consulta en esa ventana y revisa los datos, te ayuda a detectar los errores que tienes,

trata de revisar y nos avisas