DISEÑO REPORTE VISUAL
Publicado por Julio (1 intervención) el 11/10/2007 17:16:49
Que tal amigos. Tengo un problema. Pude diseñar mi reporte perfectamente pero cuando lo voy a mostrar por código me genera un error. Si ejecuto directamente el informe si sale bien, les agradezco si me colaboran con este tema. Dos cosas: estoy ejecutando un procedimiento almacenado y me doy cuenta que el problema va a cuando realizo el agrupamiento.
El código es el siguiente:
Dim prn_proy As Double
Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim Entorno As ConexionSQL 'Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Entorno = New ConexionSQL
Entorno.babero.ConnectionString = "PROVIDER=MSDASQL; DSN=Calculo"
'Set Listado = Entorno.Commands("command1_grouping")
Set Listado = Entorno.Commands("command1_grouping")
Listado.CommandType = adCmdStoredProc
Listado.CommandText = " SHAPE {{? = CALL dbo.s_babero(?) }} AS Command1 COMPUTE Command1, SUM(Command1.'TOTAL') AS Agregado1 BY 'PROYECTO','GRUPO'"
'Listado.Parameters.Item(0).Value = 1720001
Load datos
Screen.MousePointer = vbDefault
datos.Show vbModal
El código es el siguiente:
Dim prn_proy As Double
Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim Entorno As ConexionSQL 'Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Entorno = New ConexionSQL
Entorno.babero.ConnectionString = "PROVIDER=MSDASQL; DSN=Calculo"
'Set Listado = Entorno.Commands("command1_grouping")
Set Listado = Entorno.Commands("command1_grouping")
Listado.CommandType = adCmdStoredProc
Listado.CommandText = " SHAPE {{? = CALL dbo.s_babero(?) }} AS Command1 COMPUTE Command1, SUM(Command1.'TOTAL') AS Agregado1 BY 'PROYECTO','GRUPO'"
'Listado.Parameters.Item(0).Value = 1720001
Load datos
Screen.MousePointer = vbDefault
datos.Show vbModal
Valora esta pregunta
0