pertama bikin class dulu
Public Class myJson
Public Function toJSON(ByVal obyek As Object) As String
Dim serializer As javascriptserializer
serializer = New JavaScriptSerializer
Return serializer.Serialize(obyek)
End Function
Public Function toJSON(ByVal obyek As Object, ByVal rekursi As Integer) As String
Dim serializer As JavaScriptSerializer
serializer = New JavaScriptSerializer
serializer.RecursionLimit = rekursi
Return serializer.Serialize(obyek)
End Function
End Class
terus bikin structure di dalam web service nya
structure biodata
dim nama as string
dim alamat as string
dim kota as string
end structure
Pindahkan data dari datarow ke object biodata
dim hasil as New List(Of biodata)
for each row as datarow in [NamaDataTable].rows
dim a as new biodata
with a
.nama=row("nama")
.alamat=row("alamat")
.kota=row("kota")
end with
hasil.add (a)
next
convert object biodata ke json
dim Obj as new myjson
return obj.tojson(hasil)
udah deh ....