Sending Data to Datareport

[bomayed]

How do I send the data from a recordset to a datareport field?





I have

Set datareport1.datasource = RS



now how do I say what to put in label1 in the datareport?

[brucevde]

Only controls with a DataField property can be bound to the recordset.

Before setting the DataSource property, set the DataField property to the name of a Field in the recordset.

[eranfox]

Hello bomayed,

Set rsReport = New ADODB.Recordset 'rs is the recordset object
    rsReport.ActiveConnection = myConnectionString
    strSelect = "SELECT bla,bla,bla " _
              & "FROM tblBla " _
              & "Where Bla = blablabla " 
    
    rsReport.Source = strSelect
    rsReport.Open
    
    Set drpt1.DataSource = rsReport
 
    drpt1.Sections("rptHeader").Controls("lblName").Caption = Trim(Adodc1.Recordset.Fields("pNAME"))
    drpt1t.Sections("rptHeader").Controls("lblAddress").Caption = some rs(field) here
    drpt1.Sections("rptHeader").Controls("lblCity").Caption = text1.text
    drpt1.Sections("rptHeader").Controls("lblZipCode").Caption = "01234"
 
    
    If rsReport.BOF = True And rsReport.EOF = True Then
        MsgBox "Data Not Found!!!", vbMsgBoxRight + vbMsgBoxRtlReading
        rsReport.Close
        Set rsReport = Nothing
        Exit Function
    End If
    
    If rsReport.Fields("bla").Value = 0 Then
        drpt1.Sections("Section5").Controls("Function4").Visible = False
        drpt1.Sections("Section5").Controls("Label12").Visible = False
        drpt1.Sections("Section5").Controls("Line9").Visible = False
    End If
 
    drpt1.Sections("rptHeader").Controls("lblHeadLine").Caption = "Head Line"
    drpt1.Sections("rptHeader").Controls("Label4").Caption = "something here..."
                                                               
    drpt1.Show (1)
        
    rsReport.Close
    Set rsReport = Nothing

Just An Example,
Best Regards,
ERAN

[Hack]

Moved to Reporting section.