jcarlos_g
30 de Junio del 2003

Hola, tengo un pequeño problema espero me puedan ayudar.

Resulta que tengo una Base de Datos de la cual tengo que fabricar un reporte pero a la consulta de SQL del objeto Command falta agregarle un parametro que es tomado de una forma (o variable) del programa y no de la BD.

¿Qué úedo hacer?. La consulta es:

SELECT TB_Movimientos.IdMovimiento, TB_Movimientos.Fecha, TB_Clientes!Nombre & ' ' & TB_Clientes!ApellPat & ' ' & TB_Clientes!ApellMat AS NombreC, TB_Servicios.Servicio, TB_Movimientos.Tipo, TB_Movimientos.Monto, TB_Movimientos.FechaVenc FROM TB_Servicios INNER JOIN (TB_Clientes INNER JOIN TB_Movimientos ON TB_Clientes.IdCliente = TB_Movimientos.IdCliente) ON TB_Servicios.IdServicio = TB_Movimientos.IdServicio WHERE TB_Movimientos.IdCliente = & AQUI IRIA EL PARAMETRO (Form1.Text) &

Espero me puedan ayudar, de antemano gracias!!
JC

jrossotti
30 de Junio del 2003

Estoy buscando lo mismo Jefe

angeles
30 de Junio del 2003

Puedes, y debes, crear la cadena SQL antes de mostrar el Report, en diseño pones cualquier valor y cuando muestres el report haces lo siguiente:
'Esto es para que siempre actualice la información del Report
If DataEnvirnment1.rsComandoQueSea.State= adStateOpen Then
DataEnvirnment1.rsComandoQueSea.Close
End If
'Ahora la Consulta:
DataEnvirnment1.Commands("ComandoQueSea").CommandText=
SELECT TB_Movimientos.IdMovimiento, TB_Movimientos.Fecha, TB_Clientes!Nombre & ' ' & TB_Clientes!ApellPat & ' ' & TB_Clientes!ApellMat AS NombreC, TB_Servicios.Servicio, TB_Movimientos.Tipo, TB_Movimientos.Monto, TB_Movimientos.FechaVenc FROM TB_Servicios INNER JOIN (TB_Clientes INNER JOIN TB_Movimientos ON TB_Clientes.IdCliente = TB_Movimientos.IdCliente) ON TB_Servicios.IdServicio = TB_Movimientos.IdServicio WHERE TB_Movimientos.IdCliente = & AQUI IRIA EL PARAMETRO (Form1.Text)
'Ahora Mostrar el Report
DataReport1.Show
Con esto funciona.
Suerte

angeles
30 de Junio del 2003

Perdon se me olvidaron las Comillas dobles:
DataEnvirnment1.Commands("ComandoQueSea").CommandText=
"SELECT TB_Movimientos.IdMovimiento, TB_Movimientos.Fecha, TB_Clientes!Nombre , TB_Clientes!ApellPat, TB_Clientes!ApellMat AS NombreC, TB_Servicios.Servicio, TB_Movimientos.Tipo, TB_Movimientos.Monto, TB_Movimientos.FechaVenc FROM TB_Servicios INNER JOIN (TB_Clientes INNER JOIN TB_Movimientos ON TB_Clientes.IdCliente = TB_Movimientos.IdCliente) ON TB_Servicios.IdServicio = TB_Movimientos.IdServicio WHERE TB_Movimientos.IdCliente =" & AQUI IRIA EL PARAMETRO (Form1.Text)