Alan Israel
unread,Oct 8, 2011, 4:07:01 PM10/8/11Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to Comunidad de Visual Foxpro en Español
Hola, antes que nada espero que tengan un buen día y la razón de que
te escribo es que en estos momentos tengo un problema para intentar
hacer que me funcione VFP con Crystal Reports (Crystal lo utilizo
desde Visual Studio 2008), lo que hice fue crear un reporte en Visual
Studio 2008 y unicamente agregar un campo de una tabla (solo para ver
que se hiciera la conexion), esto lo hice de la siguiente forma:
En la parte superior derecha de VS2008 en: Campos de la Base de
datos\Asistente de base de datos\crear conexion nueva\OLE DB(ADO)\
Y en la opcion Proveedor, le indico: Microsoft OLE DB Provider for
Visual FoxPro
En origen: La ruta en que se encuntra mi tabla libre
Y aceptar, luego siguiente,siguente y finalizar
Con esto ya me aparecen los campos de la tabla y solo agrego al
reporte un campo ejemplo: Nombre y listo lo guardo, ahora con visual
foxpro tengo estas instrucciones desde un prg:
CD ? &&DEBE DE INDICAR EN DONDE SE ENCUENTRA EL REPORTE Y LA TABLA
DESDE LA QUE QUIERO HACERDER A LOS DATOS
CLOSE ALL
USE Tabla_1 IN 0 &&USANDO LA TABLA DE EJEMPLO
loCR= CREATEOBJECT( "CrystalRuntime.Application")
&&Creando el directorio en el que se guardara la tabla temporar que
contendra los datos
lcTabla= ADDBS( GETENV("TEMP"))+ SYS(3)+ ".DBF"
loCR= CREATEOBJECT("CrystalRuntime.Application")
loRpt= loCR.OpenReport("CrystalReport1.RPT")
IF loRpt.HasSavedData
loRpt.DiscardSavedData()
ENDIF
lcTabla= ADDBS( GETENV("TEMP"))+ SYS(3)+ ".DBF"
SELECT * from Tabla_1;
INTO CURSOR cCursor &&CREANDO EL CURSOR
SELECT cCursor
COPY TO ( lcTabla ) TYPE FOX2X AS 850 &&Para q los caracteres con
acentos se vean correctamente en el reporte
** Cambia la ubicación de la tabla en el reporte.
loRpt.Database.Tables( 1).Location= lcTabla
** Imprime el reporte con los datos de la nueva ubicación.
loRpt.PrintOut() &&Y SE SUPONE QUE ME LO DEBERIA DE IMPRIMIR AQUI PERO
ME MARCA ERROR
El error que me marca es el siguiente:
OLE IDispatch exception code 0 from Crystal Reports ActiveX
Designer:Logon Failed
Details: ADO Error Code: 0x800300fb
Source: Microsoft OLE DB Service Components
No se que es lo que estoy haciendo mal, ojala me puedan compartir de
tu tiempo y ayudarme en este problema que tengo, se los agradeceria
mucho porque la verdad me agradaria mucho trabajar con Crystal Report
y asi ya no usar Report Designer de FoxPro.
Gracias