Overview
ใน
article นี้มีจุดประสงค์เพื่อ
- แสดงการติดต่อใช้งาน
Oracle Database ด้วย OO4O สำหรับ ASP developer
System
Environment
- Oracle
Objects for OLE Version 8.1.7.3.12
- Oracle
Net8 8.1.7
- Oracle
Database 8.1.7 for Microsoft Windows NT/2000
- Microsoft
Windows 2000 with IIS5.0
- SQL*PLUS
and Notepad
Download
- Oracle
Database Software
สามารถ
Download ได้จาก http://otn.oracle.com/
- OO4O
สามารถ download ได้จาก
http://technet.oracle.com/software/tech/nt/ole/htdocs/listing.htm
(ในกรณีที่ท่าน
แผ่น Oracle Database Server อยู่แล้ว ท่าน สามารถติดตั้ง OO4O ได้จาก
แผ่น Oracle Database ได้เลย ครับผม )
Step-by-step
to create a program
Create
OraSession Object
เริ่มต้น
จากการสร้าง OraSession Object เพื่อใช้ในการ manage object ต่าง
ๆ ( OraDatabase, OraConnection และ OraDynaset ) ที่มีใช้งาน ใน
Application ของเรา
| Set
OraSession = CreateObject("OracleInProcServer.XOraSession") |
Create
OraDatabase Object
กำหนด
OraDatabase Object เพื่อเป็น Interface ระหว่าง user session กับ
Oracle Database ซึ่งในตัวอย่างจะเป็นการติดต่อกับ Database โดยผ่าน
connection String ชื่อ zeal ด้วย user scott/tiger และใช้ Option
ในการติดต่อด้วยค่า Default
| Set
OraDatabase = OraSession.DbOpenDatabase("zeal", "scott/tiger",
0) |
Create
an OraDynaset object from the specified SQL SELECT statement and
options
ทำการสร้าง
OraDynaset object โดยมีการกำหนด SQL SELECT statement ที่เราต้องการ
ซึ่งในที่นี้เราจะต้องการทั้งหมดที่อยู่ใน table emp พร้อมทั้งระบุ
option ในการดึงข้อมูล ซึ่งในตัวอย่างจะใช้ ค่า Default
| Set
OraDynaset = OraDatabase.CreateDynaset("SELECT * FROM EMP",
O) |
Returns
the collection of fields for the current row
นำรายละเอียดของ
Field ต่างๆ มาเก็บไว้ใน OraField object โดยที่ OraField object
จะเป็นการแสดงถึง Data item หรือ Column ของข้อมูล(เพียง Column
เดียว) ซึ่งได้จากข้อมูลในลักษณะ Row ของ dynaset.
| Set
OraFields = OraDynaset.Fields |
Get
number of fileds
จากนั้นตรวจสอบจำนวน
field ทั้งหมด ที่มี
| fieldNum
= OraFields.count |
Get
number of records
ตรวจสอบจำนวน
Record ทั้งหมดที่มีอยู่
| recNum
= OraDynaset.RecordCount |
Display
Field Name to your browser
ตัวอย่างในการ
แสดงชื่อ Field แต่ละ Field
| For
i = 0 To fieldNum - 1
Response.Write("<TD align=center>")
Response.Write(OraFields(i).Name)
Response.Write("</TD>")
Next |
Display
all data to your browser
และท้ายสุดเป็นตัวอย่างในการ
ข้อมูลในทุก Field ของแต่ละ Row
| For
j = 0 to recNum - 1
Response.Write("<TR>")
For i = 0 to fieldNum - 1
Response.Write("<TD>")
Response.Write(OraFields(i).Value)
Response.Write("</TD>")
Next
OraDynaset.MoveNext
Response.Write("</TR>")
Next |
ก็เป็นอันสิ้นสุด
ASP program ในการดึงข้อมูล จาก Oracle Database
Complete
Sample code:
ตัวอย่าง
Code ที่สมบูรณ์ ที่นี่ ครับ
- ASP
Program (if you use IE please use right mouse click for
download this source code )
References:
Keywords:
Oracle,database,ASP,OO4O
|