Solved

ASP .net JSON webservice - Problems with returning multiple results (select sql output)

Posted on 2014-03-14
10
507 Views
Last Modified: 2014-03-15
Hello, I am having troubles with modifying this code to return multiple sql select output in json:
Imports System.IO
Imports System.Runtime.Serialization
Imports System.ServiceModel
Imports System.ServiceModel.Activation
Imports System.Data.SqlClient
Imports System.Runtime.Serialization.Json

<ServiceContract([Namespace]:="")> _
<AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)> _
Public Class GetFriends
    Inherits System.Web.UI.Page
    <OperationContract()> _
    Public Function GetFriendLocation(friendID As Integer) As String
        Dim friendinfo As New FriendInfo()
        Dim connectionString As String = "server=localhost;uid=sa;pwd=thiru;database=AdventureWorks;"
        Using connection As New SqlConnection(connectionString)
            Dim sql As String = "Select FullName, FriendLocation from Friend.Place " & " Where FriendID = " & friendID.ToString()
            connection.Open()
            Dim command As New SqlCommand(sql, connection)
            Dim reader As SqlDataReader = command.ExecuteReader()
            While reader.Read()
                friendinfo.FriendName = reader("FriendName").ToString()
                friendinfo.FriendLocation = reader("FriendLocation").ToString()
                friendinfo.FriendID = friendID
            End While
        End Using
        Dim stream As New MemoryStream()
        Dim serializer As New DataContractJsonSerializer(GetType(FriendInfo))
        serializer.WriteObject(stream, friendinfo)
        stream.Position = 0
        Dim streamReader As New StreamReader(stream)
        Return streamReader.ReadToEnd()
    End Function
End Class
<DataContract()> _
Public Class FriendInfo
    <DataMember()> _
    Public FriendID As Integer
    <DataMember()> _
    Public FriendName As String
    <DataMember()> _
    Public FriendLocation As String
End Class

Open in new window

I am getting a return like this(it selects the last as it is not multiple):
      {
         "FriendID": "11102",
         "FriendName": "Darwin NoName"
         "FriendLocation": "Fakestreet 211"
      }

Open in new window

I would like a result like this(multiple in a json tag named data):
{
   "data": [
      {
         "FriendID": "11101",
         "FriendName": "Newton NoName"
         "FriendLocation": "Fakestreet 3321"
      },
      {
         "FriendID": "11102",
         "FriendName": "Darwin NoName"
         "FriendLocation": "Fakestreet 211"
      }
   ]
}

Open in new window

How can this be done, I can not get this to work.
Thank you in advance
0
Comment
Question by:JoachimPetersen
  • 5
  • 5
10 Comments
 
LVL 23

Expert Comment

by:Ioannis Paraskevopoulos
ID: 39931140
Hi,

One major issue i see and it leads to your problem is the way you handle your data.

In your code you have:
Dim friendinfo As New FriendInfo()

Open in new window

This creates one instance of a FriendInfo object.
Then you iterate through your db results in your While...End While loop:
            While reader.Read()
                friendinfo.FriendName = reader("FriendName").ToString()
                friendinfo.FriendLocation = reader("FriendLocation").ToString()
                friendinfo.FriendID = friendID
            End While

Open in new window


What you do here is getting this one instance and changing its properties with each record you get from your DB, so you finally end up with the last record of your DB.

I would suggest defining a List(Of FriendInfo) and then adding in it each new FriendInfo instances.

Dim friendinfoList As New List(Of FriendInfo())
Dim connectionString As String = "server=localhost;uid=sa;pwd=thiru;database=AdventureWorks;"
   Using connection As New SqlConnection(connectionString)
       Dim sql As String = "Select FullName, FriendLocation from Friend.Place " & " Where FriendID = " & friendID.ToString()
       connection.Open()
       Dim command As New SqlCommand(sql, connection)
       Dim reader As SqlDataReader = command.ExecuteReader()
       While reader.Read()
           Dim friendinfo As New FriendInfo()
           friendinfo.FriendName = reader("FriendName").ToString()
           friendinfo.FriendLocation = reader("FriendLocation").ToString()
           friendinfo.FriendID = friendID
           friendInfoList.Add(friendInfo)
       End While
