Problemas con crystal report
Hola, tengo un problema, lo que pasa es que en mi programa hago uso de un control crystal report, pero cuando ejecuto y lo cierro, después me doy cuenta que en mi pc en c:\. Aparecec un archivos basura, .tmp (temporales) que me imagino que se generan cuando ejecuto mi programa, ¿al parecer no me afectan en nada pero porque pasa eso?
Aquí esta mi código:
Dim cmd As New ADODB.Command
Dim mireporte As New CrystalReport1
Public cnn As Connection
Set cnn = New Connection
cnn.Open ("PROVIDER = MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & "c:\04-05.mdb")
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select * from materias1ro"
End With
'Screen.MousePointer = vbHourglass
With mireporte
.Database.AddADOCommand cnn, cmd
.Texto1.SetText "BOLETA DE CALIFICACIONES PRIMARIA"
.Texto3.SetText Label4.Caption
End With
Form9.CRViewer1.ReportSource = mireporte
'Form2.CRViewer1.ViewReport
'Screen.MousePointer = vbDefault
Set cmd = Nothing
'mireporte.Export
Form9.Show 1, Form8
Aquí esta mi código:
Dim cmd As New ADODB.Command
Dim mireporte As New CrystalReport1
Public cnn As Connection
Set cnn = New Connection
cnn.Open ("PROVIDER = MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & "c:\04-05.mdb")
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select * from materias1ro"
End With
'Screen.MousePointer = vbHourglass
With mireporte
.Database.AddADOCommand cnn, cmd
.Texto1.SetText "BOLETA DE CALIFICACIONES PRIMARIA"
.Texto3.SetText Label4.Caption
End With
Form9.CRViewer1.ReportSource = mireporte
'Form2.CRViewer1.ViewReport
'Screen.MousePointer = vbDefault
Set cmd = Nothing
'mireporte.Export
Form9.Show 1, Form8
1 Respuesta
Respuesta de jarpsoft
1