RESPUESTA A LA PREGUNTA 1079 - VISUAL BASIC


uhhhh, no veas la de vueltas que di para dar con ello. Y por eso mismo no se si contarlo.
Es broma hay va, el peazo codigo sacao de un promgrama:

    If DEGim.Conx.State = adStateClosed Then
        DEGim.Conx = AdoConex
    End If
    
    If DEGim.Recordsets(7).State  adStateClosed Then
        DEGim.Recordsets(7).Close
    End If
    
    DEGim.Commands(7).Parameters("fechaini").Value = cadPrm1
    DEGim.Commands(7).Parameters("fechafin").Value = cadPrm2
    
    With drpClasesAerobic
        Set .DataSource = Nothing
        .DataMember = ""
         DEGim.Recordsets(7).Open DEGim.Commands(7).Execute, DEGim.Conx
        Set .DataSource = DEGim.Recordsets(7)
        With .Sections(3).Controls
            For i = 1 To .Count
                If TypeOf .Item(i) Is RptTextBox Or TypeOf .Item(i) Is RptFunction Then
                    .Item(i).DataMember = ""
                End If
            Next
        End With
        .Show
    End With




Veamos si nos aclaramos
DEGIM . es el dataeviorement al cual esta enlazado el comando, que por casualidad se
llama, no lo pone pero es el DEGIM.COMMANDS(7).
Lo que hace al principio es para limpiar un poco los datos para refrescar lo que hay
en el command.
Bueno por donde iva a sín. Mira lo que tienes que hacer es crearte el command en el DEGIM.
En las propiedades del command te saldrán varias solapas pues a ver si me sisgues:
Yo genero la sentencia SQL con el generador que trae. Poniendo "?" para referirme a cada parametro.
Bien después de generar la sentencia SQL (poniendo "?" en cada parámetro), lo que hago es lo que sigue:
me voy a la solapa de parametros me salen uno por cada "?" gallifante de estos que he puesto.
Asin que les cambio el nombre e indico el tipo de dato.
Déspues de esto indico en la solapa de, creo que se llama con algo asín como devolución, indico 
que el command devuelve datos en forma de un rst.
para asígnar valores al parametro lo hago tal como se ve arriba
""    DEGim.Commands(7).Parameters("fechaini").Value = cadPrm1
    DEGim.Commands(7).Parameters("fechafin").Value = cadPrm2""

Y lo que sigue es para cojer los datos del parametro de un rst cualquiera lo que pasa es que 
yo utilizo el command del DEGIM.

Nota1: A los campos  fechas no hay que ponerles el # delente ni detras como en el SQL, creo que
esto es devido a que se indica el tipo de campo, o a que mi visual esta cada día más loco.
Nota2: el report se llama drpClasesAerobic, por si no se dais cuenta.
Nota3: No veas lo que cansa escribir tanto.

Bueno sin más y esperando servir de ayuda. Nos vemos, nos vamos, nos vimos....


Alex
neapovea@jazzfree.com