Passing Multiple dbf tables to Crystal via odbc

[johnjrd]

I Am using Crystal 8.5 and VFP8

Am currently trying to pass a load of free tables into a Crystal Report. However am getting an ODBC error saying column does not exist. Yet when running the report in crystal the report runs fine.

I am using the following code to setup the free tables. However i am not sure if i am setting up the location to all the tables correctly, can anyone help.

Thanks

settings="DSN=VF Tables"+CHR(0)+;
"Description=on the fly VFP ODBC Driver"+CHR(0)+;
"SourceDB="+ALLTRIM(datalocation)+CHR(0)+;
"SourceType=DBF"


=SQLConfigDataSource(0,1,"Microsoft Visual FoxPro Driver",settings)

* get the references to databasetables
crxDatabase = crxReport.DATABASE
crxDatabaseTables = crxDatabase.TABLES

crxDatabaseTable = crxDatabaseTables.ITEM(1)
crxDatabaseTable1 = crxDatabaseTables.ITEM(2)
crxDatabaseTable2 = crxDatabaseTables.ITEM(3)
crxDatabaseTable3 = crxDatabaseTables.ITEM(4)
crxDatabaseTable4 = crxDatabaseTables.ITEM(5)
crxDatabaseTable5 = crxDatabaseTables.ITEM(6)
crxDatabaseTable6 = crxDatabaseTables.ITEM(7)
crxDatabaseTable7 = crxDatabaseTables.ITEM(8)
crxDatabaseTable8 = crxDatabaseTables.ITEM(9)
crxDatabaseTable9 = crxDatabaseTables.ITEM(10)

crxDatabaseTable.Location = alltrim(datalocation)+alltrim(tablename)+'.dbf'
crxDatabaseTable1.Location = alltrim(datalocation)+alltrim(tablename1)+'.dbf'
crxDatabaseTable2.Location = alltrim(datalocation)+alltrim(tablename2)+'.dbf'
crxDatabaseTable3.Location = alltrim(datalocation)+alltrim(tablename3)+'.dbf'
crxDatabaseTable4.Location = alltrim(datalocation)+alltrim(tablename4)+'.dbf'
crxDatabaseTable5.Location = alltrim(datalocation)+alltrim(tablename5)+'.dbf'
crxDatabaseTable6.Location = alltrim(datalocation)+alltrim(tablename6)+'.dbf'
crxDatabaseTable7.Location = alltrim(datalocation)+alltrim(tablename7)+'.dbf'
crxDatabaseTable8.Location = alltrim(datalocation)+alltrim(tablename8)+'.dbf'
crxDatabaseTable9.Location = alltrim(datalocation)+alltrim(tablename9)+'.dbf'


*crxDatabaseTables.setlogOninfo("VF Tables")
crxDatabaseTable.SetLogOnInfo("VF Tables")
crxDatabaseTable1.SetLogOnInfo("VF Tables")
crxDatabaseTable2.SetLogOnInfo("VF Tables")
crxDatabaseTable3.SetLogOnInfo("VF Tables")
crxDatabaseTable4.SetLogOnInfo("VF Tables")
crxDatabaseTable5.SetLogOnInfo("VF Tables")
crxDatabaseTable6.SetLogOnInfo("VF Tables")
crxDatabaseTable7.SetLogOnInfo("VF Tables")
crxDatabaseTable8.SetLogOnInfo("VF Tables")
crxDatabaseTable9.SetLogOnInfo("VF Tables")

* Call Viewer
THISFORM.ADDOBJECT("CRViewer1","olecontrol","CRViewer.CRViewer")