> Tech > Listings

Listings

Tech - Par iTPro - 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 gratuitement cette ressource

Comment sécuriser la Digital Workplace ?

Comment sécuriser la Digital Workplace ?

Avec le recours généralisé au télétravail, les entreprises ont ouvert davantage leur SI. En dépit des précautions prises, elles ont mécaniquement élargi leur surface d’exposition aux risques. Découvrez 5 axes à ne pas négliger dans ce Top 5 Sécurité du Télétravail.

Tech - Par iTPro - Publié le 24 juin 2010