Visual Basic - Reporte TTX no me da resultados...heeelp!

Life is soft - evento anual de software empresarial
   
Vista:

Reporte TTX no me da resultados...heeelp!

Publicado por Jorge (55 intervenciones) el 03/02/2010 17:03:36
si alguien me puede ayudar sobre que estoy haciendo mal.
a ver la situacion es la siguiente, paso a paso:

Primero en Crystal:
---------------------------
1. creo el archivo ttx, por ejemplo:

codigo <TAB> Long <TAB> 1234
cliente <TAB> String <TAB> el cliente
Monto <TAB> Number <TAB> 100.00

2. creo el reporte .RPT con crystal usando "Field Definition Only" como conexion (es Crystal Reports 9), y llamo el archivo .TTX

3. hago el diseño jalando los campos que quiero, en el preview me aparecen los datos de ejemplo del ttx (1234, el cliente, 100.00)

4. lo grabo SIN "Save Data with report"

Ahora en VB6:
-------------------
escribo el codigo para mostrar el reporte en un form

Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Set crReport = Nothing
Set cnn = Nothing
Set rst = Nothing

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0 ;" & "Data Source=" & App.Path & "\Mi_BD.mdb ;"
cnn.CursorLocation = adUseClient
rst.Open SentenciaSQL, cnn, adOpenDynamic, adLockOptimistic

' ===>donde SenteciaSQL es: "SELECT codigo, cliente, monto FROM MiTabla"

Set crReport = crApp.OpenReport(App.Path & "\Mi_Reporte.rpt", 1)
crReport.Database.SetDataSource rst
CRV.ReportSource = crReport
CRV.ViewReport

PROBLEMA:
-----------------
Corro la aplicacion, me carga el reporte, PERO, los resultados que me da el reporte son los datos de ejemplo del ttx y no los datos del recordset
en un flexgrid envio los datos del recordset y si me muestra los datos, pero en el reporte no los carga.....mmmm... no se me ocurre que esta mal

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Solucionado pero OTRO problema...

Publicado por Jorge (55 intervenciones) el 03/02/2010 18:30:13
vaya me pregunto y me respondo....

... lo probe en otro ordenador y me mostro los resultados... al parecer debo volver a instalar el crystal, algo debe andar mal.... PEEEERO...

... obtengo los resultados, cierro el formulario o la aplicacion, vuelvo a abrir el formulario o aplicacion, ejecuto la busqueda y zaz! se cierra el VB6, vuelvo a entrar, hago lo mismo y zaz! la misma historia :(

entonces si abro el formulario y no lo cierro funciona, pero si lo cierro y lo vuelvo a abrir ce cierra la aplicacion

Y ahora... quien podra ayudarme??..... :(
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Reporte TTX no me da resultados...heeelp!

Publicado por Pedro Luis (878 intervenciones) el 04/02/2010 12:07:51
El listado en Crystal debe hacerse con Mi_Bd.mdb, con las tablas y campos de esa base de datos.
En Crystal debes crear una nueva conexión, quizas Access/Excel DAO y posiblemente las cosas empiecen a funcionar.
Aqui tienes un ejemplo que me funciona:

Dim Listado1 As New lSaldos
Dim Propiedad1 As CRAXDRT.ConnectionProperty
Dim Tablas1 As CRAXDRT.DatabaseTable
Set Tablas1 = Listado1.Database.Tables(1)
Set Propiedad1 = Tablas1.ConnectionProperties("Database Name")
Propiedad1.Value = App.path + "\" + Base
If cMonte = "" Then
Condiciones = ""
Else
Condiciones = "{Montes.Nombre}='" & cMonte & "'"
End If
Listado1.RecordSelectionFormula = Condiciones
Listar.VerListado.ReportSource = Listado1
Listar.VerListado.ViewReport
Listar.Show 1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar