<webmethod()> _ <ScriptMethod(ResponseFormat:=ResponseFormat.Json)> _ Public Function getConfigurationValueByKey(ByVal strKeyName As String) As String Dim sqlConnection As SqlConnection = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnStr").ConnectionString) sqlConnection.Open() Dim sqlCommand As SqlCommand = New SqlCommand("SELECT * FROM table1 WHERE column1 ='" + strKeyName + "';", sqlConnection) Dim sqlDataset As DataSet = New DataSet() Dim sqlDataAdapter As SqlDataAdapter = New SqlDataAdapter(sqlCommand) sqlDataAdapter.Fill(sqlDataset) sqlConnection.Close() Dim MArray()() As String = New String(sqlDataset.Tables(0).Rows.Count)() {} Dim i As Integer = 0 For Each rs As DataRow In sqlDataset.Tables(0).Rows MArray(i) = New String() {rs("userid").ToString(), rs("name").ToString()} i = i + 1 Next Dim js As JavaScriptSerializer = New JavaScriptSerializer() Dim sJSON As String = js.Serialize(MArray) Return sJSON End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)