Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Angel38 en Jueves 5 de Enero de 2006, 19:29
Título: Sigo Con Problemas En El Data Report
Publicado por: Angel38 en Jueves 5 de Enero de 2006, 19:29
Hola amigos espero que este año les de muchas cosas buenas.
Mi problema es el siguiente: Para poder generar un Reporte debo conectar a el Data Report un comando, y luego en la propiedad DataSource colocar el nombre del dataenviroment en este caso "db". Luego en el DataMember colocar el nombre del comando, en este caso "cliente".
Hasta ahora todo va bien. genero la consulta y todo bien, debo abrir la cadena de conexion, la abro. Pero sale un error cuando abro por segunda vez el reporte. Me dice que no se puede si el objeto está abierto, lo mande a cerrar y me dice luego que esta cerrado y no se puede hacer la conexion. Resolví el problema mas o menos asi: Nota:dtrcliente es el Reporte.
Private sub btncliente_click() On Error GoTo Herror db.Connections(1).Open dtrcliente.Show Herror: If Err = 3704 Then db.Connections(1).Open dtrclientes.Show ElseIf Err = 3705 Then db.Connections(1).Close db.Connections(1).Open dtrclientes.Show End If Exit Sub End If End Sub
Los errores, son si el objeto está abierto o cerrado. Alguna genio de la programcion podria darme un mejor metodo, o un truco para no tener ese codigo asi de feo, además, luego de abrir estos Reportes varias veces me generan otro error y no he podido solucionar.
Gracias de antemano, se que no es sencillo entender a otro programdor y su idea. :P
Título: Re: Sigo Con Problemas En El Data Report
Publicado por: Angel38 en Jueves 5 de Enero de 2006, 19:35
:P Me di cuenta que escribí dtrclientes, pero ese error fue al escribir en el foro. Hagan caso omiso y sigan leyendo el codigo como si fuese dtrcliente.
Título: Re: Sigo Con Problemas En El Data Report
Publicado por: Widark en Jueves 5 de Enero de 2006, 23:35
Que tal Angel38!
Una vez me paso y me parece que lo solucione así
Código: Text
set mydataenvironment = new mydataenvironment
'y luego lo enlazo al reporte y esos pasos
pero como me canse de ese error ahora lo que hago es que enlazo el reporte con un recordset normal y me evito este errorcito.
Espero te sirva de ayuda.
Título: Re: Sigo Con Problemas En El Data Report
Publicado por: Angel38 en Viernes 6 de Enero de 2006, 18:52
Lo enlazas con un Recordset normal??? :blink:
Tal vez sea la solución me podrias explicar un poco mejor eso.
De antemano te agradezco.
Título: Re: Sigo Con Problemas En El Data Report
Publicado por: Widark en Sábado 7 de Enero de 2006, 00:25
Claro pelao!
Claro esta que ya esta hecho el reporte y los campos los tienes con la propiedad DataField, debes quitarles la propiedad DataMember y al DataReport en general DataMember y DataSource, el codigo quedaria así:
Código: Text
Sub MuestraReporte
dim rsReporte As New ADODB.Recordset
rsReporte.Open "Select [Campos_que_necesito] From [Tabla_que_necesito]",ConexionActiva,adOpenStatic, adLockReadOnly
set DataReport1.DataSource = rsReporte
DataReport1.Show
Creo que eso seria todo. Aclaro que la sentencia es una normal con Where y condiciones y todo lo que soporte (lo digo por si acaso).