• Martes 7 de Mayo de 2024, 23:20

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - migueles2

Páginas: [1]
1
Crystal Reports / Problemas Con Crystal Report+sql Server Y Visual B
« en: Miércoles 1 de Septiembre de 2004, 11:55 »
Llevo utilizando VB, Access y Crystal Report durante mucho tiempo sin ningún problema. Ahora hemos migrado a SQL Server y con respecto a VB con SQL Server, todo bien, pero, cuando creamos los informes con Crystal Report es dónde aparecen los errores.
Creo un informe nuevo, busco la base de datos de SQL Server, la tabla y todo bien. Guardo el informe y me dispongo a recuperarlo desde la aplicación de VB y mi sorpresa es que sólo recupera los registros que aparecen al guardar el informe. Me explico: Si la tabla en cuestión que recupera el informe tenía 10 registros a la hora de crear el informe, por muchos registros que añadas o elimines o modifiques, siempre te saldrán los 10 en cuestión.

Voy a ser un poco más específico:

ESTO ES LO QUE PONGO EN VISUAL BASIC


Dim BaseSql As ADODB.Connection
Dim ConCrystal As String
Dim StrConexion As String

'**********************************
'Crear la conexión
'**********************************
Set BaseSql = New ADODB.Connection

StrConexion = "provider=SQLOLEDB; data source=" & v_SQLServ & ";initial catalog=" & v_SQLBdD & ";uid=" & v_SQLUser & ";pwd=" & v_SQLPassw

BaseSql.Open StrConexion

ConCrystal = "DSN=SQLGAP;UID=" & v_SQLUser & ";PWD=" & v_SQLPassw & ";DSQ=" & v_SQLBdD

'************************************************************
'El informe está creado con los campos de una tabla temporal,
'por lo cual, su contenido varía de un informe a otro.
'
' basesql.execute "delete from tabla_temporal"
'
' basesql.execute "insert into ..."
'************************************************************

Cr1.Reset
Cr1.Connect = ConCrystal
Cr1.WindowTitle = "Titulo del Informe"
Cr1.ReportFileName = "informe.rpt"
Cr1.WindowState = crptMaximized
Cr1.Destination = crptToWindow
Cr1.PrintReport


Ahora tendría que aparecer un informe con los nuevos registros, pero no es así. Salen los registros existente en la tabla cuando cree el informe.
Me estoy volviendo loco...

Marqué la opción de verificar la BdD en cada impresión, pero nada de nada.


Espero vuestra ayuda. Un saludo y gracias por todo.

Páginas: [1]