SoloCodigo

Es que nadie lo sabe!!!!!:devil:

Hola Majuhemo, primero que nada muchas gracias por responder y dedicar algo de tiempo a mi consulta.

1) La idea es mejorar la velocidad de la consulta (bien dicho: la velocidad que el usuario percibe) Tengo el siguente problema. Estoy lanzando una sola consulta (como tu sugieres) que tarda bastante y la verdad es que si pudiera partirla en dos me ahorraría tiempo. El usuario elige una opción de un combo y cada vez que elige una opción se lanza esa consulta tan costosa cuando en realidad si hubiera lanzado una consulta primero y recuperado unos registros luego solo tendría que hacer una pequeña consulta sobre ese recordset recuperado que sería más pequeña y menos costosa (No puedo utilizar el método de busqueda en un recordset (Find o Seek) pq la segunda consulta es algo más complicada)
Si se te ocurre algo gracias!

2) El segundo punto quisiera saber que es lo dbo que sale en el FROM. No he tenido tiempo de probarlo pero lo probaré y te diré algo Gracias!

Buenas!

Estoy usando ADO con Oracle

No la segunda información es para una DataReport. De lo cual se desprende que no hago ningún barrido para rellenarlo.

Es Cierto no hay ningún problema para rellenar el primer cbo ni para hacer la primera consulta.

Te expongo el orden de las cosillas:

Como lo estoy haciendo actualmente:
1) Relleno el CBO
2) Una vez el usuario elige lanzo una consulta grande y costosa
3) Saco el DtaReport

Como me gustaría hacerlo:
1) Hago una consulta (menos costosa que la grande del otro método, pero no definitiva) la uso para rellenar un recordset llamesmole X
2) Relleno el Cbo
3) Al elegir una opción el usuario lanzaría una consulta pequeñita sobre X
4) Sacaría el DataReport

Como puedes ver es una cuestión de velocidad y optimización. Pues de esta manera podría hacer la consulta costosa una sola vez en el programa (o una sola vez cada vez que se abre el formulario) pero no la ejecutaría cada vez que el usuario elige una opción del cbo. (Le doy opción a que antes de salir del formulario pueda elegir otra opción e imprimir otro informe)

Tb decirte que el rellano del cbo en este caso es independiente de los datos de las consultas, se hace desde otra consulta.

Gracias otra vez por la dedicación.
Oye a ver si me explicas eso del dbo, que me comentabas en el segundo punto.

Todavía no he tenido tiempo de probarlo: Ya se sabe en el curro le exprimen a uno al máximo.

Sinceramente: GRACIAS:jumpie:

A ver si te sirve esta rutina:


Function Filtrar(rstT As Recordset, cFil As String) As Recordset
    On Error GoTo FiltErr
    rstT.Filter = cFil
    Set Filtrar = rstT.OpenRecordset
    Exit Function
FiltErr:
    x = MsgBox("Hay un error sintáctico en la fórmula de" & Chr(10) & _
            "Criterios de Selección")
End Function

La llamada sería:

Set rsNuevo = Filtrar(rsPrimitivo, Criterios para el nuevo recordset)

Lógicamente, rsPrimitivo sería el recordset grande que generaste al principio...

Ojalá te resulte...  Saludos.

Hola a todos!
Saludos en particular para J.M.Movilla y Majuhemo quienes han mostrado interés en este pequeño problema.

Hace algún tiempo planteé dos problemas generales:

1) Cómo hacer una consulta sobre dos bases de datos diferentes usando ADO (concretamente: DataEnvironment).

2) Cómo hacer una consulta sobre un recordset que hemos obtenido previamente mediante otra consulta.

Para el primer problemilla (caso 1) no he obtenido solución aún, aunque en el trabajo lo hemos solucionado añadiendo una especie de vinculación en una de las base de datos hacia la otra. Esto lo han realizado los administradores de sistemas sobre Oracle.

Para el segundo problemilla J.M.Movilla propone una solución que es la que más se aproxima a lo deseado: Filtrar el recordset y a partir de él obtener otro.
El código de la función de J.M.Movilla lo podreís encontrar en este mismo tema, en su respuesta.
Consideraciones a este código:

1) Se ha adaptado para que funcione con ADO.

2) Estan cubiertas todas las necesidades con esta formulación: SQL+Filtrado?

Supongo que lo verdaderamente deseable sería SQL+SQL, y si pudireramos pq no: SQL+SQL+...+SQL
pero bueno. ¿Alguién sabe cómo?

Os paso a continuación el código de JMM modificado para ADO

En un formulario se han añadidos dos DataGrid's y se les ha llamado GridOriginal y Grid
Se ha añadido un DataEnvironment llamado Dta y una conexión llamada USI.
La base de datos contiene una tabla Equips que son los equipos inventariados, un campo interesante es CODI_CONF, que será por el que luego filtraremos a modo de prueba, que recoge el tipo de equipo del que hablamos: PC, Impresora...
Se ha añadido un comando a Dta llamado Equipos cuya Select es la siguiente:

SELECT EQUIP.* FROM EQUIP

Y en el formulario se ha añadido el siguiente código:

Private Sub Form_Load()
    Dim rsNuevo As ADODB.Recordset
    Dim CadFiltro As String
    If Dta.rsEquipos.State = 1 Then
        Dta.rsEquipos.Close
    End If
    Dta.Equipos
    ' Hemos lanzado la primera consulta
    ' (en este caso no hace nada, solo recupera los datos)
    CadFiltro = "CODI_CONF=1"
    ' Probaremos con este filtro, aunque se pueden añadir más condiciones
    ' usando los operadores AND y OR
    Set rsNuevo = Filtrar(Dta.rsEquipos, CadFiltro)
    Set Grid.DataSource = rsNuevo
    Set GridOriginal.DataSource = Dta.rsEquipos
End Sub
Function Filtrar(rstT As ADODB.Recordset, cFil As String) As ADODB.Recordset
    On Error GoTo FiltErr
    Set Filtrar = rstT.Clone
    Filtrar.Filter = cFil
    Exit Function
FiltErr:
    MsgBox "Hay un error sintáctico en la fórmula de" & Chr(10) & _
    "Criterios de Selección"
End Function

Esto es todo. Muchas Gracias a todos, muy en particular a JMM y  a Majuhemo. Y decirle a JMM que aunque en su momento considere lo por el propuesto lo desestimé por algún motivo (quizá la creencia que habría alguna forma de hacer SQL+SQL) pero que su aportación ha hecho que vuelva a reflexionar sobre la cuestión. Igual puedo reformular las consultas en cuestión para que se adapten a SQL+Filtro. Muchas Gracias

Ya diré algo si lo logro.

Muchas Gracias

Gracias de nuevo JMM
lo pruebo y digo algo

Gracias