Help with empty datarow

[News]

Hi, I wrote a function that pulls a record, below:

+++++++++++++++ +++++++++++++++ ++++++++++
Public Function getServPlanProg Activity( serviceprograme nroll_id As Integer,
activity_id As Integer ) As DataRow
' Connect To db
Dim myConn As New SqlConnection(_ DSN)
Dim dtrHasRows As DataRow

Try
Dim myAdapter As New SqlDataAdapter( "Select " & _
"serviceactivit y_id, activity_id, " & _
"serviceprogram enroll_id, additional_text " & _
"FROM ServicePlanProg ramActivity " & _
"WHERE serviceprograme nroll_id = " &
ctype(servicepr ogramenroll_id , integer) & "And activity_id =" &
ctype(activity_ id , integer), myConn)
Dim myDataSet As New DataSet()
myAdapter.Fill( myDataSet, "ServicePlanPro gramEnroll")

' Return datarow
If myDataSet.Table s(0).Rows.Count > 0 Then
Return myDataSet.Table s(0).Rows(0)
Else
dtrHasRows = Nothing
Return dtrHasRows
End If

Catch ex As Exception
Throw ex
Finally
myConn.Close()
End Try
End Function

+++++++++++++++ +++++++++++++++ +++++++++

This is a snippet where I reference it:

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then
checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If

+++++++++++++++ +++++++++++++++ +++++++++

Problem is when there is a record it works fine, but if no record found I
get this error:
System.NullRefe renceException: Object reference not set to an instance of an
object.
Line 190: If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
I understand that there is no record for this search criteria, how do I
validate that this function returned Nothing or may be there is a better
way, say assign something to a return value of the function? If I were to
assign some value, how do I assign something to a data type of DataRow?
Thanks,

Gene

[marinov]

"News" <ge**@mailcity. com> wrote in message
news:JL******** ************@ma gma.ca...

Hi, I wrote a function that pulls a record, below:

+++++++++++++++ +++++++++++++++ ++++++++++
Public Function getServPlanProg Activity( serviceprograme nroll_id As Integer, activity_id As Integer ) As DataRow
' Connect To db
Dim myConn As New SqlConnection(_ DSN)
Dim dtrHasRows As DataRow

Try
Dim myAdapter As New SqlDataAdapter( "Select " & _
"serviceactivit y_id, activity_id, " & _
"serviceprogram enroll_id, additional_text " & _
"FROM ServicePlanProg ramActivity " & _
"WHERE serviceprograme nroll_id = " &
ctype(servicepr ogramenroll_id , integer) & "And activity_id =" &
ctype(activity_ id , integer), myConn)
Dim myDataSet As New DataSet()
myAdapter.Fill( myDataSet, "ServicePlanPro gramEnroll")

' Return datarow
If myDataSet.Table s(0).Rows.Count > 0 Then
Return myDataSet.Table s(0).Rows(0)
Else
dtrHasRows = Nothing
Return dtrHasRows
End If

Catch ex As Exception
Throw ex
Finally
myConn.Close()
End Try
End Function

+++++++++++++++ +++++++++++++++ +++++++++

This is a snippet where I reference it:

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then
checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If

+++++++++++++++ +++++++++++++++ +++++++++

Problem is when there is a record it works fine, but if no record found I
get this error:
System.NullRefe renceException: Object reference not set to an instance of an object.
Line 190: If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then

I understand that there is no record for this search criteria, how do I
validate that this function returned Nothing or may be there is a better
way, say assign something to a return value of the function? If I were to
assign some value, how do I assign something to a data type of DataRow?
Thanks,

Gene

to avoid the error you can do this

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not dstServPlanProg ProgActivity Then
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then
checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If
End If

[News]

thanks, but this line "If Not dstServPlanProg ProgActivity Then" now gives me
this error:
Operator 'Not' is not defined for type 'System.Data.Da taRow'.
"marinov" <tr*@me.com> wrote in message
news:eL******** *****@TK2MSFTNG P12.phx.gbl...

"News" <ge**@mailcity. com> wrote in message
news:JL******** ************@ma gma.ca...

Hi, I wrote a function that pulls a record, below:

+++++++++++++++ +++++++++++++++ ++++++++++
Public Function getServPlanProg Activity( serviceprograme nroll_id As Integer,

activity_id As Integer ) As DataRow
' Connect To db
Dim myConn As New SqlConnection(_ DSN)
Dim dtrHasRows As DataRow

