SortedList Collection - How to enumerate....?

[Alex Stevens]

Hi

I have a class which inherits the sortedlist collection.

I've overloaded the add method to allow the collection to store
sqlParameters, with the key being the parameter name.

When I try to enumerate using this code:

*****Test Code Start *****
Dim params As New MTXDataLayer.Pa rameters
Dim prm As SqlClient.SqlPa rameter

params.Add("RET URN", SqlDbType.Int)
params.Add("RET URN2", SqlDbType.Int)
params.Add("RET URN3", SqlDbType.Int)
params.Add("RET URN4", SqlDbType.Int)

MsgBox(params.C ount)

For Each prm In params
MsgBox(prm.Para meterName)
Next

*****Test Code End*****

The params.count works giving 4, but the enumeration doesn't.
How can I fix this?

Thanks

Alex Stevens

*****ClassCode Start *****
Public Class Parameters

Inherits System.Collecti ons.SortedList
Public Overloads Function Add(ByVal strParamName As String, ByVal
sqlParamType As Data.SqlDbType, _
Optional ByVal intSize As Integer = 0, Optional ByVal varValue As
Object = Nothing) As SqlClient.SqlPa rameter

Dim sqlParam As New SqlClient.SqlPa rameter
With sqlParam
.ParameterName = strParamName
.SqlDbType = sqlParamType
.Size = intSize
.Value = varValue
End With

Try
Me.Add(sqlParam .ParameterName, sqlParam)
'mColParameters .Add(sqlParam, strParamName)
Catch exc As Exception
Throw New ArgumentOutOfRa ngeException
End Try

Add = sqlParam
sqlParam = Nothing

End Function
End Class

*****ClassCode Code End*****

[CJ Taylor]

Lookup IEnumerable interface. you have to implement that in order to do
this.

Or IEnumerator, I can't remember which one it is. But one only makes you
use the 3 base functions. If it doens't implement, it doesn't know to
enumerate. Because you need the function getEnumerator() as well.

Welcome to object inheritance and interfacing. =)
"Alex Stevens" <al**@matrixinf otech.co.uk_nos pam> wrote in message
news:eE******** ********@TK2MSF TNGP12.phx.gbl. ..

Hi

I have a class which inherits the sortedlist collection.

I've overloaded the add method to allow the collection to store
sqlParameters, with the key being the parameter name.

When I try to enumerate using this code:

*****Test Code Start *****
Dim params As New MTXDataLayer.Pa rameters
Dim prm As SqlClient.SqlPa rameter

params.Add("RET URN", SqlDbType.Int)
params.Add("RET URN2", SqlDbType.Int)
params.Add("RET URN3", SqlDbType.Int)
params.Add("RET URN4", SqlDbType.Int)

MsgBox(params.C ount)

For Each prm In params
MsgBox(prm.Para meterName)
Next

*****Test Code End*****

The params.count works giving 4, but the enumeration doesn't.
How can I fix this?

Thanks

Alex Stevens

*****ClassCode Start *****
Public Class Parameters

Inherits System.Collecti ons.SortedList
Public Overloads Function Add(ByVal strParamName As String, ByVal
sqlParamType As Data.SqlDbType, _
Optional ByVal intSize As Integer = 0, Optional ByVal varValue As
Object = Nothing) As SqlClient.SqlPa rameter

Dim sqlParam As New SqlClient.SqlPa rameter
With sqlParam
.ParameterName = strParamName
.SqlDbType = sqlParamType
.Size = intSize
.Value = varValue
End With

Try
Me.Add(sqlParam .ParameterName, sqlParam)
'mColParameters .Add(sqlParam, strParamName)
Catch exc As Exception
Throw New ArgumentOutOfRa ngeException
End Try

Add = sqlParam
sqlParam = Nothing

End Function
End Class

*****ClassCode Code End*****