By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,896 Members | 1,668 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,896 IT Pros & Developers. It's quick & easy.

DataReport on a parameterized DataEnvironment

P: 10
I got this sample project from a website. But there is some syntax error in the statement which contains the CDate function. I can't detect the error? Can enybody help me?

This article demonstrates basing a DataReport on a parameterized DataEnvironment and refreshing the report when the parameter value changes.
Open a new Standard EXE Project in Microsoft Visual Basic. Form1 is created by default.
2. Add a DataEnvironment (DataEnvironment1) and a DataReport (DataReport1) to the project.
3. Add a Connection (Connection1) to the DataEnvironment pointing to NWIND.MDB (or Northwind.MDB) through the Microsoft Jet 4.0 OLE DB Provider.
4. Add a Command (Command1) to Connection1, with the following properties:
CommandType: adCommandText
CommandText: Select * From Employees Where HireDate < ?
In the Parameters tab:
Name: pDate
Direction: Input
Data Type: adDBTimeStamp
Host Data Type: Date (VT_DATE)
5. In the DataReport, set the following properties:
DataSource: DataEnvironment1
DataMember: Command1
6. Drag the following fields from the DataEnvironment into the Detail section of the DataReport:
7. Add a TextBox (Text1) and a CommandButton (Command1) to the form. Add the following code:
Option Explicit Private Sub Command1_Click() Load DataEnvironment1 With DataEnvironment1 If .rsCommand1.State <> 0 Then .rsCommand1.Close .Command1 CDate(Text1.Text) End With DataReport1.Refresh If DataReport1.Visible = False Then DataReport1.Show End Sub
8. Save the project and run it. Enter the following dates in the TextBox and click the CommandButton after each one:
You can see the report refresh showing only those employees hired prior to the date entered.
Sep 18 '08 #1
Share this Question
Share on Google+
1 Reply

P: 236
I don't find any error in the code. May be you tyoed code wrongly. Use the code as below:
Expand|Select|Wrap|Line Numbers
  1. Option Explicit
  3. Private Sub Command1_Click()
  4.     Load DataEnvironment1
  5.     With DataEnvironment1
  6.         If .rsCommand1.State <> 0 Then .rsCommand1.Close
  7.         .Command1 CDate(Text1.Text)
  8.     End With
  9.     DataReport1.Refresh
  10.     If DataReport1.Visible = False Then DataReport1.Show
  11. End Sub
Oct 10 '09 #2

Post your reply

Sign in to post your reply or Sign up for a free account.