Karam | Blog » VB6

Leer archivo de Excel con VB6 y ADODB

Karam — Wed, 24 Feb 2010 18:11:28 +0000

Código:

Dim c_ As ADODB.Connection
Dim r_ As ADODB.Recordset
Set c_ = New ADODB.Connection
With c_
           .Provider = "Microsoft.Jet.OLEDB.4.0"
           .ConnectionString = "Data Source=C:/base.xls;" & _
           "Extended Properties=Excel 8.0;"
           .CursorLocation = adUseClient
           .Open
End With
Set r_ = New ADODB.Recordset r_.CursorLocation = adUseClient
  sql = "select * from [Hoja1$] WHERE [Hoja1$].COD = 'GPO2' and [Hoja1$].MES = 2 order by [Hoja1$].IMPORTE DESC"
r_.Open sql, c_, adOpenDynamic, adLockOptimistic
If r_.RecordCount > 0 Then
     'Mostramos las columnas del primer regisro del RecordSet
     MsgBox r_(0).Value & Chr(13) & r_(1).Value & Chr(13) & r_(2).Value & Chr(13) & r_(3).Value & Chr(13) & r_(6).Value
End If

Export.FormatType = Valores CrystalReports 9.2

Karam — Tue, 13 Oct 2009 21:38:15 +0000

Valores que puede tomar Export.FormatType para exportar reportes de CrytalReports 9.2

Export.FormatType = 1 ' Crystal Report
Export.FormatType = 2  ' Data Interchange
Export.FormatType = 3  ' Record Style
Export.FormatType = 5  ' Comma seperated values
Export.FormatType = 6  ' Tab seperated values
Export.FormatType = 7  '; Character seperated values
Export.FormatType = 8  ' Text
Export.FormatType = 9  ' Tab seperated text
Export.FormatType = 10  ' Paginated Text
Export.FormatType = 11  ' Lotus 123WKS
Export.FormatType = 12  ' Lotus 123WK1
Export.FormatType = 13  ' Lotus 123WK3
Export.FormatType = 14  ' Word for Windows
Export.FormatType = 21  ' Excel 5.0
Export.FormatType = 22  ' Excel 5.0 tabular
Export.FormatType = 23  ' ODBC
Export.FormatType = 24  ' HTML32 standard
Export.FormatType = 25  ' Explorer32 Extend
Export.FormatType = 27  ' Excel 7.0
Export.FormatType = 28  ' Excel 7.0 tabular
Export.FormatType = 29  ' Excel 8.0
Export.FormatType = 30  ' Excel 8.0 tabluar
Export.FormatType = 31  ' Portable Document format (PDF)
Export.FormatType = 32  ' HTML40
Export.FormatType = 33  ' Crystal Report 7.0
Export.FormatType = 34  ' Report definition
Export.FormatType = 35  ' Exact Rich Text
Export.FormatType = 36  ' XML

Asignar Parámetro null CR9 y vb6

Karam — Fri, 12 Jun 2009 16:14:59 +0000

Esto sí que me costó trabajo encontrarlo …
¿Cómo pasar el valor null a un parámetro de un reporte en crystal reports asociado a un StoredProcedure en Visual Basic 6?

Aquí les compartdo el dato:

        Report.ParameterFields(0).AddCurrentValue   Empty
        Report.ParameterFields(0).EnableNullValue = True

Saludos y espero que les sea Útil.

Crystal Reports9 y vb6 no muestran Gráficas

Karam — Sun, 04 Jan 2009 04:13:13 +0000

Recientemente tuve la necesidad de empaquetar un proyecto en vb6 con Crytal Reports 9 en el cual varios .RPT tenían en su cuerpo Gráficas y tablas. Como siempre sucede en el ambiente de Desarollo todo funcionaba correctamente, pero al instalarlo en otro equipo con el paquete de instalación me encontré con el pequeño detalle de que “No mostraba las gráficas”

Después de buscar en la red (Varios, varios días) curiosamente encontre varias personas que tenían el

mismo problema y por ahi encontre en un foro una “posible” solución de tantas que ya habia encontrado las cuales no me habran funcionado.

La clave: Existe un .DLL de nombre sscsdk80.dll que es el que se encarga del manejo de las gráficas en CrystalReports9 el cual al empaquetarlo el empaquetador de visual basic le asigna como destino de instalación el path. $(CommonFiles)\Crystal Decisions2.0bin , el cual hay que cambiarlo por $(WinSysPath)

Con este simple cambio en los equipos donde instales podrás ver sin problemas las gráficas de tus reportes.