Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

CR7 RDC in VB6 works in Win98 fails in NT4-SP5

Status
Not open for further replies.

HMorris

Programmer
Oct 3, 2002
1
US
I have four reports which are embedded in a VB6 application developed on Win98 machine. These reports work like a charm when the package is distributed to another Win98 machine. However our company is also running NT4 sp5. When users attempt to run these reports after installing the package on a Win NT4 machine one of the following errors occur.

Record(s) cannot be read; no permission on 'file_One'.
Error detected by database DLL.

Not all objects are granted sufficent rights to be accessed. (happens first time through)
Error opening file. File could not be oened" 'file_two', at file location: "file_two"
Error detected by database DLL.

Error opening file. File could not be oened" 'file_two', at file location: "file_two"
Open database session failed.

I have tried installing the package on users machine as an administrator w/o effect.

The receiving NT4-sp5 machine does not have CR or Access installed. MDAC 2.5 sp2 is installed.

The system uses ADO to connect to two Access97 databases which are secured. I have no problem 'connecting' to the databases and the underlining tables within the application. The reports are using DAO (pdbdao.dll) to connect to the databases.

Code used to generate the reports follows.

Dim Report As New CrystalReport2

Option Explicit

Private Sub Form_Load()
'
Dim x As Integer
Report.Database.Tables.item(1).SetSessionInfo "Application", "password"
For x = 1 To Report.Database.Tables.count
Report.Database.Tables.item(x).location = gBidPath
Next x
'
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top