ไคลเอนต์ฐานข้อมูลสากลเรียนรู้โปรแกรมการเชื่อมต่อฐานข้อมูลสากล ไคลเอนต์ฐานข้อมูลนี้สามารถกล่าวได้ว่าเป็นไคลเอนต์ฐานข้อมูลสากลที่รองรับความครอบคลุมฐานข้อมูลและฐานข้อมูลทั้งหมดที่เราเห็น คุณรู้จักโปรแกรมการเชื่อมต่อฐานข้อมูลสากลหรือไม่? ให้บรรณาธิการของช่องเทคโนโลยีใหม่ของ Foot พาคุณไปเรียนรู้เพิ่มเติมเกี่ยวกับเรื่องนี้!
บทนำ: การเชื่อมต่อฐานข้อมูลและฟังก์ชั่นประเภทต่างๆสำหรับการดำเนินการฐานข้อมูล
โปรแกรมต่อไปนี้สามารถกล่าวได้ว่าเป็นโปรแกรมการเชื่อมต่อฐานข้อมูลสากลที่สามารถเชื่อมต่อกับฐานข้อมูล MS เกือบทั้งหมด โปรดใช้เพื่อการวิจัยด้วยตัวเอง (โปรแกรมนี้อยู่ในหนังสือ "การสอนการผลิตเว็บเพจ ASP" - หนังสือดีๆ):
-
-
ฟังก์ชั่น getMdbConnection (ชื่อไฟล์)
ผู้ให้บริการสลัว dbpath
ผู้ให้บริการ = "ผู้ให้บริการ = microsoft.jet.oLedb.4.0;"
dbpath = "data source =" & server.mappath (ชื่อไฟล์)
ตั้งค่า getMdBConnection = getConnection (ผู้ให้บริการและ DBPath)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getsecuredmdbconnection (ชื่อไฟล์รหัสผ่าน)
ผู้ให้บริการสลัว dbpath
ผู้ให้บริการ = "ผู้ให้บริการ = microsoft.jet.oLedb.4.0;"
dbpath = "data source =" & server.mappath (ชื่อไฟล์)
ตั้งค่า getSecureDMDBConnection = getConnection (ผู้ให้บริการ & dbpath & "; Jet OLEDB: รหัสผ่านฐานข้อมูล =" & รหัสผ่าน) ฟังก์ชั่นสิ้นสุดฟังก์ชั่น
-
ฟังก์ชั่น getDbCconnection (ชื่อไฟล์)
Dim Driver, sourcetype, dbpath
driver = "driver = {microsoft visual foxpro driver};"
sourcetype = "sourcetype = dbc;"
dbpath = "sourcedb =" & server.mappath (ชื่อไฟล์)
ตั้งค่า getDbCconnection = getConnection (ไดรเวอร์และ sourcetype & dbpath)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getdbfconnection (ไดเรกทอรี)
Dim Driver, sourcetype, dbpath
driver = "driver = {microsoft visual foxpro driver};"
sourcetype = "sourcetype = dbf;"
dbpath = "sourcedb =" & server.mappath (ไดเรกทอรี)
ตั้งค่า getDbfConnection = getConnection (ไดรเวอร์และ sourcetype & dbpath)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getExcelconnection (ชื่อไฟล์)
Dim Driver, dbpath
driver = "driver = {microsoft excel driver (*.xls)};"
dbpath = "dbq =" & server.mappath (ชื่อไฟล์)
ตั้งค่า getExcelConnection = getConnection (ไดรเวอร์ & "readonly = 0;" & dbpath) ฟังก์ชัน
-
ฟังก์ชั่น getTextConnection (ไดเรกทอรี)
Dim Driver, dbpath
driver = "driver = {microsoft text driver ( *.txt; *.csv)};"
dbpath = "dbq =" & server.mappath (ไดเรกทอรี)
ตั้งค่า getTextConnection = getConnection (ไดรเวอร์และ dbpath)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getSqlServerConnection (คอมพิวเตอร์, userID, รหัสผ่าน, DB)
Dim Params, Conn
SET GetSQlServerConnection = ไม่มีอะไร
params = "ผู้ให้บริการ = sqloledb.1"
params = params & "; แหล่งข้อมูล =" & คอมพิวเตอร์
params = params & "; id user id =" & userId
params = params & "; password =" และรหัสผ่าน
params = params & "; เริ่มต้นแคตตาล็อก =" & db
ตั้งค่า conn = server.createObject ("adodb.connection"))
conn.open params
ตั้งค่า getSqlServerConnection = conn
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getMdBrecordset (ชื่อไฟล์, แหล่งที่มา)
ตั้งค่า getMdBreCordSet = getMdbrs (ชื่อไฟล์, แหล่งที่มา, 2, "")
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getMdBstaticRecordset (ชื่อไฟล์, แหล่งที่มา)
ตั้งค่า getMdBStaticRecordSet = getMdbrs (ชื่อไฟล์, แหล่งที่มา, 3, "")
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getsecuredmdbrecordset (ชื่อไฟล์, แหล่งที่มา, รหัสผ่าน)
ตั้งค่า getSecureDMdBreCordSet = getMdbrs (ชื่อไฟล์, แหล่งที่มา, 2, รหัสผ่าน) ฟังก์ชันจบ
-
ฟังก์ชั่น getsecuredmdbstaticRecordset (ชื่อไฟล์แหล่งที่มารหัสผ่าน)
ตั้งค่า getSecureDMDBStaticRecordSet = getMdbrs (ชื่อไฟล์, แหล่งที่มา, 3, รหัสผ่าน) ฟังก์ชันจบ
-
ฟังก์ชั่น getdbfrecordset (ไดเรกทอรี, SQL)
ตั้งค่า getDbFrecordSet = getOtherrs ("dbf", ไดเรกทอรี, SQL, 2)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getDBFStaticRecordSet (ไดเรกทอรี, SQL)
ตั้งค่า getDbfStaticRecordSet = getOtherrs ("DBF", ไดเรกทอรี, SQL, 3)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getDbCrecordset (ชื่อไฟล์, SQL)
ตั้งค่า getDbCreCordSet = getOtherrs ("DBC", ชื่อไฟล์, SQL, 2)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getdbcstaticRecordset (ชื่อไฟล์, SQL)
ตั้งค่า getDBCStaticRecordSet = getOtherrs ("DBC", ชื่อไฟล์, SQL, 3)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getExcelRecordSet (ชื่อไฟล์, SQL)
ตั้งค่า getExcelRecordSet = getOtherrs ("excel", ชื่อไฟล์, SQL, 2)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getExcelStaticRecordSet (ชื่อไฟล์, SQL)
ตั้งค่า getExcelStaticRecordSet = getOtherrs ("excel", ชื่อไฟล์, SQL, 3)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น gettextrecordset (ไดเรกทอรี, SQL)
ตั้งค่า getTexTreCordSet = getOTHERRS ("ข้อความ", ไดเรกทอรี, SQL, 2)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getTextStaticRecordSet (ไดเรกทอรี, SQL)
ตั้งค่า getTextStaticRecordSet = getOTHERRS ("ข้อความ", ไดเรกทอรี, SQL, 3)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getSqlServerRecordSet (Conn, Source)
สลัวอาร์เอส
ตั้งค่า rs = server.createObject ("adodb.recordset"))
Rs.Open Source, Conn, 2, 2
ตั้งค่า getSqlServerRecordSet = rs
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น GetSqlServerStaticRecordSet (Conn, Source)
สลัวอาร์เอส
ตั้งค่า rs = server.createObject ("adodb.recordset"))
Rs.Open Source, Conn, 3, 2
ตั้งค่า getSqlServerstaticRecordset = rs
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getConnection (param)
หรี่
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า getConnection = ไม่มีอะไร
ตั้งค่า conn = server.createObject ("adodb.connection"))
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
conn.open param
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
ตั้งค่า getConnection = conn
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getMdbrs (ชื่อไฟล์, แหล่งที่มา, เคอร์เซอร์, รหัสผ่าน)
Dim Conn, RS
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า getMdbrs = ไม่มีอะไร
ถ้า len (รหัสผ่าน) = 0 แล้ว
ตั้งค่า conn = getMdBConnection (ชื่อไฟล์)
อื่น
ตั้งค่า conn = getSecuredMdbConnection (ชื่อไฟล์รหัสผ่าน)
สิ้นสุดถ้า
ถ้า conn ไม่มีอะไรแล้วออกจากฟังก์ชัน
ตั้งค่า rs = server.createObject ("adodb.recordset"))
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
Rs.Open Source, Conn, เคอร์เซอร์, 2
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
ตั้งค่า getMdbrs = rs
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getotherrs (ข้อมูล, เส้นทาง, SQL, เคอร์เซอร์)
Dim Conn, RS
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า getotherrs = ไม่มีอะไร
เลือกประเภทข้อมูลเคส
กรณี "dbf"
Set Conn = getDBFConnection (PATH)
กรณี "DBC"
Set Conn = getDbCconnection (PATH)
กรณี "Excel"
ตั้งค่า conn = getExcelconnection (เส้นทาง)
กรณี "ข้อความ"
ตั้งค่า conn = getTextConnection (พา ธ )
สิ้นสุดเลือก
ถ้า conn ไม่มีอะไรแล้วออกจากฟังก์ชัน
ตั้งค่า rs = server.createObject ("adodb.recordset"))
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
Rs.Open SQL, Conn, เคอร์เซอร์, 2
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
ตั้งค่า getotherrs = rs
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น getSqlServerrs (คอมพิวเตอร์, userid, รหัสผ่าน, db, แหล่งที่มา, เคอร์เซอร์)
Dim Conn, RS
เมื่อเกิดข้อผิดพลาดต่อไป
Set getSqlServerrs = ไม่มีอะไร
ตั้งค่า conn = getSqlServerConnection (คอมพิวเตอร์, userId, รหัสผ่าน, db)
ถ้า conn ไม่มีอะไรแล้วออกจากฟังก์ชัน
ตั้งค่า rs = server.createObject ("adodb.recordset"))
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
Rs.Open Source, Conn, เคอร์เซอร์, 2
ถ้า err.number <> 0 จากนั้นออกจากฟังก์ชัน
ตั้งค่า getSqlServerrs = rs
ฟังก์ชันสิ้นสุด
-
ข้างต้นเป็นการแนะนำรายละเอียดเกี่ยวกับโปรแกรมการเชื่อมต่อฐานข้อมูลสากล สำหรับเนื้อหาเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับช่องทางเทคโนโลยีใหม่ที่ผิด!