Objek Recordset ADO digunakan untuk menyimpan sekumpulan record dari suatu tabel database dengan sintaks: rs.method rs.property
Recordset ADO
Berikut ini merupakan tabel atribut dari recordset Method pada ADO.
[table id=4 /]
Recordset Properties
Dibawah ini adalah tabel atribut yang ada pada recordset Properties.
[table id=5 /]
Menampilkan Data
Cara yang paling umum untuk menampilkan data dari suatu recordset, adalah menampilkan data dalam suatu tabel HTML.
Setelah suatu recordset dibuka, kita dapat menampilkan data dari recordset pada suatu page HTML. Karena kita menggunakan database “pegawai.mdb”, kita dapat menampilkan data dari tabel “pegawai” yang ada di dalamnya dengan perintah sebagai berikut:
Hasil gambar yang dihasilkan.
Lihat Script
<!–demo_koneksi_tanpa_tabel.asp–>
<html>
<body>
<%
set conn=Server . CreateObj ect (“ADODB. Connection” )
conn.Provider=”Microsoft.Jet.OLEDB.4.0″
conn.Open “c:/dbpeg/pegawai.mdb”
set rs = Server.CreateObject(“ADODB.recordset”)
rs.Open “select * from pegawai”, conn
do until rs.EOF
for each x in rs.Fields Response.Write(x.name)
Response.Write(” = “)
Resporttae .Write (x. value & “<br />”)
next
rs.MoveNext
loop
rs.close conn.close
%>
</html>
</body>
Kita dapat juga menampilkan data dari tabel “pegawai” di dalam suatu tabel HTML dengan kode berikut:
Lihat Script
<!–demo_koneksi_dg_tabel.asp–>
<html>
<body>
<%
set conn=Server.CreateObject(“ADODB.Connection”)
conn.Provider=”Microsoft.Jet.OLEDB.4.0″
conn.Open “c:/dbpeg/pegawai.mdb”
set rs = Server.CreateObject(“ADODB.recordset”)
rs.Open “select * from pegawai”, conn %>
<table border=”1″ width=”100%”>
<%do until rs.E0F%>
<tr>
<%for each x in rs.Fields%>
<tdx%Response . Write (x. value) %></td>
<%next
rs.MoveNext % >
</tr>
<%loop rs.close conn.close %>
</table>
</html>
</body>
Contoh ini mendemonstrasikan bagaimana menambahkan header ke dalam tabel HTML agar lebih mudah dibaca.
Lihat Script
<!–demo_koneksi_dg_header.asp–>
<html>
<body>
<%
set conn=Server.CreateObject(“ADODB.Connection”)
conn.Provider=”Microsoft.Jet.OLBDB.4.0″
conn.Open “<c:/dbpeg/pegawai.mdb”
set rs = Server.CreateObject(“ADODB.recordset”)
sql=”SELECT NIP, Nama FROM Pegawai”
rs.Open sql, conn %>
<table border=”1″ width=”100%”>
<tr>
<%for each x in rs.Fields
response.write(“<th>” & x.name & “</th>”)
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write (x.value) %></td>
<%next
rs.MoveNext % >
</kr>
<%loop rs.close conn.close %>
</table>
</body>
</html>
ADO dan SQL
Dengan SQL data yang akan ditampilkan dalam suatu page HTML dapat difilter dan diurutkan.
Contoh ini mendemonstrasikan bagaimana menampilkan data yang memenuhi suatu kriteria.
Lihat Script
<!–demo_koneksi_dg_select_like.asp–>
<html>
<body>
<%
set conn=Server.CreateObject(“ADODB.Connection”)
conn.Provider=”Microsoft.Jet.OLEDB.4.0″
conn.Open “c:/dbpeg/pegawai.mdb”
set rs=Server.CreateObject(“ADODB.recordset”)
sql as “SELECT * FROM pegawai WHERE nama LIKE ‘A%'”
rs.Open sql, conn
%>
ctable border=”l” width=”100%”>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<tdx%Response .Write (x. value) %x/td>
<%next
rs.MoveNext%>
</tr>
<%loop rs.close conn.close %>
</table>
</html>
</body>
Contoh ini mendemonstrasikan bagaimana mengurutkan data berdasarkan suatu field.
Lihat Script
<!–demo_koneksi_select_orderby.asp–>
<body>
<% ^
set conn=Server.CreateObject(“ADODB.Connection”)
conn.Provider=”Microsoft.Jet.OLEDB.4.0″
conn.Open “c:/dbpeg/pegawai.mdb”
set rs=Server.CreateObject(“ADODB.recordset”)
sql=”SELECT * FROM pegawai ORDER BY nama”
rs.Open sql, conn %>
<table border=”l” width=”100%”>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<tdx%Response .Write (x. value) %></td>
<%next
rs.MoveNext%>
</tr>
<%loop rs .close conn.close %>
</table>
</html>
</body>
Demonstrasi ADO
Berikut adalah contoh kecil aplikasi untuk melakukan penambahan pengeditan data pegawai.
Pada demo ini kita menggunakan fungsi server.mappath, digunakan untuk menambahkan path direktori faktual yang lengkap dari suatu file, dalam hal ini direktori faktual dari pegawai.mdb, secara otomatis nama database pegawai diberi dengan pathnya.Untuk perlu diperhatikan adalah bahwa lokasi dari pegawai.mdb tidak harus satu direktori dengan scriptnya. Dalam hal ini direktori database satu level dengan direktori program asp.
Lihat Script
<!-demo_db_list_edit.asp–>
<html>
<headxtitle>List Database</titlex/head>
<body>
<%
set conn=Server.CreateObject(“ADODB.Connection”)
conn.provider=”Microsoft.Jet.OLEDB.4.0;”
conn.open server.mappath(“../database/pegawai.mdb”)
set rs = Server.CreateObject(“ADODB.Recordset”)
rs.open “Select * from pegawai” , conn
%>
<h2>List Database (Klik pada button untuk mengedit)</h2>
<table border=”l” width=”100%”>
<tr>
<%
for each x in rs.Fields
response.write(“<th>” & x.name & “</th>”)
next
%>
</tr>
<%do until rs.E0F%>
<tr>
<%
for each x in rs.Fields
if x.name=”rti£>” then%>
<form method=”post” action=”demo_db_edit.asp”>
<td><input type=”submit” name=”nip” value=”<%=x.value%>”></td>
</form>
<%else%>
<td><%Response .Write (x. value) %></td>
<%end if
next
rs.MoveNext
%>
</tr>
<%
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html>
Demikian penjelasan singkat yang bisa admin sampaikan. Semoga artikel ini bisa menambah pengetahuan anda tentang dunia pemograman dan ilmu yang dibagikan dapat bermanfaat bagi pembaca. Sampai bertemu di postingan-postingan selanjutnya..see you ^-^
