Function doesn't return a value on all code paths

[a]

I have been cleaning up somebody else's code in Vs2005 .net 2.0

There wer lots of these code pat errors because of unitialized variables in
functions with Conditionals - that may or may not be set . These I have
cleaned up ok.

But I have a few like this one below.

The error is Function BindData doesn't return a value on all code paths
But I only see one code path. What am I missing?

Thanks

Bill

Private Function BindData(ByVal count As Integer, ByVal custID As Integer,
ByVal tempID As Integer, ByVal groupID As Integer)

cmd = New SqlCommand("stp_getPreparedMessages", con)

da.SelectCommand = cmd

da.SelectCommand.CommandType = CommandType.StoredProcedure

da.SelectCommand.parameters.addwithvalue("@int_rCo unt", pSize)

da.SelectCommand.parameters.addwithvalue("@int_Use rGroupId", groupID)

da.SelectCommand.parameters.addwithvalue("@int_Cus tomerID", custID)

da.SelectCommand.parameters.addwithvalue("@int_Use rIdAdd",
Session("userID"))

da.SelectCommand.parameters.addwithvalue("@sint_Ac cessLevel",
Session("accessLevel"))

da.SelectCommand.parameters.addwithvalue("@int_tem pid", tempID)

da.SelectCommand.parameters.addwithvalue("@int_pag eCount",
SqlDbType.Int).Direction = ParameterDirection.Output

da.Fill(ds, "tblPrepMsgs")

pCount = da.SelectCommand.Parameters("@int_pageCount").Valu e

dgPreparedMsgs.DataSource = ds.Tables("tblPrepMsgs")

dgPreparedMsgs.DataBind()

End Function

[md]

From what I see, you're not returning any value at all. Also, if you have
Option strict on full it will complain (as a warning I think) that you don't
specify a type for the function.

Matt
"a" <[e-mail] in message
news:bi****************@tornado.tampabay.rr.com...

>I have been cleaning up somebody else's code in Vs2005 .net 2.0

There wer lots of these code pat errors because of unitialized variables
in functions with Conditionals - that may or may not be set . These I
have cleaned up ok.

But I have a few like this one below.

The error is Function BindData doesn't return a value on all code paths
But I only see one code path. What am I missing?

Thanks

Bill

Private Function BindData(ByVal count As Integer, ByVal custID As Integer,
ByVal tempID As Integer, ByVal groupID As Integer)

cmd = New SqlCommand("stp_getPreparedMessages", con)

da.SelectCommand = cmd

da.SelectCommand.CommandType = CommandType.StoredProcedure

da.SelectCommand.parameters.addwithvalue("@int_rCo unt", pSize)

da.SelectCommand.parameters.addwithvalue("@int_Use rGroupId", groupID)

da.SelectCommand.parameters.addwithvalue("@int_Cus tomerID", custID)

da.SelectCommand.parameters.addwithvalue("@int_Use rIdAdd",
Session("userID"))

da.SelectCommand.parameters.addwithvalue("@sint_Ac cessLevel",
Session("accessLevel"))

da.SelectCommand.parameters.addwithvalue("@int_tem pid", tempID)

da.SelectCommand.parameters.addwithvalue("@int_pag eCount",
SqlDbType.Int).Direction = ParameterDirection.Output

da.Fill(ds, "tblPrepMsgs")

pCount = da.SelectCommand.Parameters("@int_pageCount").Valu e

dgPreparedMsgs.DataSource = ds.Tables("tblPrepMsgs")

dgPreparedMsgs.DataBind()

End Function

[Kerry Moorman]

a,

It looks like this function should really be a subprocedure.

Kerry Moorman
"a" wrote:

I have been cleaning up somebody else's code in Vs2005 .net 2.0

There wer lots of these code pat errors because of unitialized variables in
functions with Conditionals - that may or may not be set . These I have
cleaned up ok.

But I have a few like this one below.

The error is Function BindData doesn't return a value on all code paths
But I only see one code path. What am I missing?

Thanks

Bill

Private Function BindData(ByVal count As Integer, ByVal custID As Integer,
ByVal tempID As Integer, ByVal groupID As Integer)

cmd = New SqlCommand("stp_getPreparedMessages", con)

da.SelectCommand = cmd

da.SelectCommand.CommandType = CommandType.StoredProcedure

da.SelectCommand.parameters.addwithvalue("@int_rCo unt", pSize)

