I は、json 形式の出力として<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
自動的にフォーマットするために使用します。Return
DataSet
ただし、最初に a の内容を aにダンプしDictionary
、.Return
Dictionary
列にエイリアスを使用し、すべての列を出力したい場合、単純Return
にDataSet
同じようにする方法はありDictionary
ますか? そうでない場合、できるだけ少ない行でこれを行うにはどうすればよいですか?
Dim conn As New SqlConnection
conn.ConnectionString = Module1.DBConn2
Dim sqlCommand = New SqlCommand("Select id, column1, column2... From table1", conn)
conn.Open()
Dim sqlDataset As DataSet = New DataSet()
Dim sqlDataAdapter As SqlDataAdapter = New SqlDataAdapter(sqlCommand)
sqlDataAdapter.Fill(sqlDataset)
conn.Close()
Dim jsonDict(sqlDataset.Tables(0).Rows.Count - 1) As Dictionary(Of Object, Object)
Dim i As Integer = 0
For Each rs As DataRow In sqlDataset.Tables(0).Rows
jsonDict(i) = New Dictionary(Of Object, Object)
jsonDict(i).Add("id", rs.Field(Of Object)("id"))
jsonDict(i).Add("column1", rs.Field(Of Object)("column1"))
jsonDict(i).Add("column2", rs.Field(Of Object)("column2"))
...
i = i + 1
Next
Return jsonDict