Tried to install a vb6 using cr9 on a 64 bit OS and the program crashed whenever any report was selected. Program worked as it should when a report not selected.
Crystal Reports msms are used for the install. The key has been entered in the license msm.
The code used to call the .dsr isThe error msg is:HTML Code:Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Report As New crPayments Dim sSql As String Screen.MousePointer = vbHourglass If cn.State = adStateOpen Then cn.Close cn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security" & _ " Info=False;Data Source=" & App.Path & "\" & DataBaseName cn.Open sSql = "SELECT LastName & ', ' & Firstname AS Name, Attending.NumAttend," & _ " Attending.MealAmount, Attending.MomentosNumber, Attending.MomentosAmount, Attending.CDAmount, " & _ " Attending.CDqty, Eventname, EventAmount, EventNum," & _ " [MealAmount]+[MomentosAmount]+[EventAmount]+cdAmount AS Totals," & _ " Attending.Attending, Attending.Momento, Attending.ClassCD" & _ " FROM Members INNER JOIN Attending ON Members.ID = Attending.ID" & _ " WHERE Attending.NumAttend>0 OR Attending.MomentosNumber>0" & _ " OR EventNum>0 OR Attending.CDqty>0" & _ " ORDER BY Lastname, Firstname" If rs.State = adStateOpen Then rs.Close rs.Open sSql, cn, adOpenForwardOnly, adLockReadOnly crPayments.DiscardSavedData crPayments.Database.SetDataSource rs, 3 crPayments.ReadRecords With CRViewer1 .Refresh .ReportSource = Report .ViewReport .Zoom (100) .EnableExportButton = True .DisplayTabs = False .EnableGroupTree = False .EnableCloseButton = False End With Screen.MousePointer = vbDefault End Sub
Logon Failed.
Details: ADO Error Code: 0x80004005
Source: Microsoft JET Database Engine
Description: 'C\Program Files{dir}{db}' is not a valid path. Maker sure . . .
SQL Stat: 3044
Native Error: -534774783 Database Vendor Code: -534774783
The error msg is the same irrespective of the path.
Any ideas would be great.
Thank you.




Reply With Quote