Try
Dim myAdapter As New SqlDataAdapter( "Select " & _
"serviceactivit y_id, activity_id, " & _
"serviceprogram enroll_id, additional_text " & _
"FROM ServicePlanProg ramActivity " & _
"WHERE serviceprograme nroll_id = " &
ctype(servicepr ogramenroll_id , integer) & "And activity_id =" &
ctype(activity_ id , integer), myConn)
Dim myDataSet As New DataSet()
myAdapter.Fill( myDataSet, "ServicePlanPro gramEnroll")

' Return datarow
If myDataSet.Table s(0).Rows.Count > 0 Then
Return myDataSet.Table s(0).Rows(0)
Else
dtrHasRows = Nothing
Return dtrHasRows
End If

Catch ex As Exception
Throw ex
Finally
myConn.Close()
End Try
End Function

+++++++++++++++ +++++++++++++++ +++++++++

This is a snippet where I reference it:

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then
checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If

+++++++++++++++ +++++++++++++++ +++++++++

Problem is when there is a record it works fine, but if no record found I get this error:
System.NullRefe renceException: Object reference not set to an instance of an

object.
Line 190: If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id"))

Then

I understand that there is no record for this search criteria, how do I
validate that this function returned Nothing or may be there is a better
way, say assign something to a return value of the function? If I were

to assign some value, how do I assign something to a data type of DataRow?
Thanks,

Gene

to avoid the error you can do this

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not dstServPlanProg ProgActivity Then
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then
checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If
End If

[Martin Marinov]

I'm really sorry
Because i didn't test the code but write directly in the reply i forgot to
put the = Nothing
so the code should be

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not dstServPlanProg ProgActivity = Nothing Then
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then
checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If
End If
Regards
Martin
"News" <ge**@mailcity. com> wrote in message
news:Xt******** ************@ma gma.ca...

thanks, but this line "If Not dstServPlanProg ProgActivity Then" now gives me this error:
Operator 'Not' is not defined for type 'System.Data.Da taRow'.
"marinov" <tr*@me.com> wrote in message
news:eL******** *****@TK2MSFTNG P12.phx.gbl...

"News" <ge**@mailcity. com> wrote in message
news:JL******** ************@ma gma.ca...

Hi, I wrote a function that pulls a record, below:

+++++++++++++++ +++++++++++++++ ++++++++++
Public Function getServPlanProg Activity( serviceprograme nroll_id As Integer,

activity_id As Integer ) As DataRow
' Connect To db
Dim myConn As New SqlConnection(_ DSN)
Dim dtrHasRows As DataRow

Try
Dim myAdapter As New SqlDataAdapter( "Select " & _
"serviceactivit y_id, activity_id, " & _
"serviceprogram enroll_id, additional_text " & _
"FROM ServicePlanProg ramActivity " & _
"WHERE serviceprograme nroll_id = " &
ctype(servicepr ogramenroll_id , integer) & "And activity_id =" &
ctype(activity_ id , integer), myConn)
Dim myDataSet As New DataSet()
myAdapter.Fill( myDataSet, "ServicePlanPro gramEnroll")

' Return datarow
If myDataSet.Table s(0).Rows.Count > 0 Then
Return myDataSet.Table s(0).Rows(0)
Else
dtrHasRows = Nothing
Return dtrHasRows
End If

Catch ex As Exception
Throw ex
Finally
myConn.Close()
End Try
End Function

+++++++++++++++ +++++++++++++++ +++++++++

This is a snippet where I reference it:

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text")) Then checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If

+++++++++++++++ +++++++++++++++ +++++++++

Problem is when there is a record it works fine, but if no record found I

get this error:
System.NullRefe renceException: Object reference not set to an instance of

an

object.
Line 190: If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id"))

Then

I understand that there is no record for this search criteria, how do

I validate that this function returned Nothing or may be there is a better way, say assign something to a return value of the function? If I were

to assign some value, how do I assign something to a data type of DataRow?

Thanks,

Gene

to avoid the error you can do this

dstServPlanProg ProgActivity =
myServPlanProgP rogEnroll.getSe rvPlanProgActiv ity(viewstate(" speid"),
reader.Item("id "))
If Not dstServPlanProg ProgActivity Then
If Not IsDBNull(dstSer vPlanProgProgAc tivity("activit y_id")) Then
checktextbox.ct cChecked = true
If Not IsDBNull(dstSer vPlanProgProgAc tivity("additio nal_text"))

Then checktextbox.ct cText =
dstServPlanProg ProgActivity("a dditional_text" )
End If
End If
End If