1
« 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.