da.SelectCommand.parameters.addwithvalue("@int_Use rGroupId", groupID)

da.SelectCommand.parameters.addwithvalue("@int_Cus tomerID", custID)

da.SelectCommand.parameters.addwithvalue("@int_Use rIdAdd",
Session("userID"))

da.SelectCommand.parameters.addwithvalue("@sint_Ac cessLevel",
Session("accessLevel"))

da.SelectCommand.parameters.addwithvalue("@int_tem pid", tempID)

da.SelectCommand.parameters.addwithvalue("@int_pag eCount",
SqlDbType.Int).Direction = ParameterDirection.Output

da.Fill(ds, "tblPrepMsgs")

pCount = da.SelectCommand.Parameters("@int_pageCount").Valu e

dgPreparedMsgs.DataSource = ds.Tables("tblPrepMsgs")

dgPreparedMsgs.DataBind()

End Function

[Herfried K. Wagner [MVP]]

"a" <[e-mail]:

The error is Function BindData doesn't return a value on all code paths
But I only see one code path. What am I missing?

Private Function BindData(ByVal count As Integer, ByVal custID As Integer,
ByVal tempID As Integer, ByVal groupID As Integer)

cmd = New SqlCommand("stp_getPreparedMessages", con)

da.SelectCommand = cmd

da.SelectCommand.CommandType = CommandType.StoredProcedure

da.SelectCommand.parameters.addwithvalue("@int_rCo unt", pSize)

da.SelectCommand.parameters.addwithvalue("@int_Use rGroupId", groupID)

da.SelectCommand.parameters.addwithvalue("@int_Cus tomerID", custID)

da.SelectCommand.parameters.addwithvalue("@int_Use rIdAdd",
Session("userID"))

da.SelectCommand.parameters.addwithvalue("@sint_Ac cessLevel",
Session("accessLevel"))

da.SelectCommand.parameters.addwithvalue("@int_tem pid", tempID)

da.SelectCommand.parameters.addwithvalue("@int_pag eCount",
SqlDbType.Int).Direction = ParameterDirection.Output

da.Fill(ds, "tblPrepMsgs")

pCount = da.SelectCommand.Parameters("@int_pageCount").Valu e

dgPreparedMsgs.DataSource = ds.Tables("tblPrepMsgs")

dgPreparedMsgs.DataBind()

End Function

The function neither contains a 'Return <value>' statement nor does it
contain an assignment to the function name. Thus you may want to replace
the 'Function' with 'Sub'.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[GhostInAK]

Hello a,

You could instead create a collection that disallowed adding non-unique values.

Public Class UniqueStringList
Inherits List(Of String)
Public Shadows Sub Add(ByVal tValue As String)

If Not Me.Contains(tValue) Then
MyBase.Add(tValue)
End If

End Sub

End Class

-Boo

I have been cleaning up somebody else's code in Vs2005 .net 2.0

There wer lots of these code pat errors because of unitialized
variables in functions with Conditionals - that may or may not be set
. These I have cleaned up ok.

But I have a few like this one below.

The error is Function BindData doesn't return a value on all code
paths But I only see one code path. What am I missing?

Thanks

Bill

Private Function BindData(ByVal count As Integer, ByVal custID As
Integer, ByVal tempID As Integer, ByVal groupID As Integer)

cmd = New SqlCommand("stp_getPreparedMessages", con)

da.SelectCommand = cmd

da.SelectCommand.CommandType = CommandType.StoredProcedure

da.SelectCommand.parameters.addwithvalue("@int_rCo unt", pSize)

da.SelectCommand.parameters.addwithvalue("@int_Use rGroupId", groupID)

da.SelectCommand.parameters.addwithvalue("@int_Cus tomerID", custID)

da.SelectCommand.parameters.addwithvalue("@int_Use rIdAdd",
Session("userID"))

da.SelectCommand.parameters.addwithvalue("@sint_Ac cessLevel",
Session("accessLevel"))

da.SelectCommand.parameters.addwithvalue("@int_tem pid", tempID)

da.SelectCommand.parameters.addwithvalue("@int_pag eCount",
SqlDbType.Int).Direction = ParameterDirection.Output

da.Fill(ds, "tblPrepMsgs")

pCount = da.SelectCommand.Parameters("@int_pageCount").Valu e

dgPreparedMsgs.DataSource = ds.Tables("tblPrepMsgs")

dgPreparedMsgs.DataBind()

End Function