Dataenvironment SQL

[Asterix]

Hi all,

I realy need some help on this one.

What I did was imade a VB form I added an Dataenvironment1 and a Datareport1.
For the Command1 SQL from the datareport I've got :

SELECT Time, Status, Data
FROM Messages
WHERE (Data = 'Test')
ORDER BY Time


If I use from my VB form :

Private Sub Command1_Click()
DataReport1.Show
End Sub

It works fine but what I need is :

Private Sub Command1_Click()
dataenvironment1.connection1.command1.SQL = "SELECT Time, Status, Data FROM Messages WHERE (Data = Text1.text) ORDER BY Time
DataReport1.Show
End Sub

Text1.text is a textbox on the same form as the commandbutton.


Who can help me with this one

Thanx in advance

[Surgeon]

If DataEnvironment1.rsCommand1.State = adStateOpen Then DataEnvironment1.rsCommand1.Close
DataEnvironment1.Command1.CommandText = "SELECT Time, Status, Data " & _
                                        "FROM Messages " & _
                                        "WHERE (Data = """ & Text1.text & """) " & _
                                        "ORDER BY Time;"
DataEnvironment1.Command1
DataReport1.Show

Cheers,
Surgeon

[Asterix]

I've got an message (Compile error: Invalid qualifier) on command1


If DataEnvironment1.rsCommand1.State = adStateOpen Then DataEnvironment1.rsCommand1.Close
DataEnvironment1.Command1.CommandText = "SELECT Tijd, Status, Data " & _
"FROM Messages " & _
"WHERE (Data = """ & lstMeldingenHistory.Text & """) " & _
"ORDER BY Tijd;"
DataEnvironment1.Command1
DataReport1.Show


Command1

[Asterix]

DataEnvironment1.Commands.Item("Command1").CommandText = "SELECT Tijd, Status, Data " & _
"FROM Messages " & _
"WHERE (Data = """ & lstMeldingenHistory.Text & """) " & _
"ORDER BY Tijd;"