"unable to open database DLL"

[Sometimes76]

Hi everyone!

I'm getting this error message whenever I try to open a Crystal Report from within my VB6 application! Can anyone help me figure out why this is happening??

Thanks in advance,
Luís Costa

 

[lovell811]

what's the code look like?
----------------
Joe

 

[Sometimes76]

The code I use to call the report is the following:

MDIForm1.CRRELATORIOS.ReportFileName = App.Path & "\RepListAnexoBal.rpt"
MDIForm1.CRRELATORIOS.SelectionFormula = "{ListAnexoBal.empresa_id}=" & wempresa
MDIForm1.CRRELATORIOS.SortFields(1) = "+{ListAnexoBal.exercicios_id}"
MDIForm1.CRRELATORIOS.SortFields(2) = "+{ListAnexoBal.anexo_id}"
MDIForm1.CRRELATORIOS.DiscardSavedData = True
MDIForm1.WindowState = crptMaximized
MDIForm1.CRRELATORIOS.Action = 1
MDIForm1.CRRELATORIOS.SelectionFormula = "{ListAnexoBal.empresa_id}" = ""
MDIForm1.CRRELATORIOS.SortFields(0) = ""

I get the error on the .action line!

 

[lovell811]

You need to add the crystal reports component and then try something like this:

DBSelForm = ""
DoEvents
CR1.WindowTitle = "CR Sel Form Test"
CR1.Connect = mcnn
CR1.DataFiles(0) = "\\Green-1\OESystem\WorkingOE\SalesInvent.mdb"
CR1.ReportFileName = "\\Green-1\OESystem\WorkingOE\PurOrder.rpt"
CR1.ReplaceSelectionFormula (DBSelForm)
CR1.RetrieveDataFiles
DoEvents
CR1.action = 1
DoEvents ----------------
Joe