Programación General > Visual Basic 6.0 e inferiores

 Problema con visual basic enviando informacion a un reporte

(1/1)

BlackForest:
Hola, antes que nada queria saludarlos a todos ya que es mi primer post. Y porque no arrancar mi primer post preguntando si alguien sabe o les paso lo que les voy a contar a continuacion:

estoy haciendo un programa para mi trabajo donde tengo sacar una impresion de unos contactos.

El codigo para mandar los contactos al reporte del crystal es el siguiente:


--- Código: Visual Basic ---Private Sub Form_Load() Dim cadena As StringDim crystal As New CRAXDRT.ApplicationDim reporte As New CRAXDDRT.ReportDim cnn  As ADODB.ConnectionDim rst As ADODB.Recordset Set crystal = New CRAXDRT.ApplicationSet reporte = New CRAXDDRT.ReportSet cnn = New ADODB.ConnectionSet rst = New ADODB.Recordset cnn.Provider = "MSDASQL" cnn.ConnectionString = "Driver={SQL Server};Server=DANIELPCKELINE;Database=Keline;Uid =sa;Pwd=samka" cadena = " select * from Clientes order by Codigo" rst.Open cadena, cnn, adOpenDynamic, adLockReadOnly Set reporte = crystal.OpenReport(App.Path & "Ejemplo2.rpt") reporte.DiscardSavedDatareporte.Database.SetDataSource rstMe.crViewer.ReportSource = reporteMe.crViewer.ViewReport rst.Closecnn.Close End sub   
el problema es el siguiente si yo ejecuto el programa paso a paso osea con la tecla f8 no tengo ningun tipo de problema, pero si lo ejecuto normalmente me pasan 2 cosas.

1º Me sale el error:

Crystal reports Viewer
Details: Error Code: 0x800a0e78
Source: AdoDB.Recorset
Description: La operacion no esta permitida si el objeta esta cerrado

2º Cuando cierro el formulario donde esta el viewer y apreto la tecla stop de visual. El mismo e me queda colgado y enseguida me pone que el programa no responde.


Espero que me puedan ayudar... y dede ya muchas gracias a todos!!

Navegación

[0] Índice de Mensajes