How to connect SQL SHAPED Child RecordSet to A VB6 Embeded Sub Report?

Question

Please Help me in connect SQL SHAPED Child RecordSet to A VB6 Embeded Sub Report.
Here is the Code I am currently Using in VB6 SP6.
I want to Connect to "Command1" Child Recordset with "item" Sub Report.Please Help Me.
Option Explicit
' The ADO connection to the local database.
Public oConn As ADODB.Connection
Public ocmd1 As ADODB.Command
Public ocmd2 As ADODB.Command
Public ocmd3 As ADODB.Command
Dim rs As ADODB.Recordset
Dim rs_sb1 As ADODB.Recordset
Dim rs_sb2 As ADODB.Recordset
Public invoice_report As New CrystalReport1
Public itemsub_report As Report
Public servicesub_report As Report
Public sConnectString As String
Public strSQL As String
Dim ADOrs As ADODB.Recordset
Private Sub Form_Load()
minvno = 3
'msubtype_id = 16
'Create ADO Connection object
Set oConn = New ADODB.Connection
sConnectString = "Provider = MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\stocks\business.mdb;" & "Persist Security Info=False;" & "User ID=Admin;" & "Jet OLEDB:Database Password=apple14;"
oConn.Open sConnectString
'Create ADO Command object
Set ocmd1 = New ADODB.Command
Set ocmd1.ActiveConnection = oConn
ocmd1.CommandText = " SHAPE {SELECT invoices_customer., contacts., invoice_subtypes.* FROM invoices_customer, contacts, invoice_subtypes WHERE invoices_customer.contact_id = contacts.contact_id AND invoices_customer.subtype_id = invoice_subtypes.subtype_id AND invoices_customer.inv_no = " & minvno & " AND invoices_customer.type = 'service'} AS invoice_customer APPEND ({SELECT * FROM `item_customer`} AS Command1 RELATE 'inv_no' TO 'inv_no','invoices_customer.subtype_id' TO 'subtype_id') AS Command1,({SELECT * FROM `service_customer`} AS Command2 RELATE 'inv_no' TO 'inv_no','invoices_customer.subtype_id' TO 'subtype_id') AS Command2"
ocmd1.CommandType = adCmdText
Set rs = New ADODB.Recordset ' Recordset for the main report
Set rs = ocmd1.Execute
Dim crs As ADODB.Recordset
Set crs = rs.Fields("Command1").Value
'Set crs = rs!command1.Value
Me.Caption = crs.RecordCount
' Add the datasource to the report
invoice_report.Database.AddADOCommand oConn, ocmd1
' Connect the recordset to the main report
invoice_report.DiscardSavedData
invoice_report.Database.SetDataSource rs, 3, 1
invoice_report.AutoSetUnboundFieldSource crBMTName
If rs.RecordCount > 0 Then
With invoice_report
.Field1.SetUnboundFieldSource ("{ADO.date}")
If rs("post") = "None" Then
.Field2.SetUnboundFieldSource ""
Else
.Field2.SetUnboundFieldSource ("{ADO.post}")
End If
.Field4.SetUnboundFieldSource ("{ADO.name}")
.Field5.SetUnboundFieldSource ("{ADO.address}")
.Field6.SetUnboundFieldSource ("{ADO.mpay}")
If rs("mpay") = "Cash" Then
.Text2.SetText ""
Else
If rs("mpay") = "Cheque" Then
.Text2.SetText "Cheq.Date"
.Field7.SetUnboundFieldSource ("{ADO.cheque}")
.Field8.SetUnboundFieldSource ("{ADO.bank}")
.Field9.SetUnboundFieldSource ("{ADO.cheque_date}")
Else
If rs("mpay") = "Credit Card" Then
.Text2.SetText "Exp.Date"
.Field7.SetUnboundFieldSource ("{ADO.ccard}")
.Field8.SetUnboundFieldSource ("{ADO.bank}")
.Field11.SetUnboundFieldSource ("{ADO.cctype}")
.Field9.SetUnboundFieldSource ("{ADO.exp_date}")
Else
End If
End If
End If
.Field10.SetUnboundFieldSource ("{ADO.vno}")
End With
Else
End If
invoice_report.Subreport1.OpenSubreport.Database.AddADOCommand oConn, ocmd1
'Set itemsub_report = invoice_report.Subreport1.OpenSubreport
Set itemsub_report = invoice_report.OpenSubreport("item")
' connect the other recordset to the sub-report
itemsub_report.DiscardSavedData
itemsub_report.Database.SetDataSource rs, 3, 1
itemsub_report.AutoSetUnboundFieldSource crBMTName
If rs.RecordCount > 0 Then
With itemsub_report
'.Text1.SetText "Invoice - " & rs("subtype")
.Text1.SetText "Invoice - " & itemsub_report.Database.Tables(1).Fields(41).Name
.Field2.SetUnboundFieldSource itemsub_report.Database.Tables(1).Fields(41).Name
' .Field1.SetUnboundFieldSource ("{ADO.Command1-qty}")
'.Field2.SetUnboundFieldSource ("{ADO.Command1-brand}")
.Field3.SetUnboundFieldSource ("{ADO.Command1-brand_id}")
.Field4.SetUnboundFieldSource ("{ADO.Command1-category}")
.Field5.SetUnboundFieldSource ("{ADO.Command1-price}")
.Field6.SetUnboundFieldSource ("{ADO.Command1-value}")
.Field7.SetUnboundFieldSource ("{ADO.job_no}")
End With
invoice_report.Field12.SetUnboundFieldSource ("{ADO.item_charge}")
Else
End If
invoice_report.Subreport2.OpenSubreport.Database.AddADOCommand oConn, ocmd1
Set servicesub_report = invoice_report.Subreport2.OpenSubreport
' connect the other recordset to the sub-report
servicesub_report.DiscardSavedData
servicesub_report.Database.SetDataSource rs, 3, 1
servicesub_report.AutoSetUnboundFieldSource crBMTName
If rs.RecordCount > 0 Then
With servicesub_report
.Text1.SetText "Service Charges"
.Field1.SetUnboundFieldSource ("{ADO.Command2-desc}")
.Field2.SetUnboundFieldSource ("{ADO.Command2-service_charge}")
.Field3.SetUnboundFieldSource ("{ADO.Command2-total_scharge}")
End With
invoice_report.Field12.SetUnboundFieldSource ("{ADO.item_charge}")
Else
End If
invoice_report.Text3.SetText "Total Bill Value ="
invoice_report.Field13.SetUnboundFieldSource ("{ADO.bill_value}")
CRViewer1.ReportSource = invoice_report
CRViewer1.ViewReport
End Sub

Answer 1

Hi lalantha,
It looks like you are using the RDC as your report engine. The RDC has been deprecated since version 9 meaning there has been no new funcitonalty added to it. There is no option in the RDC to set location to a Command object, it was added to RAS in Cr Xi R2 ( 11.5 ).
Only work around is to make a connection to the Database directly or using a disconnect record set, there may be other ways but it will require you to rebuild your report. We don't have the ability to map a report that used a COmmand object to another data source.
Thank you
Don