การเขียนโค็ดเพื่อเรียกใช้ฐานข้อมูล Access ภาษา ASP Classic

Basic Syntax #1

<%
'คำสั่งเรียกใช้ฐานข้อมูล
set conn=server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("DATABASE-File")

sql="select * From TABLE-Name"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3

'คำสั่งให้แสดงข้อมูลในฟิลด์
Response.Write(rs("FIELD NAME"))
%>

ตัวอย่าง #1
<%
'คำสั่งเรียกใช้ฐานข้อมูล
set conn=server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("db.mdb")

sql="select * From tbCustomer "
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3

'คำสั่งให้แสดงข้อมูลในฟิลด์
Response.Write(rs("T_Name"))
Response.Write(rs("F_Name"))
Response.Write(" - ")
Response.Write(rs("L_Name"))

rs.close
conn.close
%>

ผลลัพท์ #1
นายนที - จูไธสง

Basic Syntax #2

<%
'คำสั่งเรียกใช้ฐานข้อมูล
set conn=server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("DATABASE-File")

sql="select * From TABLE-Name"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3

'คำสั่งให้แสดงข้อมูลในฟิลด์
Response.Write(rs.Fields("FIELD NAME").Value)

conn.close
set rs=nothing
set conn=nothing
%>

ตัวอย่าง #2
<%
'คำสั่งเรียกใช้ฐานข้อมูล
set conn=server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("db.mdb")

sql="select * from tbCustomer "
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1,3

'คำสั่งให้แสดงข้อมูลในฟิลด์
Response.Write(rs.Fields("T_Name").Value)
Response.Write(rs.Fields("F_Name").Value)
Response.Write(" - ")
Response.Write(rs.Fields("L_Name").Value)

conn.close
set rs=nothing
set conn=nothing
%>

ผลลัพท์ #2
นายนที - จูไธสง

Basic Syntax #3

<%
'คำสั่งเรียกใช้ฐานข้อมูล
set rs = server.createobject("adodb.recordset")
conn="driver={microsoft access driver (*.mdb, *.accdb)};dbq=" & server.mappath("DATABASE-File")
sql = "select * from TABLE-Name"
rs.open sql, conn, 1, 3

'คำสั่งให้แสดงข้อมูลในฟิลด์
Response.Write(rs.Fields("FIELD NAME").Value)
%>

ตัวอย่าง #3
<%
set rs = server.createobject("adodb.recordset")
conn="driver={microsoft access driver (*.mdb, *.accdb)};dbq=" & server.mappath("db.mdb")
sql = "select * from tbCustomer "
rs.open sql, conn, 1, 3

'คำสั่งให้แสดงข้อมูลในฟิลด์
  Response.Write(rs("T_Name"))
  Response.Write(rs("F_Name"))
  Response.Write(" - ")
  Response.Write(rs("L_Name"))

rs.close
set rs = nothing
%>

ผลลัพท์ #3
นายนที - จูไธสง