SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MeLaT en Martes 27 de Marzo de 2007, 18:44

Título: Reporte, Mandar Una Variable Al Command
Publicado por: MeLaT en Martes 27 de Marzo de 2007, 18:44
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...
Título: Re: Reporte, Mandar Una Variable Al Command
Publicado por: mamex en Miércoles 28 de Marzo de 2007, 01:37
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.