【发布时间】:2010-02-19 14:09:53
【问题描述】:
我对 VB.NET 和 JSON 都是全新的,我正在尝试弄清楚如何对 SQL 2005 Express 服务器执行 SQL 查询并将返回值格式化为 JSON。我使用这个(可能非常像新手)代码让查询工作;
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Public Class SQLConnect
Inherits System.Web.UI.Page
'Defines SQL variables
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
Dim ReadData As String
Dim i As Integer
Sub Click(ByVal s As Object, ByVal e As EventArgs)
'Define SQL address, database, username and password
con.ConnectionString = "Data Source=localhost\SQLEXPRESS;Initial Catalog=tempdb;User ID=tesst;Password=test"
Try
'Initialize connection
con.Open()
'Specify SQL query
cmd = New SqlCommand("SELECT * FROM Member", con)
'Execute query, dump result array into variable
dr = cmd.ExecuteReader()
messageLabel.Text = "<br />Connection established<br />"
While (dr.Read)
i = 0
For i = 0 To dr.FieldCount - 1
'Dump query results into a variable
ReadData += dr.Item(i).ToString
Next
End While
'Print query results
messageLabel2.Text = ReadData
'Close connection
con.Close()
Catch ex As Exception
messageLabel.Text = "<br />Connection failed<br />"
End Try
End Sub
End Class
我一直在看this,我很想看到一些使用这个类或任何其他好方法的代码示例。
非常感谢您提供任何帮助,以及您可能有的任何要点和提示。
【问题讨论】: