' ก่อนอื่นก็ต้องประกาศตัวแปร (ควรสร้างความเคยชินและฝึกนิสัยที่ดี ในการพัฒนาโปรแกรม)
' เริ่มต้นประกาศ Connection ของการเชื่อมต่อกับฐานข้อมูล
Option Explicit
Dim ConnString
Dim Conn
' ประกาศตัวแปรเพื่อสร้าง RecordSet (ตารางฐานข้อมูล)
Dim RS
' Structure Query Language - (SQL - อ่านว่า ซีเควล) กำหนดไว้ให้เป็นตัวแปรสตริง
Dim strSQL
'
' ยกตัวอย่างน่ะครับว่าเป็นไฟล์ชื่อ database.mdb
' เราต้องการติดต่อกับ Microsoft Access File
' ซึ่งตรงหลัง Server.MapPath ก็คือตำแหน่งไฟล์ของเรานั่นเอง
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
' สร้างการเชื่อมต่อ หรือ Connection
Set Conn = Server.CreateObject("ADODB.Connection")
' สร้างตารางฐานข้อมูลชั่วคราวไว้ก่อน หรือ ที่เราเรียกว่า RecordSet
Set RS = Server.CreateObject("ADODB.RecordSet")
' เมื่อพร้อมแล้วก็ทำการเชื่อมต่อเข้ากับฐานข้อมูลได้เลย
Conn.Open ConnString
' เช่น การเชื่อมตารางลูกค้า (tblCustomer) โดยจัดเรียงตามหมายเลขลูกค้า (CustomerID)
strSQL = "SELECT * FROM tblCustomer ORDER BY CustomerID"
' เปลี่ยนเป็น 0 เมื่อต้องการให้อ่านไปข้างหน้า เพื่อเพิ่มความเร็วในการอ่านข้อมูล เพราะจะใช้ประโยชน์ในการตรวจสอบข้อมูล
RS.CursorType = 2
' 0 = adOpenForwardOnly
' 1 = adOpenKeySet
' 2 = adOpenDynamic
' 3 = adOpenStatic
' รายละเอียดขอไม่อธิบายน่ะครับ (ปกติก็ใช้ LockType = 3 เป็นการล็อกเรคคอร์ดแบบ Optimistic)
RS.LockType = 3
' ทำการเปิด Recordset
RS.Open strSQL, Conn
' แสดงผลข้อมูล (สมมุติน่ะครับ สมมุติน่ะครับ ว่ามีข้อมูลอยู่แล้ว)
'
' เช่น txtFirstname = RS("Firstname") เมื่อ Firstname คือชื่อฟิลด์ในตารางฐานข้อมูล
'
' ถ้าหากต้องการนับจำนวนข้อมูลในตารางทั้งหมดก็เขียน Code เพิ่มดังนี้
' Dim i
' i = 0
' DO Until RS.EOF
' i = i + 1
' RS.MoveNext
' LOOP
' Response.Write "จำนวนข้อมูลทั้งหมด: " & i
'
' สุดท้าย ท้ายสุด ก็อย่าลืมปิดฐานข้อมูลด้วยแล้วกันครับผม
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
