Question

Private Sub showreport_Click()
    sql = "select * from student_record_database where"
    sql=sql+ Grade='" & Combo1.Text & "' AND Meal='" & Combo11.Text & "'"
    Set RES = CON.Execute(sql)
    Set DataReport1.DataSource = RES
    DataReport1.WindowState = vbMaximized
    DataReport1.Show vbModal
End Sub

I am using this code as record set to create a data report.

1. My task is to choose options from various combo boxes and then display it’s report so record set is needed there..

2. My question is that whether this code is sufficient to create data report???

3. I didn’t set any properties of data environment or data report such as (connection – command – sql) because I am passing this record set directly to data report,then no need to fire any sql in properties of data environment.

But unfortunately it is not showing desired output
Please help me.

Answer 1

Try this one:

Private sub cmdprint_click()

Dim rs as new adodb.recordset

rs.open "SQL Query Statement Here",CON, adOpenDynamic, adLockOptimistic

set datareport1.datasource=rs
datareport1.show

end sub

Notes:
The data report datasouce should be cleared during design mode. (See properties on the datareport and set its datasource property to empty.) Ohhh…one more thing, please keep in mind that you should set also the datafield property for each textbox object inside the datareport corresponding to the datafield on your database during design time…

I am using this method for a long time and it works fine.