Dear Sir......
This is my code...
Dim datM, datM1, datY, datY1 As String
Protected Sub Show_Data(ByVal strbank As Object, ByVal strmonth As Object, ByVal stryear As Object)
Dim con As SqlConnection = New SqlConnection(GetConnectionString)
Dim cmd As SqlCommand = New SqlCommand()
cmd.CommandText = "SELECT BANKBOOK.BA_REM, BANKBOOK.BA_DATE, BANKBOOK.BA_TYPE, BANKBOOK.BA_CHEQUE,BANKBOOK.BA_REF, VOUCHER.V_NAME, BANKBOOK.BA_AMTCR,BANKBOOK.BA_REF, CH_ACCOUNTS.A_DESC, BANKBOOK.BA_BRANCH, BANKBOOK.BA_CNO,BANKBOOK.BA_ACCODE, CH_ACCOUNTS.A_HEADER6 FROM BANKBOOK INNER JOIN VOUCHER ON BANKBOOK.BA_REF = VOUCHER.V_REFNO INNER JOIN CH_ACCOUNTS ON BANKBOOK.BA_ACCODE = CH_ACCOUNTS.A_HEADER4 WHERE(BANKBOOK.BA_SOURCE = 'B') AND (BANKBOOK.BA_BCODE = @BANK) AND (MONTH(BANKBOOK.BA_DATE) = @Month) AND (YEAR(BANKBOOK.BA_DATE) =@Year) GROUP BY BANKBOOK.BA_CNO, BANKBOOK.BA_REM, BANKBOOK.BA_DATE, BANKBOOK.BA_TYPE, BANKBOOK.BA_REF, VOUCHER.V_NAME, BANKBOOK.BA_AMTCR, CH_ACCOUNTS.A_DESC, BANKBOOK.BA_BRANCH,BANKBOOK.BA_CHEQUE,BANKBOOK.BA_ACCODE,CH_ACCOUNTS.A_HEADER6 ORDER BY BANKBOOK.BA_CHEQUE"
cmd.Parameters.Add("@BANK", SqlDbType.NChar, 50).Value = strbank 'Bank Selecting query
cmd.Parameters.Add("@Month", SqlDbType.DateTime).Value = strmonth 'month
cmd.Parameters.Add("@Year", SqlDbType.DateTime).Value = stryear 'Year
cmd.CommandTimeout = 0
cmd.Connection = con
Dim reader As SqlDataReader = Nothing
Try
con.Open()
reader = cmd.ExecuteReader()
Catch ex As SqlException
lblerror.Text = ex.Message.ToString()
End Try
Try
If (reader.HasRows) Then
GridView1.Visible = True
lblerror.Visible = False
GridView1.DataSource = reader
GridView1.DataBind()
reader.Close()
con.Close()
Else
lblerror.Visible = True
lblerror.Text = "There are No Records available"
lblerror.ForeColor = Drawing.Color.Red
GridView1.Visible = False
End If
Catch ex As Exception
lblerror.Visible = True
Me.lblerror.Text = ex.ToString()
End Try
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
datM = txtdate.Text
datM1 = datM.Substring(0, 2)'get a month
datY = txtdate.Text
datY1 = datY.Substring(2, 5)'get a year
Me.Show_Data(Me.cmbbankacc.Text, datM1, datY1)'call the method
End Sub
''''''''''''''''''''''
don't afraid my query, do you have any problem in my programme Please ask....
Thank You.........
Rathnayake
Nuwan, if this helps please login to Mark As Answer. | Alert Moderator