ASP

   

การติดต่อฐานข้อมูล Microsoft Access

ติดต่อฐานข้อมูลโดยตรง

เชื่อมต่อฐานข้อมูล
Dim conn, ObjDB
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"

Conn.Open Server.MapPath("database.mdb")
Set ObjDB = Server.CreateObject("ADODB.Recordset")

คำสั่ง SQL และสั่งให้ทำงาน
Sql= "Select * From Book"
ObjDB.open Sql,conn, adOpenStatic

ดึงข้อมูลครั้งละ 1 เรกคอร์ด
Response.Write(ObjDB.Fields.Item("BARCODE").Value)

ปิดการเชื่อมต่อ
ObjDB.Close()

คืนค่าตัวแปร
Set ObjDB = Nothing

---

ติดต่อฐานข้อมูลโดยผ่าน ODBC

เชื่อมต่อฐานข้อมูล
Set Recordset = Server.CreateObject("ADODB.Recordset")
Recordset.ActiveConnection = "DSN2Access"

คำสั่ง SQL และสั่งให้ทำงาน
Recordset.Source = "SELECT * FROM book"

เริ่มเอ็กซิคิวต์คำสั่ง SQL
Recordset.Open()

ดึงข้อมูลครั้งละ 1 เรกคอร์ด
Response.Write(Recordset.Fields.Item("BARCODE").Value)

ปิดการเชื่อมต่อ
Recordset.Close()

คืนค่าตัวแปร
Set Recordset = Nothing

**การติดต่อ ต้องติดตั้ง ODBC ก่อนถึงจะเรียกใช้ได้
สร้างเมือวันที่ : 30-06-2548