CITO ADJUNTO EL CODIGO DE VISUAL
SALUDOS
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web.Services
Imports Newtonsoft.Json
Imports System.Linq
Imports System.IO
Partial
Class
Grid1
Inherits System.Web.UI.Page
Protected
Sub Page_Load(ByVal
sender As
Object,
ByVal e
As System.EventArgs)
Handles
Me.Load
If
Not
Me.IsPostBack
Then
Dim dummy
As DataTable =
New DataTable()
dummy.Columns.Add("CustomerID")
dummy.Columns.Add("ContactName")
dummy.Columns.Add("City")
dummy.Columns.Add("Country")
dummy.Rows.Add()
gvCustomers.DataSource = dummy
gvCustomers.DataBind()
'Required for jQuery DataTables to work.
gvCustomers.UseAccessibleHeader = True
gvCustomers.HeaderRow.TableSection = TableRowSection.TableHeader
End
If
End
Sub
<WebMethod>
Public
Shared
Function GetCustomers()
As List(Of
Customer)
Dim customers
As List(Of
Customer) = New List(Of
Customer)()
Dim constr
As
String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using con
As SqlConnection =
New SqlConnection(constr)
Using cmd
As SqlCommand =
New SqlCommand("SELECT CustomerID,
ContactName, City, Country FROM Customers", con)
con.Open()
Using sdr
As SqlDataReader = cmd.ExecuteReader()
While sdr.Read()
customers.Add(New Customer
With {
.CustomerID = sdr("CustomerID").ToString(),
.ContactName = sdr("ContactName").ToString(),
.City = sdr("City").ToString(),
.Country = sdr("Country").ToString()
})
End
While
End
Using
con.Close()
End
Using
End
Using
Return customers
End
Function
Public
Class
Customer
Public
Property CustomerID
As
String
Public
Property ContactName
As
String
Public
Property City
As
String
Public
Property Country
As
String
End
Class
End
Class
