Para entender el post necesitas: Tener conocimientos de SQL Server, Crystal Reports y Visual Basic 6, así como estar familiarizado con las conexiones vía ODBC.

Parece que, desde la versión 8 ó 9 de Crystal Reports, existe un problema a la hora de cambiar la base de datos a la que queremos conectar cuando lanzamos un informe, ya sea utilizando los módulos RDC o .NET de Crystal Reports. Recuerdo haberle dado muchas vueltas en su día, cuando tuve que programar un administrador de informes con sus filtros y la información de conexión vía ODBC (nombre del DSN, driver, servidor, usuario y contraseña) de modo que fuesen fácilmente configurables. Por aquel entonces cargaba (innecesariamente) los datos en un RecordSet con la sentencia SQL del informe y luego se lo asignaba al objeto CRAXDRT.Report correspondiente. Creía que el método funcionaba correctamente, hasta que tuve que hacer un pequeño lanzador de informes con el runtime de Crystal Reports XI y detectamos que siempre atacaba a la base de datos que fuese declarada en el informe origen. Después de quebraderos de cabeza varios, y hacer muchas tonterías, di con la solución al comprobar la sentencia SQL del informe (que era lo primero que tenía que haber hecho, leches).

Parece que desde la versión 8 en adelante, se les ocurrió la genial idea de dejar guardada la información de la base de datos a la que debía conectar el informe explícitamente en la clausula FROM de la dichosa sentencia SQL. De modo que, hagas lo que hagas con la cadena de conexión del informe, a éste le basta con encontrar el servidor SQL al que estaba enlazado para que deseche la nueva información o, si no la encuentra, seguramente falle sin más.

Por suerte, este problema tiene solución sin tocar la sentencia SQL. Basta con modificar los datos de conexión de las tablas utilizadas en el informe (ya sea alterando la ConnectionString o las ConnectionProperties) y alterar el origen de los datos mediante la propiedad Location de la tabla. A continuación os dejo el código fuente de una función con la que podéis atajar el problema:

Entorno utilizado: Visual Basic 6 SP6 con el runtime de Crystal Reports XI Release 2.
Base de datos: SQL Server 2000. Puede ser útil también para Oracle.


Public Function AplicaCambios(ByRef crrep As CRAXDRT.Report _
, strDsn As String, strServer As String, strDb As String _
, strUid As String, strPwd As String, strDriver As String) As Boolean
    Dim i As Integer
    Dim esSqlServer As Boolean

    AplicaCambios = True

    'Comparamos sin distinguir mayúsculas. _
     Si se trata de un report contra SQL Server tendremos _
     que procesar el Location de cada tabla.
    If InStr(1, strDriver, "SQL SERVER", vbTextCompare) Then
        esSqlServer = True
    Else
        esSqlServer = False
    End If

    For i = 1 To crrep.database.Tables.Count
        With Me.crReport.database.Tables(i)
            Call .ConnectionProperties.DeleteAll

            Call .ConnectionProperties.Add("DSN", strDsn)
            Call .ConnectionProperties.Add("Server", strServer)
            Call .ConnectionProperties.Add("Database", strDb)
            Call .ConnectionProperties.Add("User ID", strUid)
            Call .ConnectionProperties.Add("Password", strPwd)
            Call .ConnectionProperties.Add("UseDSNProperties", False)

            If esSqlServer Then
                On Error Resume Next
                .Location = strDb & ".dbo." & .Location

                If Err.Number Then
                    Call MsgBox("Error al procesar los nombres de las tablas: " _
                    & vbCrLf & .Location & " al pasar a " _
                    & strDb & ".dbo." & .Location _
                    & vbCrLf & Err.Number & ": " & Err.Description)

                    AplicaCambios = False
                    Exit For
                End If
                On Error GoTo 0
            End If
        End With
    Next
End Function 'AplicaCambios


La comprobación del driver no sé si os resultará útil; en mi caso, el programa lo utilizo para atacar mediante ODBC a SQL Server o a ficheros de texto plano; por eso no aplico el cambio de la propiedad Location siempre.

Por último, creo conveniente comentar que una de las ventajas de Crystal Reports XI es que no hay que procesar los subinformes, ya que todas las tablas se encuentran localizadas en el miembro Database del objeto CRAXDRT.Report. Creo recordar que, para la versión 9, sí era necesario recorrer todas las secciones para aplicar los cambios.

Espero que sirva de ayuda a alguien. Para sugerencias o dudas, tienen a su disposición los comentarios.

Recuerdo que cuando tenía unos 14 años o así pusieron en canal sur una serie llamada en España "Meteoro".



La animación era un poco cutre (normal porque la serie es de 1967) e iba acerca de un adolescente (como no) que pilota un deportivo un tanto especial, el Mach 5, corriendo en carreras de cualquier parte del mundo. El Mach 5 fué diseñado por su padre, un corredor profesional retirado, y dispone de mecanismos que permiten conducir en cualquier tipo de terreno y con todo tipo de obstáculos. El piloto llamada en España Meteoro tendrá que usar dichos mecanismos en numerosas ocasiones, pues se enfrenta habitualmente a competidores sin escrúpulos y criminales internacionales que tratan de amañar las carreras.

