DataReport is givin error

[switroz]

Below is my codes :

Private Sub btnRpt1_Click()
Dim strBC, strDBI, strDBN, strJouFrm, strJouTo, strSQL, strTransDate, recCou As String
strIndex = cmbDBR.ListIndex + 1
strDBI = Check_DB(strIndex, "ID")
strDBN = Check_DB(strIndex, "NM")
strBC = txtBCR.Text
strJouFrm = txtJouFrmR.Text
strJouTo = txtJouToR.Text
strTransDate = strPayDate2
If txtBCR.Text = "" Or txtJouFrmR.Text = "" Or txtJouToR.Text = "" Then
MsgBox "Please Key In All The Field !", vbOKOnly, "Validation"
Else
Screen.MousePointer = 11

On Error Resume Next

Dim de As New dtenvRpt
Dim QryDef As New ADODB.Recordset

strSQL = "SELECT * from table_name "

Call OpenConnection 'opens a DB connection
QryDef.Open strSQL, conn
recCou = QryDef.RecordCount

Set de = New dtenvRpt
Set rptSum.DataSource = de

If recCou = 0 Then
MsgBox "No Data. Please check your inputs.", vbOKOnly, "REPORTS"
Exit Sub
Else
With rptSum.Sections("pageheader")
.Controls("lblPayDateVal").Caption = strTransDate
End With

rptSum.Show

Err = 0
Set de = Nothing
Unload dtenvRpt
End If

CloseConnection 'closes a connection
End If
End Sub

I am tryinto open a data report in VB6 using this code. strTransDate is a date that I am passing from user input. I haven't pass any query result into the report yet. I want to test my report wether it opens but I'm getting error after the report opens. Which is Failed getting Rowset(s) from current data source.

Please guide. Thank you.

[DataMiser]

do you have a table in your database named table_name ? If not then this is your problem

strSQL = "SELECT * from table_name "

table_name must be the actual name of the table you want to select data from.


use [code][/code] tags when posting code


This also looks like it could be a problem

Set de = New dtenvRpt
Set rptSum.DataSource = de

[WoF]

Well spotted, DataMiser.

I'd draw your attention also to this line:

Dim strBC, strDBI, strDBN, strJouFrm, strJouTo, strSQL, strTransDate, recCou As String

This is an often seen mistake when declaring variables. Only the last one recCou is becoming a string. All the others become Variants.
To declare a variable properly the data type has to be defined for each variable explicitly.

Dim strBC as String, strDBN as String....

If no data type is given, it defaults to Variant.
I thought I'd point that out, although this might in your case here not be responsible for the error.