How do I bind/present several Arraylists to a WebForm?

[Morten Hauge]

Hi!

I have a problem, I'm not sure if this is the proper way to do it, but I
have the following scenario:
I want to list all categories, and all products in that category whenever I
select a topcategory in a menu.

Example:

- Music
- pop < ------pressing this menuitem should give following result:

CDs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion

DVDs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion

LPs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
I've done this so far, ( se code below )
here I will get the arraylist printed the following way:

For i = 0 To arrProducts.Cou nt - 1
Response.Write( arrProducts(i). ProductID & " -")
Response.Write( arrProducts(i). ProductName & "-")
Response.Write( arrProducts(i). ProductDescript ion & "<br>")
Next

but as you know Response.Write isn't the way to do it :-)
I need some help binding this to a webForm. Would really like to bind this
to a table or anything more structured....
(working in VB and CodeBehind)

'Code behind start********** *************** *************** *************** ***

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
LoopCategories( )
End Sub

Sub LoopCategories( )
Dim CategoryName As String, arrProducts As ArrayList
Dim Conn As New SqlConnection(v ariables.ConnSt ring)
Dim Cmd As New SqlCommand("SEL ECT * FROM tblCategory WHERE Parent =
'376' ", Conn)
Cmd.Connection. Open()
Dim dr As SqlDataReader = Cmd.ExecuteRead er
While dr.Read

CategoryName = dr.Item("name")
arrProducts = GetProducts(dr. Item("CatID"))

'Here I have put the Categoryname in a varable named: CategoryName
'And an arraylist containing all products in this spesific Category

End While
Cmd.Connection. Close()
Cmd.Dispose()
Conn.Dispose()
End Sub

Function GetProducts(ByV al inputCatID As Integer) As ArrayList
Dim arrProducts As New ArrayList()
Dim ConnProducts As New SqlConnection(v ariables.ConnSt ring)
Dim CmdProducts As New SqlCommand("SEL ECT * FROM tblArticle WHERE
CatID = @CatID", ConnProducts)
CmdProducts.Con nection.Open()
CmdProducts.Par ameters.Add(New SqlParameter("@ CatID", inputCatID))
Dim dr As SqlDataReader = CmdProducts.Exe cuteReader
While dr.Read
arrProducts.Add (New ProductItem(dr. Item("ArtID"),
dr.Item("title" ), dr.Item("ingres s")))
End While
CmdProducts.Con nection.Close()
CmdProducts.Dis pose()
ConnProducts.Di spose()
Return arrProducts
End Function
Friend Class ProductItem

Sub New(ByVal ID As Integer, ByVal Name As String, ByVal Description
As String)
ProductID = ID
ProductName = Name
ProductDescript ion = Description
End Sub

Dim _ProductID As Integer
Public Property ProductID() As Integer
Get
Return _ProductID
End Get
Set(ByVal Value As Integer)
_ProductID = Value
End Set
End Property

Dim _ProductName As String
Public Property ProductName() As String
Get
Return _ProductName
End Get
Set(ByVal Value As String)
_ProductName = Value
End Set
End Property

Dim _ProductDescrip tion As String
Public Property ProductDescript ion() As String
Get
Return _ProductDescrip tion
End Get
Set(ByVal Value As String)
_ProductDescrip tion = Value
End Set
End Property
End Class

'code behind ends*********** ****
Thanks for any help!!
Morten......

[Sebastian Wojciechowski]

use Repeater, DataList, or DataGrid

"Morten Hauge" <mo****@april.n o> wrote in message
news:e1******** ******@TK2MSFTN GP10.phx.gbl...

Hi!

I have a problem, I'm not sure if this is the proper way to do it, but I
have the following scenario:
I want to list all categories, and all products in that category whenever
I select a topcategory in a menu.

Example:

- Music
- pop < ------pressing this menuitem should give following result:

CDs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion

DVDs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion

LPs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
I've done this so far, ( se code below )
here I will get the arraylist printed the following way:

For i = 0 To arrProducts.Cou nt - 1
Response.Write( arrProducts(i). ProductID & " -")
Response.Write( arrProducts(i). ProductName & "-")
Response.Write( arrProducts(i). ProductDescript ion & "<br>")
Next

but as you know Response.Write isn't the way to do it :-)
I need some help binding this to a webForm. Would really like to bind this
to a table or anything more structured....
(working in VB and CodeBehind)

'Code behind
start********** *************** *************** *************** ***

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
LoopCategories( )
End Sub

Sub LoopCategories( )
Dim CategoryName As String, arrProducts As ArrayList
Dim Conn As New SqlConnection(v ariables.ConnSt ring)
Dim Cmd As New SqlCommand("SEL ECT * FROM tblCategory WHERE Parent =
'376' ", Conn)
Cmd.Connection. Open()
Dim dr As SqlDataReader = Cmd.ExecuteRead er
While dr.Read

CategoryName = dr.Item("name")
arrProducts = GetProducts(dr. Item("CatID"))

'Here I have put the Categoryname in a varable named: CategoryName
'And an arraylist containing all products in this spesific Category

End While
Cmd.Connection. Close()
Cmd.Dispose()
Conn.Dispose()
End Sub

Function GetProducts(ByV al inputCatID As Integer) As ArrayList
Dim arrProducts As New ArrayList()
Dim ConnProducts As New SqlConnection(v ariables.ConnSt ring)
Dim CmdProducts As New SqlCommand("SEL ECT * FROM tblArticle WHERE
CatID = @CatID", ConnProducts)
CmdProducts.Con nection.Open()
CmdProducts.Par ameters.Add(New SqlParameter("@ CatID", inputCatID))
Dim dr As SqlDataReader = CmdProducts.Exe cuteReader
While dr.Read
arrProducts.Add (New ProductItem(dr. Item("ArtID"),
dr.Item("title" ), dr.Item("ingres s")))
End While
CmdProducts.Con nection.Close()
CmdProducts.Dis pose()
ConnProducts.Di spose()
Return arrProducts
End Function
Friend Class ProductItem

Sub New(ByVal ID As Integer, ByVal Name As String, ByVal
Description As String)
ProductID = ID
ProductName = Name
ProductDescript ion = Description
End Sub

Dim _ProductID As Integer
Public Property ProductID() As Integer
Get
Return _ProductID
End Get
Set(ByVal Value As Integer)
_ProductID = Value
End Set
End Property

Dim _ProductName As String
Public Property ProductName() As String
Get
Return _ProductName
End Get
Set(ByVal Value As String)
_ProductName = Value
End Set
End Property

Dim _ProductDescrip tion As String
Public Property ProductDescript ion() As String
Get
Return _ProductDescrip tion
End Get
Set(ByVal Value As String)
_ProductDescrip tion = Value
End Set
End Property
End Class

'code behind ends*********** ****
Thanks for any help!!
Morten......

[Morten Hauge]

Thanks for a quick answer, yes I have figured out that datagrid,datali stor
repeater is the proper way of doing this,
But I'm not quite sure how I bind a ArrayList to a datagrid...
If theres any other way of doing this, I will be more than glad for some
examples..

Thanks!
Morten

"Sebastian Wojciechowski" <so*****@micros oft.com> skrev i melding
news:uZ******** ******@TK2MSFTN GP12.phx.gbl...

use Repeater, DataList, or DataGrid

"Morten Hauge" <mo****@april.n o> wrote in message
news:e1******** ******@TK2MSFTN GP10.phx.gbl...

Hi!

I have a problem, I'm not sure if this is the proper way to do it, but I
have the following scenario:
I want to list all categories, and all products in that category whenever
I select a topcategory in a menu.

Example:

- Music
- pop < ------pressing this menuitem should give following result:

CDs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion

DVDs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion

LPs
------------------------------------------------------
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
ProductID ProductName ProductDescript ion
I've done this so far, ( se code below )
here I will get the arraylist printed the following way:

For i = 0 To arrProducts.Cou nt - 1
Response.Write( arrProducts(i). ProductID & " -")
Response.Write( arrProducts(i). ProductName & "-")
Response.Write( arrProducts(i). ProductDescript ion & "<br>")
Next

but as you know Response.Write isn't the way to do it :-)
I need some help binding this to a webForm. Would really like to bind
this to a table or anything more structured....
(working in VB and CodeBehind)

'Code behind
start********** *************** *************** *************** ***

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
LoopCategories( )
End Sub

Sub LoopCategories( )
Dim CategoryName As String, arrProducts As ArrayList
Dim Conn As New SqlConnection(v ariables.ConnSt ring)
Dim Cmd As New SqlCommand("SEL ECT * FROM tblCategory WHERE Parent
= '376' ", Conn)
Cmd.Connection. Open()
Dim dr As SqlDataReader = Cmd.ExecuteRead er
While dr.Read

CategoryName = dr.Item("name")
arrProducts = GetProducts(dr. Item("CatID"))

'Here I have put the Categoryname in a varable named: CategoryName
'And an arraylist containing all products in this spesific Category

End While
Cmd.Connection. Close()
Cmd.Dispose()
Conn.Dispose()
End Sub

Function GetProducts(ByV al inputCatID As Integer) As ArrayList
Dim arrProducts As New ArrayList()
Dim ConnProducts As New SqlConnection(v ariables.ConnSt ring)
Dim CmdProducts As New SqlCommand("SEL ECT * FROM tblArticle WHERE
CatID = @CatID", ConnProducts)
CmdProducts.Con nection.Open()
CmdProducts.Par ameters.Add(New SqlParameter("@ CatID", inputCatID))
Dim dr As SqlDataReader = CmdProducts.Exe cuteReader
While dr.Read
arrProducts.Add (New ProductItem(dr. Item("ArtID"),
dr.Item("title" ), dr.Item("ingres s")))
End While
CmdProducts.Con nection.Close()
CmdProducts.Dis pose()
ConnProducts.Di spose()
Return arrProducts
End Function
Friend Class ProductItem

Sub New(ByVal ID As Integer, ByVal Name As String, ByVal
Description As String)
ProductID = ID
ProductName = Name
ProductDescript ion = Description
End Sub

Dim _ProductID As Integer
Public Property ProductID() As Integer
Get
Return _ProductID
End Get
Set(ByVal Value As Integer)
_ProductID = Value
End Set
End Property

Dim _ProductName As String
Public Property ProductName() As String
Get
Return _ProductName
End Get
Set(ByVal Value As String)
_ProductName = Value
End Set
End Property

Dim _ProductDescrip tion As String
Public Property ProductDescript ion() As String
Get
Return _ProductDescrip tion
End Get
Set(ByVal Value As String)
_ProductDescrip tion = Value
End Set
End Property
End Class

'code behind ends*********** ****
Thanks for any help!!
Morten......