End Using
 

Open in new window


Then you end up with a List of your objects. Even better would be to use LINQ, but this is out of scope.

Then you would serialize your List object in JSON.

One last thing would be a suggestion on a change on your code.

The way you fetch data from your db could be prone to injection:
Dim sql As String = "Select FullName, FriendLocation from Friend.Place " & " Where FriendID = " & friendID.ToString()

Open in new window


It would be better if you would use SQLParameters:
Dim sql As String = "Select FullName, FriendLocation from Friend.Place Where FriendID = @friendId"
connection.Open()
Dim command As New SqlCommand(sql, connection)
command.Parameters.AddWithValue("@friendId", friendID.ToString())

Open in new window


Giannis
0
 

Author Comment

by:JoachimPetersen
ID: 39931208
Very good answer, I have tried something simular to this but failed.
when I try your provided code I get this error: "Value of type 'FriendInfo' cannot be converted to '1-dimensional array of FriendInfo'" at line "friendinfoList.Add(friendinfo)"
I am using framework 4.0
0
 
LVL 23

Expert Comment

by:Ioannis Paraskevopoulos
ID: 39931224
Can you please supply your exact code?
0
 

Author Comment

by:JoachimPetersen
ID: 39931271
Imports System.IO
Imports System.Runtime.Serialization
Imports System.ServiceModel
Imports System.ServiceModel.Activation
Imports System.Data.SqlClient
Imports System.Runtime.Serialization.Json
Imports System.Collections.Generic

<ServiceContract([Namespace]:="")> _
<AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)> _
Public Class App_Default
    Inherits System.Web.UI.Page
    <OperationContract()> _
    Public Function GetFriendLocation(ByVal friendID As Integer) As String
        Dim friendinfoList As New List(Of FriendInfo())
        Dim connectionString As String = "server=localhost;uid=sa;pwd=thiru;database=AdventureWorks;"
        Using connection As New SqlConnection(connectionString)
            Dim sql As String = "Select FullName, FriendLocation from Friend.Place " & " Where FriendID = " & friendID.ToString()
            connection.Open()
            Dim command As New SqlCommand(sql, connection)
            Dim reader As SqlDataReader = command.ExecuteReader()
            While reader.Read()
                Dim friendinfo As New FriendInfo()
                friendinfo.FriendName = reader("FriendName").ToString()
                friendinfo.FriendLocation = reader("FriendLocation").ToString()
                friendinfo.FriendID = friendID
                friendinfoList.Add(friendinfo)
            End While
        End Using
        'Dim stream As New MemoryStream()
        'Dim serializer As New DataContractJsonSerializer(GetType(FriendInfo))
        'serializer.WriteObject(stream, friendinfo)
        'stream.Position = 0
        'Dim streamReader As New StreamReader(stream)
        'Return streamReader.ReadToEnd()
    End Function
End Class
<DataContract()> _
Public Class FriendInfo
    <DataMember()> _
    Public FriendID As Integer
    <DataMember()> _
    Public FriendName As String
    <DataMember()> _
    Public FriendLocation As String
End Class

Open in new window

Error: Value of type 'FriendInfo' cannot be converted to '1-dimensional array of FriendInfo'. at "friendinfoList.Add(friendinfo)"
0
 
LVL 23

Expert Comment

by:Ioannis Paraskevopoulos
ID: 39931280
A small error while copying and pasting....

Dim friendinfoList As New List(Of FriendInfo())

Open in new window


should be

Dim friendinfoList As New List(Of FriendInfo)

Open in new window


The parenthesis mean that the List would expect Arrays of FriendInfo.

