Visual Basic - Informes d consultas variables en tiempo ejecucion

Life is soft - evento anual de software empresarial
 
Vista:

Informes d consultas variables en tiempo ejecucion

Publicado por David (1 intervención) el 14/10/2002 22:14:11
Primero de todo debo aclarar que soy novatillo en el tema. Dicho esto all? va la
question:
Es posible introducir una sentencia SQL en un DECommand del DataEnvironment
en tiempo de ejecucion????
Lo que realmente deseo es hacer un informe con el control DataReport con datos
procedentes de una consulta SQL que pueden variar segun lo opcionado por el
usuario. Tengo el DataReport relacionado con el Command del DataEnvironment (tal
como dice la ayuda MSDN y multitud de manuales).

Si fuera posible, donde deber?a insertar la sentencia????
Hay alguna opcion m?s sencilla para hacer lo que pido??? (Ya se que con Crystal tb
se puede hacer, pero me interesa hacerlo con el Data Report)

Muchas gracias
Att
David
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Informes d consultas variables en tiempo ejecuc

Publicado por David Medina (24 intervenciones) el 20/10/2002 16:18:48
Yo trabajo con las conexiones ADODC y lo que creo es la sentencia SQL al diligenciar los datos en un formulario y luego los datos se los asigno a los campos del informe por código, álgo mas o menos así:

copialo en VB para que lo puedas apreciar bien: tengo un ComboBox normal y dos campos de Texto que juntos son mis tres parámetros!

SqlVentasxPlan = "SELECT VTCODIGO, VTCOD_PLAN, VTFECHAVENTA, VTCOD_CLIENTE, PLDESCRIPCION, "
SqlVentasxPlan = SqlVentasxPlan + "CLAPELLIDOS&' '&CLNOMBRES AS CLIENTE, CLTELEFONO, VECODIGO, "
SqlVentasxPlan = SqlVentasxPlan + "VEAPELLIDOS&' '&VENOMBRES AS VENDEDOR, VTWSOLIC "
SqlVentasxPlan = SqlVentasxPlan + "FROM VENTA, CLIENTES, VENDEDORES, PLANES "
SqlVentasxPlan = SqlVentasxPlan + "WHERE VTCOD_CLIENTE = CLCEDULA "
SqlVentasxPlan = SqlVentasxPlan + "AND VTCOD_VENDEDOR = VECEDULA "
SqlVentasxPlan = SqlVentasxPlan + "AND VTCOD_PLAN = PLCODIGO "
SqlVentasxPlan = SqlVentasxPlan + "AND VTCODIGO >=" & Text1.Text & ""
SqlVentasxPlan = SqlVentasxPlan + " AND VTCODIGO <=" & Text2.Text & ""
SqlVentasxPlan = SqlVentasxPlan + " AND PLDESCRIPCION ='" & DBplanes.Text & "'"

FrmConexiones.Adodc4.RecordSource = SqlVentasxPlan
FrmConexiones.Adodc4.Refresh

If FrmConexiones.Adodc4.Recordset.EOF = True Then
MsgBox "No existe ningún registro para ese Plan en ese rango de Solicitudes ", vbInformation + vbOKOnly
Exit Sub
End If

Set RptVentasxPlan.DataSource = FrmCon
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar