> 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

Guide de facturation électronique, voie royale pour le DAF et la digitalisation de la fonction finance

Guide de facturation électronique, voie royale pour le DAF et la digitalisation de la fonction finance

Ce livre blanc expose les problématiques auxquelles sont confrontés les DAF modernes et souligne les bénéfices de la facturation électronique pour la trésorerie. Il dévoile également le processus de déploiement de ce projet de transformation digitale que la réglementation rendra bientôt obligatoire.

Tech - Par iTPro - Publié le 24 juin 2010