Microsoft KB Archive/244779: Difference between revisions
From BetaArchive Wiki
(importing KB archive) |
m (Text replacement - ">" to ">") |
||
(One intermediate revision by the same user not shown) | |||
Line 60: | Line 60: | ||
<p>CommandType: adCommandText<br /> | <p>CommandType: adCommandText<br /> | ||
CommandText: Select * From Employees Where HireDate | CommandText: Select * From Employees Where HireDate < ?</p> | ||
</div> | </div> | ||
Line 94: | Line 94: | ||
Load DataEnvironment1 | Load DataEnvironment1 | ||
With DataEnvironment1 | With DataEnvironment1 | ||
If .rsCommand1.State | If .rsCommand1.State <> 0 Then .rsCommand1.Close | ||
.Command1 CDate(Text1.Text) | .Command1 CDate(Text1.Text) | ||
End With | End With |
Latest revision as of 09:43, 21 July 2020
Article ID: 244779
Article Last Modified on 7/1/2004
APPLIES TO
- Microsoft Visual Basic 6.0 Professional Edition
- Microsoft Visual Basic 6.0 Enterprise Edition
This article was previously published under Q244779
SUMMARY
This article demonstrates basing a DataReport on a parameterized DataEnvironment and refreshing the report when the parameter value changes.
MORE INFORMATION
- Open a new Standard EXE Project in Microsoft Visual Basic. Form1 is created by default.
- Add a DataEnvironment (DataEnvironment1) and a DataReport (DataReport1) to the project.
- Add a Connection (Connection1) to the DataEnvironment pointing to NWIND.MDB (or Northwind.MDB) through the Microsoft Jet 4.0 OLE DB Provider.
- 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) - In the DataReport, set the following properties:
DataSource: DataEnvironment1
DataMember: Command1 - Drag the following fields from the DataEnvironment into the Detail section of the DataReport:
EmployeeID
FirstName
LastName
HireDate 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
- Save the project and run it. Enter the following dates in the TextBox and click the CommandButton after each one:
1/1/95
1/1/94
1/1/93
1/1/92
Keywords: kbhowto kbdataenv kbdatabase kbdesigner kbreportwriter KB244779