การเขียนสคริปติดต่อฐานข้อมูล (DSN - DSN less)
Connection
Connection คือข้อมูลของช่องทางที่คุณจะต้องใช้ในการติดต่อกับฐานข้อมูล
ซึ่งข้อมูลเหล่านี้มีด้วยกันหลายส่วนเช่น ชนิดของฐานข้อมูล, ฐานข้อมูลอยู่ที่ไหน
และ ชื่อของฐานข้อมูลที่จะติดต่อด้วย เป็นต้น สำหรับวิธีการที่จะใช้ในการกำหนดข้อมูลของ
Connection เช่นการใช้ Data Source Name (DSN) และวิธี DSN-Less
Connection String
Connection String คือสตริงที่มีข้อมูลที่ใช้ในการติดต่อกับข้อมูลหรือฐานข้อมูล
ตัวอย่างการติดต่อผ่าน DSN
Dim
ObjRs1
Set
ObjRs1=Server.CreateObject(?ADODB.Recordset?)
ObjRs1.Open
?Shippers?,?DSN=NWinAccess?
Response.Write
?<B>แสดงผลของตัวอย่างวิธีใช้งาน DSN </B><BR>?
Do While Not
ObjRs1.EOF
Response.Write
ObjRs1.(?CompanyName?)&?<BR>?
ObjRs1.MoveNext
Loop
|
ตัวอย่างการติดต่อผ่าน DSN-Less
Dim
ObjRs1, strCon
StrCon=?DRIVER={Microsoft Access
Driver (*.mdb)};? _
?DBQ=C:\Program Files\Microsoft
Office\Office\Samples\Northwind.mdb?
Set
ObjRs1=Server.CreateObject(?ADODB.Recordset?)
ObjRs1.Open
?Shippers?,strCon
Response.Write
?<B>แสดงผลของตัวอย่างวิธีใช้งาน DSN Less</B><BR>?
Do While Not
ObjRs1.EOF
Response.Write
ObjRs1.(?CompanyName?)&?<BR>?
ObjRs1.MoveNext
Loop
|
จากตัวอย่างข้างต้นจะเห็นได้ว่า ตัวอย่างการติดต่อผ่าน
DSN-Less จะมีการเรียกใช้ strCon เพื่อสร้างการติดต่อ ส่วนตัวอย่างแบบ DSN
ไม่มีการใช้ strCon แต่คุณจะเป็นจะต้องทำการสร้าง DSN ที่เครื่อง Server
โดยมีขั้นตอนดังนี้
- เรียกใช้งานโปรแกรม ODBC Data Source
Administrator โดยจะอยู่ใน Control Panel
- เลือกแท็บ System DSN แล้วคลิกปุ่ม
Add..
- เลือก Microsoft Access Driver
คลิก ปุ่ม Finish
- กำหนด Data Source Name เป็น NwindAccess
- คลิกปุ่ม Select? แล้วทำการเลือกฐานข้อมูลที่ต้องการติดต่อ
(ในที่นี้คือ Nothwind.mdb ที่อยู่ใน C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb)
เมื่อเราได้สร้าง DSN แล้วทำให้เราสามารถติดต่อฐานข้อมูลตามในตัวอย่างการติดต่อฐานข้อมูลแบบ
DSN ดังข้างต้นได้
การใช้ SQL ร่วมกับฐานข้อมูล
ถ้าคุณเคยเรียนรู้ภาษา
SQL มาคุณจะทรายว่ามันมีคำสั่งที่ใช้บ่อยๆอยู่ชุดหนึ่งซึ่งได้แก่ SELECT,
INSERT, UPDATE และ DELETE ซึ่งคุณสามารถที่จะสร้าง SQL สตริงที่ใช้คำสั่งเหล่านี้ในการค้นหา,
การเพิ่ม, การลบ และการแก้ไข ข้อมูลที่อยู่ในฐานข้อมูล
ตัวอย่าง
Dim
ObjCon, strSQLAdd
StrCon=?Provider=Microsoft.Jet.OLEDB.4.0;?
& _
?Data Source=C:\Program
Files\Microsoft Office\Office\Samples\Northwind.mdb;? & _
?Persist Security Info=False?
Set
ObjCon=Server.CreateObject(?ADODB.Connection?)
ObjCon.Open
strCon
StrSQLAdd=?INSERT INTO Products(ProductName,
SupplierID, CategoryID, UnitPrice)?
StrSQLAdd= StrSQLAdd &
?VALUES(?Sourcecode?,1,1,35)?
ObjCon.Execute
strSQLAdd,,adCmdText
ObjCon.Close
Set
ObjCon=Nothing
|
|