Listing 1 : Code pour produire un RecordSet ADO
<!--#include file="adovbs.inc"-->
<%
Dim connStr, rs
connStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=pubs;Data Source=localhost"
SET rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Authors", connStr, adOpenForwardOnly, adLockOptimistic, adCmdTable
WHILE NOT rs.EOF
response.write rs("au_fname") & "," & rs("au_lname")& "<br>"
rs.moveNext
END
SET rs=nothing
%>
Listing 2
: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
Téléchargez cette ressource
Rapport mondial 2025 sur la réponse à incident
Dans ce nouveau rapport, les experts de Palo Alto Networks, Unit 42 livrent la synthèse des attaques ayant le plus impacté l'activité des entreprises au niveau mondial. Quel est visage actuel de la réponse aux incidents ? Quelles sont les tendances majeures qui redessinent le champ des menaces ? Quels sont les défis auxquels doivent faire face les entreprises ? Découvrez les top priorités des équipes de sécurité en 2025.