ASP

   

การติดต่อฐานข้อมูล SQL Server 2000

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

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

conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bookshop"
หรือ
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=;Password=;Initial Catalog=bookshop;Data Source=com"

Set ObjDB = Server.CreateObject("ADODB.Recordset")

Sql= "Select * From Book"

คำสั่ง SQL และสั่งให้ทำงาน
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 = "DSN2SQLServer"

คำสั่ง 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