> Tech > Listings

Listings

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

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

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

Téléchargez cette ressource

Rapport mondial 2025 sur la réponse à incident

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.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010