Meteoro suele ir acompañado de su novia Trixie, su hermano pequeño Spridle y de la mascota de éste, Chim-Chim (un mono).

La información la he sacado de la base de datos de frozen-layer aqui os pongo el link a la ficha por si sentís curiosidad y no desmerecer el trabajo del que la haya escrito.

La serie en si misma a mi me parece infantil y está muy desactualizada como podréis comprobar en la intro que he encontrado en San Youtube y he puesto más abajo (aunque creo que basta con ver los primeros 30 o 60 segundos para haceros una idea de lo que era):




¿Y por qué reseño esta serie si me parece tan cutre? Pues porque los hermanos Wachowski (que al parecer ahora son hermano y hermana ya que Larry se ha hecho un cambio de sexo en sus vacaciones en Tailandia y ahora se llama Lana) están realizando una película de imagen real de esta serie y el primer trailer que ha salido es espectacular. Lo podéis ver y descargar en la pagina oficial de la película aunque esté en inglés merece la pena. Para los que usen firefox y no puedan ver quicktime (yo al menos no encuentro el plugin) yo les recomiendo bajarlo que tienen los enlaces al lado para ello y así poder disfrutarlo en alta calidad, pero si son demasiado perros pueden verlo en este enlace de youtube que está subtitulado al español.

Como curiosidad sale Mathew Fox al que mucha gente conocerá como Jack en Perdidos. El reparto está repleto de actores bastante conocidos como Susan Sarandon, Emile Hirsch, Christina Ricci, Susan Sarandon y John Goodman.

Según la ficha de Yahoo cine se estrenará el 9 de mayo de este año y yo desde luego ya lo he marcado en el calendario.

Jelou ebriguan. Para mantener el espíritu de este blog, he tardado un poquito en autopresentarme porque tenía que hacer el vago; pero como hasta de hacer el vago se cansa uno, aquí estoy.

Mi nick completo es Mike HippiesDiggingFlowers (HippiesFumandoFlores, para los que no tienen mucha idea de inglés). Este nick tiene mucha historia a sus espaldas: se me ocurrió un día al escuchar una canción de los 70 que se titula "Hippies don't dig flowers" (los hippies no fuman flores) y yo me dije, ¿cómo que no?; de modo que adopté este Nick en detrimento de otras invenciones infantiles como Pereltoira Vendonabos y FurtherMuteTuteFundez.

...

Bueno, tal vez no tuviese tanta historia como pensaba, pero ¿qué esperabas?, es un simple sobrenombre internautico.

El caso es que llevaba tiempo (2 semanicas (me encanta usar paréntesis)) queriendo tener un segundo blog que estuviese dedicado a la informática; concretamente al software y la programación. Quería dar a conocer aplicaciones que cualquier friki ha necesitado alguna vez, como un renombrador masivo para reordenar sus colecciones de imágenes porno (vamos, frikis, que todos sabemos que nuestros discos duros están llenos de archivos dedicados al culto de Onan); así como exponer las soluciones a problemas que los programadores noveles nos solemos encontrar al entrar en el mundo laboral y que, con cierta dificultad, logramos hallar a base de cabezazos y googleos.

Básicamente, mis post van a ser un pestiño.

El caso es que el padre de este blog consideró que mis aspiraciones casaban con el espiritu del mismo (en realidad sus palabras casi textuales fueron "colabora en mi blog y ayúdame a conquistar el mundo"... puto friki), y me ha dejado la puerta abierta para que haga lo que me plazca (como un Windows sin antivirus conectado a internet juas (véis como es verdad que me gusta usar los paréntesis)). La idea de sabote.... estooo, colaborar en otro blog no me era nada desagradable, así que aquí estoy.

Pues nada más; ahora que ya sabéis en que van a consistir mis aportaciones, podéis continuar visitando vuestras páginas porno favoritas; aunque os recomendaría que picárais en el vídeo que os pongo a continuación, que es un temita musical bastante potable que viene a pelo con lo de colabor... estoooo sabotear.

Por fin acabé mis examenes que no me dejaban tiempo para casi nada así que por fin podré volver a escribir posts que nadie leerá XD.

Para empezar hablaré de una utilidad que he puesto en la barra derecha del blog, el ZedFreeSMS, que te permite enviar 5 sms gratis diarios registrando una cuenta de usuario, lo podeis hacer ademas desde el mismo programa. Para ello id "Iniciar/Terminar Sesión" y veréis una opción para registrar una cuenta si aun no lo habéis hecho. Los SMS serán de 100 caracteres ya q el resto los usan para añadir publicidad al final pero a SMS regalado no le mires el...ehmm...diente.

También tenemos a un nuevo colaborador Mike_HDF que ya se auto-presentará y se encargará de realizar post acerca de códigos e informática.

Y para rellenar el post en el que tampoco esperaba decir nada especial cuelgo unas tiras de Calvin y Hobbes que he estado traduciendo.



By elchicocostra at 2008-02-13


By elchicocostra at 2008-02-13


By elchicocostra at 2008-02-13

Pues nada pronto publicaré algo decente.