Giannis
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:JoachimPetersen
ID: 39931417
Okay, when using a List(T), how would you then convert it into an JSON result, any automatic way ot should it be done by looping through each item?
After a quick search I saw an example, but something is wrong with the system.web.extension dll as it cannot find it, I can add it to reference but it can not find it when I write Import System.Web.Extensions
here is the code I would use if it worked, any similar method that will work?
Dim jSearializer As New System.Web.Script.Serialization.JavaScriptSerializer()
        Return jSearializer.Serialize(friendinfoList)

Open in new window

0
 
LVL 23

Expert Comment

by:Ioannis Paraskevopoulos
ID: 39931439
The following seems to work:

   Dim stream As New MemoryStream()
   Dim serializer As New DataContractJsonSerializer(GetType(List(Of FriendInfo)))
   serializer.WriteObject(stream, friendinfoList)
   stream.Position = 0
   Dim streamReader As New StreamReader(stream)
   Return streamReader.ReadToEnd()

Open in new window


Giannis
0
 

Author Comment

by:JoachimPetersen
ID: 39931459
got any advice on adding them under a tag called data?
The output is:
[
      {
         "FriendID": "11101",
         "FriendName": "Newton NoName"
         "FriendLocation": "Fakestreet 3321"
      },
      {
         "FriendID": "11102",
         "FriendName": "Darwin NoName"
         "FriendLocation": "Fakestreet 211"
      }
   ]

Open in new window

I would like it to return it like:
{
   "data": [
      {
         "FriendID": "11101",
         "FriendName": "Newton NoName"
         "FriendLocation": "Fakestreet 3321"
      },
      {
         "FriendID": "11102",
         "FriendName": "Darwin NoName"
         "FriendLocation": "Fakestreet 211"
      }
   ]
}

Open in new window

0
 
LVL 23

Accepted Solution

by:
Ioannis Paraskevopoulos earned 500 total points
ID: 39931480
One dirty way (or maybe not...) would be to add another class that will have a property of List(Of FriendInfo) then you pass the instance of that object to the serializer:

Public Class FriendInfoList
    Public Data As List(Of FriendInfo)
    Public Sub New()
        Data = New List(Of FriendInfo)
    End Sub
End Class
<DataContract()> _
Public Class FriendInfo
    <DataMember()> _
    Public FriendID As Integer
    <DataMember()> _
    Public FriendName As String
    <DataMember()> _
    Public FriendLocation As String
End Class

<AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)> _
Public Class App_Default
    Inherits System.Web.UI.Page
    <OperationContract()> _
    Public Function GetFriendLocation(ByVal friendID As Integer) As String
        Dim friendinfoList As New FriendInfoList
        Dim connectionString As String = "server=localhost;uid=sa;pwd=thiru;database=AdventureWorks;"
        Using connection As New SqlConnection(connectionString)
            Dim sql As String = "Select FullName, FriendLocation from Friend.Place " & " Where FriendID = " & friendID.ToString()
            connection.Open()
            Dim command As New SqlCommand(sql, connection)
            Dim reader As SqlDataReader = command.ExecuteReader()
            While reader.Read()
                Dim friendinfo As New FriendInfo()
                friendinfo.FriendName = reader("FriendName").ToString()
                friendinfo.FriendLocation = reader("FriendLocation").ToString()
                friendinfo.FriendID = friendID
                friendinfoList.Data.Add(friendinfo)
            End While
        End Using
        Dim stream As New MemoryStream()
        Dim serializer As New DataContractJsonSerializer(GetType(FriendInfoList))
        serializer.WriteObject(stream, friendinfoList)
        stream.Position = 0
        Dim streamReader As New StreamReader(stream)
        Return streamReader.ReadToEnd()
    End Function
End Class

Open in new window

0
 

Author Closing Comment

by:JoachimPetersen
ID: 39931507
Perfect, very helpfull and very good solutions
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In .NET 2.0, Microsoft introduced the Web Site.  This was the default way to create a web Project in Visual Studio 2005.  In Visual Studio 2008, the Web Application has been restored as the default web Project in Visual Studio/.NET 3.x The Web Si…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now