I am having a problem with a program I am writing using a report created in
the Crystal Reports that comes with VB4.0 Pro.  After I install the program
on the target system and I try to call the report I get a,

Run Time Error 20534
Error Detected by Database DLL

After tracking it down I found that the problem was that the location of
the database file isnt in the same location from when I designed it on my
system.  I wrote code to determine the location of the database for my data
control ect. but how do I tell the report file where it is.  There didnt
seem to be a property for it.

I have the database in the same directory the report file and the program
EXE are located in.  Is there a setting in crystal reports to tell it to
look in the current dir?

Any suggestion would be appreciated.

Thanks in advance

Dan Finch

If you need more help, let me know.

Travis Pitts
Alegis Systems Group

by the way I knew a Dan Finch in college. You didn't attend Evangel College
in Springfield Mo. by any chance did you?

Paul Ross

Dan,
I use a global database variable in my application called 'gdbOLIS' and
assign the 'Name' property of 'gdbOLIS' to the 'DataFiles(0)' property
of the Crystal Report control 'crReport01'.  Since my reports may not
be in the same directory as the database, or even the application, I
also set the reports location using a variable at run time.  In the
following code snippet, my application uses an INI file to store the
database location, while it is understood that the reports are going to
reside in the Application directory.
The report path could have also been stored in the INI file for greater
flexibility.

  ' Set Crystal Report control database location
  crReport01.DataFiles(0) = gdbOLIS.Name                   ' global
database object

  ' Set CR report source directory
  msLocation = LCase(App.Path)                                  ' uses
the application path
  If Right$(msLocation, 1) <> "\" Then
    ' handles the root
    msLocation = msLocation & "\"
  End If

  ' Report path and name
  crReport01.ReportFileName = msLocation & "prem_dtl.rpt"           '
assign the report location

Hope I haven't confused you.  Good luck,

Larry Fee
Systems Division, Corporate and Strategic Programs
Ministry of Health, Victoria  BC  Canada
Phone: (250) 952-1413        Fax..: (250) 952-2308

  BTDT.  In my current project, I keep the report in the application
directory.  The user can put his/her database where-ever they wish, but the
reports, written by me, are packaged and shipped with the application.  As
such, I use App.Path to determine where they are.  The code is very rough
and not at all complete, but it works.  What is missing is error
checking...  oops...  hey, it's just a sample....

  If you are using the custom control, simply set the DatabaseName member
of the control, if you
are using the API, (note this, is version CRW 5.0) the following code may
point you in the right direction.

Private Sub cmdView_Click()
Dim strPathName As String
Dim hJob As Integer
Dim iResult As Integer
Dim SessionInfo As PESessionInfo
Dim TitleHandle As Long, TitleLength As Integer, ReportTitle As String
Dim tableLocation As PETableLocation
Dim paramInfo As PEParameterFieldInfo
Dim paramCount As Integer
Dim iCurParam As Integer
Dim strIncluded As String
    '''' Much has been removed from this sample in order to make it
readable.....
    If (Right$(App.Path, 1) <> "\") Then
        strPathName = LCase(App.Path) + "\"  'handles the root
    Else
        strPathName = LCase(App.Path)
    End If
    hJob = PEOpenPrintJob(strPathName & "Calendar.rpt")
    tableLocation.StructSize = PE_SIZEOF_TABLE_LOCATION
    iResult = PEGetNthTableLocation(hJob, 0, tableLocation)
    tableLocation.Location = DBName & Chr$(0)
    iResult = PESetNthTableLocation(hJob, 0, tableLocation)
    ''' Snip '''
    iResult = PEOutputToWindow(hJob, "Calendar Report", 50, 50, _
                Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, _
                0, frmSRSMDI.hMainWnd)
    iResult = PEStartPrintJob(hJob, True)
    PEClosePrintJob hJob
End Sub

1) From FILE-REPORT options, make sure under the convert report option
that you have MS DAO listed.  If it says MS JET, just select MS DAO and
make sure the checkbox is 'checked'.  (MS JET is used with VB 3.  Although
you can use this in VB 4, setup lizard usually fails to include the
appropriate DLL's for this.)

2) Goto DATABASE-SET LOCATION and select the 'Same as report' button.
3) Enable DATABASE-VERIFY ON EVERY PRINT
4) Goto REPORT-REFRESH REPORT DATA
5) Save your work.

Try this and see if it works.

John

Report1.ReportFileName = App.Path & "\rptname.rpt"
Report1.DataFiles(0) = vFile    'vFile is a variable containing the
                                'fully qualified path/filename of the
                                'data file

You have to repeat the 2nd line above (DataFiles(1), etc., for every
table from the datafile you use in the report. That should take
care of it...

Hope it helps.

        Dave Allen
        Space Science & Engr. Ctr.
        UW-Madison

 epo

John

I am having the same problems as Dan Finch.  Same exact setup.

I tried your suggestions, but still no go.  I also tried opening up the
report in CR and then doing a "Database ... Set Location ... Same As
Report", and that didn't help either.

Any other suggestions?

Thanks in advance.

Matt