Blok kode pertama dalam contoh berikut adalah tipikal jenis aplikasi ASP yang menggunakan ADO untuk membaca dan memanipulasi kumpulan data yang dikembalikan dari satu kueri SQL. Ia menggunakan objek ADO Recordset untuk membaca catatan data yang dikembalikan dari database sampel Northwind yang disediakan dengan Microsoft Access. Kode akan dimuat dalam file dengan ekstensi file .asp.
[Dasar Visual]
< %@LANGUAGE=VBSCRIPT% >
<!
Contoh ASP ini menggunakan ADO untuk membaca catatan dari database dan mencetak dua
bidang dari semua catatan yang dikembalikan ke halaman ASP. Koneksi ke database Northwind melalui sumber data sistem ODBC (DSN.
>
<html>
<tubuh>
<%
redupkan ADOconn, ADOrs, sqlstr
sqlstr="PILIH * DARI Karyawan;"
atur ADOconn = Server.CreateObject("ADODB.Koneksi")
ADOconn.Buka "DSN = Uji"
atur ADOrs = ADOconn.execute(sqlstr)
jika ADOrs.BOF dan ADOrs.EOF maka ' Kueri tidak mengembalikan catatan apa pun.
Response.Write("Tidak Ada Catatan.")
kalau tidak
ADOrs.MoveFirst
Lakukan Saat Bukan ADOrs.EOF
Respon.Tulis(ADOrs("Nama Depan") & " " _
& ADOrs("Nama Belakang") & "<br>")
ADOrs.MoveNext
Lingkaran
Response.Write("<p>Akhir data.")
berakhir jika
ADOrs.tutup
setel ADOr = tidak ada
%>
</tubuh>
</html>
Contoh berikut mengilustrasikan perubahan minimum yang diperlukan untuk mengubah contoh sebelumnya menjadi aplikasi ASP.NET. Sebagian besar perubahan diperlukan untuk mematuhi sintaks Visual Basic yang baru. File ini dapat diganti namanya dengan ekstensi file .aspx dan akan dijalankan dengan ASP.NET. Baris kode yang dimodifikasi ditampilkan dalam huruf tebal. Perhatikan bahwa direktif <%@ Page > dengan atribut aspcompat=true telah ditambahkan pada baris pertama.
[Dasar Visual]
< %@Page aspcompat=Bahasa sebenarnya = VB%>
<!
Contoh ini menggunakan ADO untuk membaca catatan dari database dan mencetak dua
bidang dari semua catatan dalam database ke halaman ASP.NET.
Basis data terletak di server dan koneksi melalui sumber data sistem ODBC (DSN.
>
<html>
<tubuh>
<%
redupkan objConn, rs, sqlstr
sqlstr="PILIH * DARI Karyawan;"
objConn = Server.CreateObject("ADODB.Connection") ' Kumpulan dihapus.
objConn.Open("DSN=TEST") ' Tanda kurung ditambahkan.
rs = objConn.execute(sqlstr) ' Set pernyataan dihapus.
Response.Write("<p>ADO Test</p>")
jika rs.BOF dan rs.EOF maka ' Query tidak mengembalikan data apa pun.
Response.Write("Tidak Ada Catatan")
kalau tidak
rs.MoveFirst
Lakukan Sementara Bukan rs.EOF
'Tentukan properti Nilai.
Respon.Tulis(rs("Nama Depan").Nilai _
& " " & rs("Nama Belakang").Nilai & "<br>")
rs.MoveNext
Lingkaran
Response.Write("<p>Akhir data")
berakhir jika
rs.tutup
rs = tidak ada ' Pernyataan set dihapus.
%>
Contoh selanjutnya adalah aplikasi ASP.NET yang menggunakan ADO.NET untuk membaca record dari database Northwind yang sama seperti contoh sebelumnya. Output yang dihasilkan oleh kode ini setara dengan output dari contoh sebelumnya, dan telah dimodifikasi agar sesuai dengan konvensi blok kode ASP.NET.
Contoh ini membuat objek ADO.NET DataSet, yang dalam hal ini berisi tabel data yang dapat digunakan dengan cara yang hampir sama seperti kumpulan data ADO. Perhatikan bahwa kumpulan data dapat terdiri dari satu atau lebih kumpulan DataTables, DataRelations, dan Constraints yang membentuk database yang tinggal di memori, sehingga kumpulan data ADO.NET jauh lebih fleksibel daripada kumpulan data ADO.
Untuk menggunakan ADO.NET, namespace System.Data dan System.Data.OleDb perlu diimpor. Jika sumber datanya adalah database SQL Server, impor namespace System.Data.SqlClient, bukan System.Data.OleDb. Untuk informasi selengkapnya tentang penggunaan ADO dan objek koneksi Penyedia Data SQL .NET, lihat Mengelola Koneksi.
[Dasar Visual]
< %@Impor Namespace="Sistem.Data"%>
< %@Import Namespace="System.Data.OleDb"%>
<!
Contoh ini menggunakan ADO.NET untuk membaca catatan dari database dan mencetak dua
bidang dari semua catatan yang dikembalikan ke halaman ASP.NET
terletak di server lokal.
>
<html>
<Bahasa Skrip=VB Runat=Server>
Sub Page_Load(Pengirim Sebagai Objek, dan Sebagai EventArgs)
Redupkan MyConnection Sebagai OleDbConnection
Redupkan MyCommand Sebagai OleDbDataAdapter
redupkan MyDataset Sebagai DataSet
redupkan MyTable Sebagai DataTable
redupkan loop1, angka Sebagai Integer
redupkan sqlstr Sebagai String
sqlstr = "PILIH * DARI Karyawan;"
' Buat koneksi ke sumber data.
MyConnection = OleDbConnection Baru("Penyedia=SQLLEDB;" _
& "server=localhost;"Keamanan Terintegrasi=SSPI;" _
& "Katalog Awal=Northwind")
' Buat objek Perintah dengan pernyataan SQL.
MyCommand = New OleDbDataAdapter(sqlstr, MyConnection)
' Isi DataSet dengan data yang dikembalikan dari database.
Kumpulan Data Saya = Kumpulan Data Baru
Perintah Saya.Isi(Kumpulan Data Saya)
' Buat objek DataTable baru dan tetapkan padanya
' tabel baru dalam koleksi Tabel.
Tabel Saya = Tabel Data Baru
Tabel Saya = Kumpulan Data Saya.Tabel(0)
' Temukan berapa banyak baris dalam koleksi Baris
' dari objek DataTable yang baru.
angka = Tabel Saya.Baris.Hitungan
Jika angka = 0 maka
Response.Write("<p>Tidak ada catatan.</p>")
Kalau tidak
Response.Write("<p>" & Cstr(angka baris) & " catatan ditemukan.</p>")
Untuk loop1 = 0 Ke angka - 1
' Cetak nilai dari dua kolom di Kolom
' koleksi untuk setiap baris.
Response.Write(MyTable.Rows(loop1).Item("Nama Depan") _
& " " & Tabel Saya.Baris(loop1).Item("Nama Belakang") & "<br>")
Putaran berikutnya1
Akhiri Jika
Response.Write("<p>Akhir data.</p>")
Akhiri Sub
</Skrip>
</html>
Dalam situasi di mana query database (atau bahkan query gabungan multi-tabel) mengembalikan satu recordset, satu DataTable (MyTable dalam contoh ini) dapat digunakan dengan cara yang hampir sama seperti recordset ADO.
Lihat "Dokumentasi NET FRAMEWORK SDK"