Mensaje enviado por Martín Olivares <martinoli@infovia.com.ar>

Espero solucionar tu problema, te mando un fragmento de código, aunque no esté optimizado funciona OK para hacer lo que dices.

Esta es la instrucción que tiene el Command1 de un DataEnvironmentDesign llamado dedMovil

"SELECT Movil, SUM(Importe) AS totMovil, Fecha FROM HistPasajes WHERE (Fecha = fec) GROUP BY Movil, Fecha"
donde el valor de "fec" no corresponde con ningún campo de ninguna tabla, sino que es el que recibirá el parámetro para el informe. Dicho Command1 es el que le da la estructura a un informe llamado repImpClientes. Luego en el programa lo llamo así:

dedMovil.Command1 (FecRep.Value) ' Esta es la instrucción que le pasa el parámetro al Command1
'FecRep es el valor de un Dtpicker con la fecha deseada
repImpClientes.Title = "Importes cobrados por móvil el día: " & CStr(FecRep)
repImpClientes.Caption = "Importes cobrados el día: " & CStr(FecRep)
repImpClientes.Show

Exitos.

Martín Olivares - Ing. en Sistemas
martinoli@infovia.com.ar
San Juan - Argentina
----- Original Message -----
From: SilviaRebollo Gargallo <silvia.rebollogargallo@telefonica.es>
To: <vb-esp@ccc.uba.ar>
Sent: Tuesday, October 26, 1999 8:41 AM
Subject: vb-esp : Problemilla con un Dataenvironment


Hola listeros
 Mi problema es cómo pasar parámetros a una Select de un DataEnvironment
, para sacar un informe en función del valor del mencionado parámetro.
MUCHAS GRACIAS

Mensaje enviado por "Postmaster NA" <postmaster@nalejandria.com>

Silvia,
La forma de que tienes de poner parametros a un Command en el DataEnvironment es la siguiente:

1) colocas la sentencia SQL en el Command1 por ejemplo:
    select * from precios where importe > ?
2) Cuando hagas Apply, te va a dar un mensaje que indica que debes poner los parametros. Tienes una pestana del tabulador que indica parameters. Alli le asignas un nombre, le indicas que es de entrada (input) el tipo de Variable (host string) en el ejemplo Double y luego el tipo de variable del host (adNumeric)

3) Cuando definas en algun modulo la llamada al recordset debes hacerlo con el siguiente codigo:
    Dim MiDe as new Dataenvironment1
    MIDe.Command1 (aca va el parametro)

    Luego puedes utilizar el rsCommand1 que es el recordset generado por el command como cualquier Ado.

Espero que te ayude.

JULIO.


-----Original Message-----
From: SilviaRebollo Gargallo <silvia.rebollogargallo@telefonica.es>
To: vb-esp@ccc.uba.ar <vb-esp@ccc.uba.ar>
Date: Martes 26 de Octubre de 1999 22:12
Subject: vb-esp : Problemilla con un Dataenvironment


> Hola listeros
> Mi problema es cómo pasar parámetros a una Select de un DataEnvironment
>, para sacar un informe en función del valor del mencionado parámetro.
>MUCHAS GRACIAS
>