Data Environment & data report help please

[gillian3114]

i need to view salary payslip (data report) based on that particular month and year.

in Data Environment sql :

SELECT[emp_id], [emp_name], [emp_position], [emp_bs], [month_paid], [year_paid], [total_addition], [gross_pay], [total_deduction], [total_pay] FROM salary WHERE month_paid = ? and year_paid = ?

parameter is monthler

parameter is yearler


in vb code:



Dim intMonth As Integer
Dim intYear As Integer

' is a combo box that select month

If cboMonth.ListIndex = 0 Then
intMonth = 1
ElseIf cboMonth.ListIndex = 1 Then
intMonth = 2
ElseIf cboMonth.ListIndex = 2 Then
intMonth = 3
ElseIf cboMonth.ListIndex = 3 Then
intMonth = 4
ElseIf cboMonth.ListIndex = 4 Then
intMonth = 5
ElseIf cboMonth.ListIndex = 5 Then
intMonth = 6
ElseIf cboMonth.ListIndex = 6 Then
intMonth = 7
ElseIf cboMonth.ListIndex = 7 Then
intMonth = 8
ElseIf cboMonth.ListIndex = 8 Then
intMonth = 9
ElseIf cboMonth.ListIndex = 9 Then
intMonth = 10
ElseIf cboMonth.ListIndex = 10 Then
intMonth = 11
ElseIf cboMonth.ListIndex = 11 Then
intMonth = 12
End If

is a combo box that select year

If cboYear.ListIndex = 0 Then
intYear = 2007
ElseIf cboYear.ListIndex = 1 Then
intYear = 2008
ElseIf cboYear.ListIndex = 2 Then
intYear = 2009
ElseIf cboYear.ListIndex = 3 Then
intYear = 2010
ElseIf cboYear.ListIndex = 4 Then
intYear = 2011
End If



' how should i pass a value to a Data Environment sql query ?
or got other way to do ?
' i need view that month and year that i have selected.
'P_Payslip.Show

[amrita]

use command object parameter collection

DataEnvironment1.Command1 (intMonth , intyear)
P_Payslip.Show

[Hack]

Moved to reporting