Hi,
Good day.i need some help from you guys.
I'm using vb.net and sql database to build my file.
The purpose of this file is to view news based on deparment.
Im using listbox and radiobutton list in this file.
listbox- to get department names in sql table
radiobutton - to get the headline news for the department name choosen
above.
However, i managed to list all the headline news based on the
department name using listbox and radiobutton.
THE PROBLEM now is how to assign an url link to an item in this
radiobutton list so it will link to the related news.For your
information url addresses are stored in a tabel.
Here are the html declaration:
<form id="Form1" method="post" runat="server">
<P><asp:listb ox id="lblCategory "
OnSelectedIndex Changed="Displa yCategory" AutoPostBack="T rue"
Font-Size="8pt"
Font-Name="arial"
Runat="server"> </asp:listbox></P>
<P> </P>
<asp:radiobutto nlist id="rblSubject " Font-Size="8pt"
Font-Name="arial" Runat="server"
RepeatColumns=" 1"></asp:radiobutton list>
</form>
Here are the vb code :
Inherits System.Web.UI.P age
Protected WithEvents lblCategory As ListBox
Protected WithEvents rblSubject As RadioButtonList
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
Dim cn As New
SqlConnection(" server=(local); database=AtWork WebPortal;uid=m e;pwd=me")
Dim sql As String = "select DepartmentID, DepartmentName
from Department "
Dim cm As New SqlCommand(sql, cn)
Dim dr As SqlDataReader
cn.Open()
dr = cm.ExecuteReade r
lblCategory.Dat aSource = dr
lblCategory.Dat aTextField = "DepartmentName "
lblCategory.Dat aValueField = "Department ID"
lblCategory.Dat aBind()
lblCategory.Row s = lblCategory.Ite ms.Count
cn.Close()
dr = Nothing
cm = Nothing
cn = Nothing
End If
Public Sub DisplayCategory (ByVal o As Object, ByVal e As EventArgs)
If lblCategory.Sel ectedIndex <> -1 Then
Dim cn As New
SqlConnection(" server=(local); database=AtWork WebPortal;uid=m e;pwd=me")
Dim sql As String = "select DepartmentItemI D, ItemDescr
FROM DepartmentItem WHERE DepartmentID = @DepartmentID "
Dim cm As New SqlCommand(sql, cn)
Dim pm As SqlParameter
Dim dr As SqlDataReader
Dim li As ListItem
pm = cm.Parameters.A dd(New SqlParameter("@ DepartmentID",
SqlDbType.Int))
pm.Value = lblCategory.Sel ectedItem.Value
cn.Open()
dr = cm.ExecuteReade r
rblSubject.Data Source = dr
rblSubject.Data TextField = "ItemDescr"
rblSubject.Data ValueField = "DepartmentItem ID"
rblSubject.Data Bind()
dr.NextResult()
If dr.Read Then
For Each li In rblSubject.Item s
If li.Value = dr("DepartmentI temID") Then
li.Selected = True
Exit For
End If
Next
End If
cn.Close()
dr = Nothing
cm = Nothing
cn = Nothing
End If
Is there any declaration and alteration i need to make?
thank you for your attention.hope to hear from you guys soon.
*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*
