Re: postgresql 8 1x con crystal reports 7 pro.

Mas o menos es algo como esto:

Public CRPApplication As CRPEAuto.Application
Public WithEvents rpt As CRPEAuto.Report
Public subrpt As CRPEAuto.Report
Public rptView As CRPEAuto.View
Public WithEvents wnd1 As CRPEAuto.Window
Public rs As ADODB.Recordset

Public dbCrystal As CRPEAuto.Database
Public dbTables As CRPEAuto.DatabaseTables
Public dbTable As CRPEAuto.DatabaseTable

Set rpt = CRPApplication.OpenReport(App.Path & "\reporte.rpt" , crOpenReportByTempCopy)
rpt.SelectPrinter Printer.DriverName, Printer.DeviceName, Printer.Port

Set dbCrystal = rpt.Database
Set dbTables = dbCrystal.Tables

Set dbTable = dbTables.Item("ado")
dbTable.SetLogOnInfo "Provider=MSDASQL.1; DRIVER=PostgreSQL; UID=userdb; SERVER=127.0.0.1; DATABASE=gaso"


dbTable.SetPrivateData 3, rs

rpt.ReadRecords

rpt.EventInfo.ActivatePrintWindowEventEnabled = True
rpt.EventInfo.ClosePrintWindowEventEnabled = True
rpt.EventInfo.GroupEventEnabled = False
rpt.EventInfo.PrintWindowButtonEventEnabled = True
rpt.EventInfo.ReadingRecordEventEnabled = False
rpt.EventInfo.StartStopEventEnabled = False

rpt.ParameterPromptingEnabled = True
rpt.DiscardSavedData
rpt.PrintWindowOptions.HasProgressControls = True
rpt.PrintWindowOptions.HasPrintSetupButton = True
rpt.PrintWindowOptions.HasSearchButton = True
rpt.PageSetup.PaperOrientation = PaperOrientation
rpt.PageSetup.PaperSize = PaperSize

'rpt.FormulaFields("HideWhenPrint").Text = "True"

Set rptView = rpt.Preview
Set wnd1 = rptView.Parent

Aqui el chiste es en referencias de tu proyecto de VB poner la referencia a: Crystal Report Engine 7 Object Library.
La variable rs es un recordset de ADO, hay 1 linea comentada, asi es como se pasan valores a formulas de tu reporte, Set dbTable = dbTables.Item("ado") en esta instruccion la constante "ado" es el alias de la definicion de datos "tabla" que agregaste en tu reporte.

From: Carlos Armijo Severino
To: Julio Cesar Culebro Gonzalez
Sent: Friday, January 20, 2006 4:08 PM
Subject: Re: [pgsql-es-ayuda] postgresql 8 1x con crystal reports 7 pro.

Julio buenas tardes, me podrias enviar parte del código, nunca lo he hecho asi.
Te agradezco de antemano.

Saluda Atentamente,

Carlos Armijo Severino
Dpto. Informática
Fono : 032 - 327143
Celular : 09 416 12 79
----- Original Message -----
From: Julio Cesar Culebro Gonzalez
To: Marco Aurelio Sotelo Figueroa ; Mauricio Delgado ; Ayuda Postgres
Sent: Friday, January 20, 2006 6:32 PM
Subject: Re: [pgsql-es-ayuda] postgresql 8 1x con crystal reports 7 pro.

Yo uso las mismas veriones y nunca logre conectarlo, asi que lo que hice fue crear los reportes en Crystal usando la opcion de Active Data y use la opcion de Data Definition y desde VB le paso un recordset de ADO.

Espero estas pistas te sirvan.
Saludos.

----- Original Message -----
From: Marco Aurelio Sotelo Figueroa
To: Mauricio Delgado ; Ayuda Postgres
Sent: Friday, January 20, 2006 2:24 PM
Subject: Re: [pgsql-es-ayuda] postgresql 8 1x con crystal reports 7 pro.

>> Estoy haciendo un sistema con PostgreSQL 8.1.1 con aplicaciones en vb6

Supongo que estas utilizando el ODBC para conectarte con PostgreSQL, verdad?

>> Pero al querer usar el cristal reports 7 no puedo haberlo ya que en crystal
>> me pide la ubicación del PostgreSQL lo cual no entendí a que se refiere. La
>> plataforma que uso es winxp al igual que los cliente que usaran mi servidor
>> PostgreSQL les rogaría su ayuda y cualquier comentario

Lo que puedes hacer con Crystal Report es crear un DNS para PostgreSQL y utizarlo desde Crystal Report o ve si te Acepta cadena de conexion de ODBC (no estoy seguro si la versión 7 del Crystal lo soporte) y si es asi utiliza la cadena que utilizas en VB 6.

Saludos
The Skull Leader
La Capacidad, Responsabilidad, Etica y Profesionalismo no son comparables ni tienen relacion con la vestimenta y apariencia del ser humano, TODOS SOMO IGUALES.