It appears you have not yet registered with DEVPPL. To register please click here... (it's fast, easy and free!)

Forum

Log In Sponsors
Board index Programming Visual Basic Forum

How to connect Crystal Report 8.5 to VB 6

Moderator: dafunkymunky

How to connect Crystal Report 8.5 to VB 6

Postby silentd on Fri Apr 04, 2008 8:50 am

Hi everyone, Im really new at VB and Crystal Report and i know nothing about
Crystal Report 8.5. My problem is, i have this application called CustomerM
anagement that will keep data in Microsoft Access called 'dbCustomer'
In the form customer ('frmCustomer') i've created a command button 'cmdView'
so that the user may view the data in Crystal Report.
My problem is, i've created the link from the form to the CrystalReport1 but
this error appear when i click the button 'View' (cmdView) on my frmCustome
r:
"This group section cannot be printed becase its condition field is nonexist
ent or invalid. Format the section to choose another condition field."

Please help me!!!Thank you in advance!!

****************************************
************************************
on the customer form ("frmCustomer"):


Code: Select all
Private Sub cmdView_Click()
Call GenerateCrystalReport
End Sub


****************************************
************************************
on module 1: (I put this on global)

Code: Select all
Public Function GenerateCrystalReport() As Long

Dim recReport As ADODB.Recordset
Dim strSQL As String

''Call connect
Set recReport = New ADODB.Recordset
strSQL = "select * from TableCustomer order by TransactionID, TranDateTime"
recReport.Open strSQL, DBconnection, adOpenDynamic, adLockOptimistic, adCmdT
ext
Set m_crReport = New CrystalReport1

m_crReport.Database.Tables(1).SetDataSource recReport

frmViewReport.Show

GenerateCrystalReport = 1

End Function

****************************************
************************************
on the frmViewReport:

Code: Select all
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = m_crReport
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
[/code]
silentd
 
Posts: 0
Joined: Fri Apr 04, 2008 8:46 am

Who is online

Users browsing this forum: No registered users and 1 guest

cron