Crystal Reports Failed to load database information

PARAMETERS tcReportName, tcOpt, tcDataPath, tcCursor
 
tcCursor = IIF( EMPTY(tcCursor), 'curRep', tcCursor)
 
*** Assign the ReportName
 
lcReportPath = SYS(5) + ADDBS(SYS(2003) ) + 'Reports\'
lcReportName = lcReportPath + tcReportName
 
LOCAL crapplication, crreport
        
*** Create the Report using RDC
crapplication = CREATEOBJECT("CrystalRuntime.Application")
crreport = ("CrystalRuntime.Report")
 
lcAppDataPath = ADDBS(GETENV("APPDATA"))
 
 
lcXmlFile = 'Report' + SYS(3)
createXmlReportData(tcCursor, lcXmlFile)
 
IF EMPTY(tcDataPath)
	lcPath = "Local XML File=" + lcAppDataPath + 'Microbridge\' +lcXmlFile + '.xml;;' + ;
			 "Local Schema File=" + lcAppDataPath + 'Microbridge\' +lcXmlFile + '.xsd'
ELSE 
	lcPath = "Local XML File="+tcDataPath
ENDIF 
 
crreport = crapplication.OpenReport(lcReportName)
crreport.Database.Tables(1).ConnectBufferString = lcPath
 
*!*	IF crreport.HasSavedData()
*!*		crreport.DiscardSavedData()
*!*	ENDIF 
crreport.Database.Verify
 
* Create the Database object
oDB = crreport.Database()
 
* Get a references to the DatabaseTables collection
ocDBT = oDB.Tables()
 
 
 
* Get a reference to the DatabaseTable object for table 1
oDBT = ocDBT.Item(1)
 
*oDBT.SetDataSource('VFPData/currep')
 
 
 
 
 
IF tcOpt = 'Print'
 
	crreport.PrintOut()
 
ELSE 
	
 
	DO FORM crystalreportviewer WITH crreport
	crapplication 	= null
	crreport		= null
	
	LOCAL lcDefault 
	
	lcDefault = SYS(5) + SYS(2003)
	
	
	TRY 
		SET DEFAULT TO (lcAppDataPath + 'Microbridge')
		
		ADIR(aXmlFiles, 'Report*.x??')
		
		FOR lnFileCount = 1 TO ALEN(aXmlFiles,1)
		
			IF UPPER(JUSTFNAME(aXmlFiles( lnFileCount, 1))) <> UPPER(lcXmlFile)
				lcFiletoDelete = aXmlFiles( lnFileCount, 1)
				ERASE  (lcFiletoDelete) NO RECYCLE
			ENDIF 
			
		ENDFOR 
	CATCH TO oErr
	
		*MESSAGEBOX( oErr.Message, 16, GBL_AppName)
	
	FINALLY 
	
		SET DEFAULT TO (lcDefault)
	ENDTRY 
	
*!*		ERASE  (lcAppDataPath + 'Microbridge\Report.xml') NO RECYCLE
*!*		ERASE  (lcAppDataPath + 'Microbridge\Report.xsd') NO RECYCLE
	
ENDIF

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95: