queryString = "Select top 20 * From [資料庫名稱][dbo][資料表]" 'SQL指令 (此範例只讀取20列資料)
Dim dt As New DataTable '建立一組dataTable
Dim conn As New SqlConnection(connString) '建立連結
Dim da As New SqlDataAdapter(queryString, conn) '執行指令
da.Fill(dt) '將讀取的資料置入DataTable
conn.Close()
Dim JsonOutput as String = JsonConvert.SerializeObject(dt,Formatting.Indented) '將DataTable內的資料轉換為Json格式