[RESOLVED] Error in datareport

[Akshaya]

Hi friends ,

I am getting following error in datareport using dataenvironment

"failed getting rowset(s) from current datasource" .Please help.

My code is

Private Sub cmdprint_Click()
Dim chq As String
        chq= "cheque"
Dim sr As String
        sr = "select *  from " & chq& " where cheque_no= '" & Text1.Text & "' "

   'DataEnvironment1.Connection1.Close
   DataEnvironment1.Connection1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\cheque.mdb"
   DataEnvironment1.Connection1.Open

   DataEnvironment1.Commands.Item(1).CommandType = adCmdText
    DataEnvironment1.Commands.Item(1).CommandText = "select *  from " & chq & " where cheque_no= " & Text1.Text & " "
    'DataEnvironment1.Command1 = Str(DataEnvironment1.Commands.Item(1).CommandText)

   Debug.Print DataEnvironment1.Commands.Item(1).CommandText
If DataEnvironment1.Connection1.State > 0 Then DataEnvironment1.Connection1.Close

    DataEnvironment1.Connection1.Open
   DataEnvironment1.Command1



Set DataReport1.DataSource = DataEnvironment1
Debug.Print DataReport1.DataMember
DataReport1.DataMember = sr


Debug.Print DataReport1.DataMember

DataReport1.LeftMargin = 1200
DataReport1.TopMargin = 1000
DataReport1.BottomMargin = 1000
DataReport1.Show

End Sub

[wes4dbt]

if "sr" is the name of the DE command then try this

datareport1.datamember = "sr"

[Akshaya]

I changed to ser.but still same error comes

[Hack]

What is ser?

[wes4dbt]

I don't understand what ser is either.
I also don't understand why your using a DE, you can use an ADO recordset. Just do this

dim rs as New ADODB.Recordset

rs.open "select *  from " & chq& " where cheque_no= '" & Text1.Text & "' ", yourconnection

Set Datareport1.datasource = rs
Datareport1.datamember = rs.Datamember
Datareport1.Show vbModal

[Akshaya]

Thanks a lot.It is working fine.