Crystal reports and ADO

[koma]

I have data in an ADO-recordset in VB6 EE. I want to create a report with data from that recordset using Crystal Reports shipped with VB6 EE (version 4.6).
I can't get it right! Does Crystal Reports only support DAO?

Can I perhaps create a report file with Crystal Reports 4.6 and then use the run time library for Crystal Reports 8 that were shipped with VB?

What can I do?

[fkauffman]

Crystal Reports version 8 will work with ADO.

(Later on in our project we will use it, so I have already checked the possibility, we will start programming the reports in a few weeks, so this is all I know about CR & VB at this moment, sorry)

good luck,

Fedor

[MaBen]

I'm using Crystal Report 6.0 with ADO 2.5 and it's working perfectly.

I'm using the Crystal Report Designer, witch is call by the project menu in VB. In CR Designer you can set up the database connection and the SQL statement. And in VB you can force your report to use your RecordSet like this:

Form module declaration

Public myReport As New dsrmyReport

dsrmyReport is my report created by CR Designer


Sub that preview my report with my RecordSet

  Dim NewPreview As New frmPreview
    
  Dim cnnDossier As ADODB.Connection
  Dim cmdDossier As ADODB.Command
  Dim rsHeuresB As ADODB.Recordset

  On Error GoTo ErrorHandler
  
    Set cnnDossier = New ADODB.Connection
    
    With cnnDossier
      .CursorLocation = adUseClient
      .Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Dossiers;Data Source=Serveur"
    End With
    
    Set cmdDossier = New ADODB.Command
    Set rsHeuresB = New ADODB.Recordset
    
    ' Using stored procedure with parameter on SQL server 7.0
    With cmdDossier
      Set .ActiveConnection = cnnDossier
      .CommandText = "sproc_compHeuresB_Semaine_User"
      .CommandType = adCmdStoredProc
      .Parameters("@Semaine") = nMySemaine
      .Parameters("@Annee") = nMyAnnee
    End With
    
    'Création du Recordset
    rsHeuresB.Open cmdDossier, , adOpenDynamic, adLockReadOnly
    
    
    With myReport 
      .Database.SetDataSource rsHeuresB
      .Database.Verify
    
      NewPreview.CRViewer1.ReportSource = myReport 
    End With
    
    NewPreview.CRViewer1.ViewReport
    NewPreview.Show
  
      
    rsHeuresB.Close
    cnnDossier.Close
    
    
    Set rsHeuresB = Nothing
    Set cmdDossier = Nothing
    Set cnnDossier = Nothing
    
  End If
  
  On Error GoTo 0
  
  
  Exit Sub
ErrorHandler:
    Select Case Err.Number
       ...

Have fun...

[rathi]

Originally posted by MaBen
I'm using Crystal Report 6.0 with ADO 2.5 and it's working perfectly.

I'm using the Crystal Report Designer, witch is call by the project menu in VB. In CR Designer you can set up the database connection and the SQL statement. And in VB you can force your report to use your RecordSet like this:

Form module declaration

Public myReport As New dsrmyReport

dsrmyReport is my report created by CR Designer


Sub that preview my report with my RecordSet

  Dim NewPreview As New frmPreview
    
  Dim cnnDossier As ADODB.Connection
  Dim cmdDossier As ADODB.Command
  Dim rsHeuresB As ADODB.Recordset

  On Error GoTo ErrorHandler
  
    Set cnnDossier = New ADODB.Connection
    
    With cnnDossier
      .CursorLocation = adUseClient
      .Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Dossiers;Data Source=Serveur"
    End With
    
    Set cmdDossier = New ADODB.Command
    Set rsHeuresB = New ADODB.Recordset
    
    ' Using stored procedure with parameter on SQL server 7.0
    With cmdDossier
      Set .ActiveConnection = cnnDossier
      .CommandText = "sproc_compHeuresB_Semaine_User"
      .CommandType = adCmdStoredProc
      .Parameters("@Semaine") = nMySemaine
      .Parameters("@Annee") = nMyAnnee
    End With
    
    'Création du Recordset
    rsHeuresB.Open cmdDossier, , adOpenDynamic, adLockReadOnly
    
    
    With myReport 
      .Database.SetDataSource rsHeuresB
      .Database.Verify
    
      NewPreview.CRViewer1.ReportSource = myReport 
    End With
    
    NewPreview.CRViewer1.ViewReport
    NewPreview.Show
  
      
    rsHeuresB.Close
    cnnDossier.Close
    
    
    Set rsHeuresB = Nothing
    Set cmdDossier = Nothing
    Set cnnDossier = Nothing
    
  End If
  
  On Error GoTo 0
  
  
  Exit Sub
ErrorHandler:
    Select Case Err.Number
       ...

Have fun...

Hi,

Thanks for posting the above code.

To use this statement,

Public MyReport as New dsrMyreport,

What are the refereneces and components, I have to add to my
report? I use SCR 8.0 version and VB 6.0.

Thanks for your support.

sincerely,
Rathi