yes, i want the same u r saying..., but i m unable 2 understand the problem where i m lacking.
'''''DataBind Function
Sub BindAllData()
strRMSConn = "server=C2M2;database=genx;uid=sa;password=sqlserv er;"
strSql = "SELECT new_n_riskid RiskID, new_v_project Project, new_v_severity Severity, new_v_usrid IdentifiedBy, new_d_identify Date, new_v_rtitle RiskTitle FROM rm_new_risk" 'funSelectAll(Session("SessPrjName")) 'NARESH
sqlConn = New System.Data.SqlClient.SqlConnection(strRMSConn)
objDA = New System.Data.SqlClient.SqlDataAdapter(strSql, strRMSConn)
objDA.Fill(objDS)
Dim intAllRcdCount As Integer
intAllRcdCount = objDS.Tables(0).Rows.Count.ToString()
intResultCount = intAllRcdCount
lblRecordCount.Text = "<b>" & intAllRcdCount & " Records Found"
dgList.DataSource = objDS
dgList.DataBind()
sqlConn.Close()
lblPageCount.Text = "Page " & dgList.CurrentPageIndex + 1 & " of " & dgList.PageCount
End Sub
'''''Page_Load
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
'Drop Down List for Project Name
Ds_prjname1.Clear()
SqlDataAdapter2.Fill(Ds_prjname1)
ddlPrjName.DataBind()
'Drop Down List for User ID's
Ds_userid1.Clear()
SqlDataAdapter3.Fill(Ds_userid1)
ddlIdentifyBy.DataBind()
BindAllData()
End If
End Sub
''''''DataGrid
Public Sub dgList_PageIndexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) Handles dgList.PageIndexChanged
dgList.CurrentPageIndex = e.NewPageIndex
BindAllData()
End Sub
'''''' Public Sub ddlPrjName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Str As String
strstr = ddlPrjName.SelectedValue
strRMSConn = "server=C2M2;database=genx;uid=sa;password=sqlserv er;"
Str = "SELECT new_n_riskid RiskID, new_v_project Project, new_v_severity Severity, new_v_usrid IdentifiedBy, new_d_identify Date, new_v_rtitle RiskTitle FROM rm_new_risk where new_v_project=" & strstr
sqlPrjConn = New System.Data.SqlClient.SqlConnection(strRMSConn)
objPrjDA = New System.Data.SqlClient.SqlDataAdapter(Str, strRMSConn)
objPrjDA.SelectCommand.CommandText = Str
objPrjDA.Fill(objPrjDs)
dgList.DataSource = objPrjDs
dgList.DataMember = "rm_new_risk"
dgList.DataBind()
sqlConn.Close()
End Sub
|