Listings

:Un service Web qui renvoie un DataSet

Imports System.Web.Services
Imports System.Data.SqlClient
Public Class Service1
Inherits System.Web.Services.WebService
 Public Function getAuthors() AS DataSet
Dim sql AS String = "SELECT * FROM Authors"
Dim conn AS New SqlConnection("server=localhost; uid=sa;
password=; database=pubs")
Dim comm AS New SqlCommand(sql, conn)
Dim DataAdapter AS New SqlDataAdapter(comm)
Dim ds AS New DataSet()
Dim row AS DataRow
conn.Open()
DataAdapter.Fill(ds, "Authors_table")
conn.Close()
‘--Notice that the connection can be closed at this point because
--the DataSet is disconnected.
conn = Nothing
comm = Nothing
DataAdapter = Nothing
Return ds
END Function
END Class

Listing 3 : Code pour lier DataGrid à  un DataSet

Private Sub Page_Load(ByVal sender AS System.Object, ByVal e AS
System.EventArgs) Handles MyBase.Load
Dim ws AS New WebserviceDataset.Service1()
DataGrid1.DataSource = ws.getAuthors
DataGrid1.DataBind()
END Sub

Listing 4 : Code qui utilise ADO dans .NET

Dim conn AS New ADODB.Connection()
Dim rs AS ADODB.Recordset
conn.Open("Provider=SQLOLEDB.1;User ID=sa;Initial
Catalog=Northwind;Data Source=localhost;")
rs = conn.Execute("SELECT * FROM Customers")
WHILE NOT rs.EOF
Response.Write(rs("CustomerID").Value)
rs.MoveNext()
END WHILE
conn = Nothing
rs = Nothing