ASP.NET

<br />
<br />
 Private Sub btnSave_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.ServerClick<br />
        Dim myBLL As New NitemBLL<br />
        myBLL.Group = CInt(Me.txtBG.Value)<br />
        dgFilter.DataSource = myBLL.Getrecords()<br />
        dgFilter.DataBind()<br />
    End Sub<br />
<br />

<br />
Public Class NitemBLL<br />
    Private _groupID As Integer<br />
    Private _rhID As String = String.Empty<br />
    Private _unitNo As String = String.Empty<br />
    Public Property Group() As Integer<br />
        Get<br />
            Return _groupID<br />
        End Get<br />
        Set(ByVal Value As Integer)<br />
            _groupID = Value<br />
        End Set<br />
    End Property<br />
    Public Property RH() As String<br />
        Get<br />
            Return _rhID<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _rhID = value<br />
        End Set<br />
    End Property<br />
    Public Property Unit() As String<br />
        Get<br />
            Return _unitNo<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _unitNo = value<br />
        End Set<br />
    End Property<br />
    Public Function Getrecords() As DataSet<br />
        Dim nn As New NitemDAL<br />
        Return nn.Getrecord(Group)<br />
    End Function<br />

<br />
Public Class NitemDAL<br />
<br />
    Public Function Getrecord(ByVal groupid As Integer) As DataSet<br />
        Dim oMyDataset As New DataSet<br />
        Dim oMyAdapter As New SqlDataAdapter<br />
        Dim oMyConn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("BBM_CONSTR"))<br />
        Dim oMyCommand As SqlCommand = New SqlCommand("select cBB_Unit_No,convert(varchar(10),dBB_Donate_dt,105)[date] from blood_donate where iBloodgroup_id=" & groupid)<br />
        oMyCommand.Connection = oMyConn<br />
        oMyCommand.CommandType = CommandType.Text<br />
        Try<br />
            oMyConn.Open()<br />
            oMyAdapter.SelectCommand = oMyCommand<br />
            oMyAdapter.Fill(oMyDataset)<br />
            oMyCommand.ExecuteNonQuery()<br />
            oMyConn.Close()<br />
        Catch ex As Exception<br />
            ex.Message.ToString()<br />
        End Try<br />
        If oMyDataset.Tables(0).Rows.Count > 0 Then<br />
            Return oMyDataset<br />
        End If<br />
    End Function<br />
<br />