• Domingo 22 de Diciembre de 2024, 09:05

Autor Tema:  Reporte, Mandar Una Variable Al Command  (Leído 1172 veces)

MeLaT

  • Miembro activo
  • **
  • Mensajes: 32
    • Ver Perfil
Reporte, Mandar Una Variable Al Command
« en: Martes 27 de Marzo de 2007, 18:44 »
0
Hola !!
He hecho reportes pero con todos los registros de una tabla.
Ahora quiero un reporte de un sólo registro tomando en cuenta 2 tablas. Tengo un DataEnvironment con un command con el origen de datos con conexión sql:

Código: Text
  1. select *
  2. from T_COND, T_VEH
  3. where (T_COND.TVH_ZE=T_VEH.TVH_ZE) and T_COND.TVH_ZE = ZE
  4.  
  5.  

Debo mencionar que la sentencia SQL si esta bien, por que la probe como vista en la bd, obvio que cambie el ZE por un número existente. Pero bueno, regresando al DataReport, si utilizo like abre el reporte, pero no se ve el registro. (LIKE ' & ZE &') Si utilizo el igual me manda:
"El parámetro ZE no tiene un valor predeterminado."

Con lo cual creo que no reconoce la variable ZE, pero no se cómo enviarla del InputBox a la variable que tiene el command.

El reporte lo abro desde un menú, y ya tiene los RptTextBox con el campo y la variable ZE la pregunta un inputbox. Pero no se como mandarle el valor que introdujo en el inputbox, o tal vez ni siquiera es asi.

Alquien me podría decir que utilizo o en dónde pongo el código.

En el inputbox tengo esto:
Código: Text
  1. ZE = InputBox("Introduce la Zeta que desea ver en el reporte:", "Zeta")
  2. If IsNumeric(ZE) Then
  3.    If ZE > 0 And ZE < 500 Then
  4.       'asi lo puse pensando que envia ZE ,pero no
  5.       'dtr_info.Show (ZE)
  6.       dtr_info.Show
  7.    Else
  8.           Exit Sub
  9.    End If
  10. Else
  11.    Exit Sub
  12. End If
  13.  

Cualquier comentario se agradece...
Información no compartida es información desperdiciada". Bueno, eso digo yo. - , les recordé.

mamex

  • Miembro activo
  • **
  • Mensajes: 77
  • Nacionalidad: mx
    • Ver Perfil
Re: Reporte, Mandar Una Variable Al Command
« Respuesta #1 en: Miércoles 28 de Marzo de 2007, 01:37 »
0
Mira en un programa yo ocupo éste codigo para imprimir un reporte mandandole parametros:

Código: Text
  1.  
  2. 'Si esta cerrada la conexión la abro
  3. If DEnv1.CxnOrdClientes.State <> 1 Then _
  4.             DEnv1.CxnOrdClientes.Open
  5. 'Mando a llamar al command, enviandole mi parametro
  6. DEnv1.cmdOrdCliente_Grouping miVariable
  7.         'Muestra el reporte
  8.         drOrdCliente.Show 1
  9.         'Cierra la conexion
  10.         DEnv1.CxnOrdClientes.Close
  11.  
  12.