SoloCodigo

Hola de nuevo seek20.

He estado mirando por ahí, para ver como poder lanzar el informe que creé, pero nada. La mayoría, por no decirte todos los que he visto, es sobre BdD de Access y yo lo tengo en SQL Server.

Sólo tengo lo que tú me has dado:

De lo cual, no entiendo la línea Set oReporte = dsrNotaEntrada

y me falta la llamada al informe y la ejecución del informe.

Me puedes ayudar???

Un saludo

Hola seek20.

Tengo varios problemitas y algunas dudas.

No consigo crear el objeto reporte

' Variable usada para crear el objeto reporte
Dim oReporte As New CRAXDDRT.Report

A su vez, no puedo hacer la referencia al objeto

' Variable usada para hacer la referencia a los objetos tabla
Dim oTabla As CRAXDDRT.DatabaseTable

y por último, perdona mi ignorancia, me gustaría saber de dónde sacas CRAXDDRT y que es un desinger.

Si te fijas, en el post principal, puse cual es la conexión que utilizo. Previamente agrego un componente a Visual Basic de Crystal Report (CRYSTL32.OCX)  que es el que inserto en el formulario y al que hago referencia en el post.

Es del mismo estilo que usaba con las BdD de Access, pero en el caso de SQL Server, sin existo. No muestra ningún error, sólo que no actualiza en el informe El contenido de la tabla. Aparece los registros guardados en el informe .rpt

Gracias y un saludo.

Una de las posibles causas, es que no esté grabando los registros al momento de generar el informe, dos, al momento de crear el informe, marcastes la opción que dice Save Data with Report, eso impide le regeneración de los datos.

También puedes probar con
adoconexion.BeginTrans
procesos de borrado
...
proceso de grabación
...
adoconexion.commit
...
...
generación del reporte
...
...

Espero que eso te ayude.

Ya he hecho las pruebas que me citastes:

Save Data with Report. Estaba marcado y lo quité, pero nada.

adoconexion.BeginTrans
procesos de borrado
proceso de grabación
adoconexion.CommitTrans
generación del reporte

También lo he probado, aunque no tiene mucha lógica, porque en la base de datos los cambios aparecen al momento y además, aunque vuelvas a ejecutar la aplicación para sacar el reporte al día siguiente, despues de reiniciar pc y servidor, sigue saliendo el que se quedó guardado en el reporte.

No se, no se... es algo raro. Seguiré comprobando cositas. Si teneis más ideas, estaría muy agradecido.

Un saludo.

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.