Hola compañeros:

>Tengo unas consultas con parametros hechas en Access y deseo saber cual es
>la mejor manera de poder abrirlas desde Visual Basic 5. Es que la otra vez
>alguien dijo que en Vb5 habian una mejor forma de hacerlo que aun se
>soportaba la de las versiones anteriores solamente por compatibilidad (es
>que no encontre los datos esos) y como la bibliografia que tengo es de VB4
>entonces quisiera alguien me ayudara en eso.
>
>Si alguien sabe como:
>
>a) Abrir una consulta normalita

' Sin parámetros
Public Function RecordsetDelQuery (strNombreQuery as String) As Recordset
    Dim qdfQuery as QueryDef

    Set qdfQuery = DB.QueryDefs (strNombreQuery)
    Set RecordsetDelQuery = qdfQuery.OpenRecordSet (dbOpenSnapshot)
                                                                           'o (dnOpenDynaset)
    qdfQuery.Close 'esto es de memoria ¿?
    Set qdfQuery = Nothing
End Fuction


>b) Abrir una consulta con parametros

' Con parámetros
Public Function RecordsetDelQuery (strNombreQuery as String) As Recordset
    Dim qdfQuery as QueryDef

    Set qdfQuery = DB.QueryDefs (strNombreQuery)
    qdfQuery![ParametroRequerido] = Text1.Text 'o InputBox (...)
    Set RecordsetDelQuery = qdfQuery.OpenRecordSet (dbOpenSnapshot)
                                                                           'o (dnOpenDynaset)
    qdfQuery.Close 'esto es de memoria ¿?
    Set qdfQuery = Nothing
End Fuction

>c) abrir una consulta de tabla de referencias cruzadas

    Upsssss ;-(

    Dependiendo del tipo de consulta que hagas, necesitarás o no parámetros; por ejemplo, al actualizar necesitas pasar a la consulta el nuevo dato.

1º- Te creas la consulta SQL (Access, VisData ...):

>d) Abrir una consulta de creación de tabla
    Como sea ... :-(

>g) Abrir una consulta de Eliminación??
    DELETE FROM tabla1 WHERE criterio

>e) Abrir una consulta de Actualización
UPDATE lista_tablas SET campo=nuevo_valor [,campo=nuevo_valor] [WHERE ...]

o si le pasas el parámetro:
PARAMETERS NuevoValor Text;
UPDATE lista_tablas SET campo=NuevoValor [,campo=nuevo_valor] [WHERE ...]

para luego hacer desde VB:
1- Abrir:     
    Set qdfQuery = DB.QueryDefs (strNombreQuery)
2- Si tiene parámetros:
    qdfQuery![NuevoValor] = Text1.Text 'o InputBox (...)
3- Ejecutarla
    qdfQuery.Execute

>f) Que es y como Abrir una consulta de datos anexados??

    Upsssss ;-(


Espero haberos ayudado y no haberlos liado.
Para cualquier consulta extra no dudéis en escribirme

Bye !!!!!


Un salu2
____________________________
           Jose Julio Ruiz
         josejrp@iname.com
--------------------------------
     (desde Segovia - España)
           ICQ => 8834523
--------------------------------
       [omitidos los acentos]

GTP - Grupo Tarifa Plana - http://www.laref.com/gtp