ADO ADO Recordset (record set)
Untuk membaca data dari database, maka salah satu data pertama harus dimuat ke rekor tunggal.
Buat tabel ADO record set (ADO Table Recordset)
Setelah koneksi database ADO dibuat, seperti pada bab sebelumnya, maka kita dapat membangun sebuah rekor ADO mengatur.
Misalkan kita memiliki database yang disebut "Northwind", kita bisa menggunakan kode berikut untuk mengakses database "Pelanggan" tabel:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Customers", conn
%>
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Customers", conn
%>
Buat recordset ADO SQL (ADO SQL Recordset)
Kita juga bisa menggunakan SQL untuk mengakses data "Pelanggan" tabel:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
%>
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
%>
Data ekstrak terkonsentrasi dari catatan
Setelah merekam set dihidupkan, kita dapat mengambil data dari catatan.
Misalkan kita menggunakan database yang disebut "Northwind", kita bisa menggunakan kode berikut untuk mengakses database "Pelanggan" tabel:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
for each x in rs.fields
response.write(x.name)
response.write(" = ")
response.write(x.value)
next
%>
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
for each x in rs.fields
response.write(x.name)
response.write(" = ")
response.write(x.value)
next
%>