-
'###### ต่อไปนี้เป็นไฟล์คลาสและคำอธิบายประกอบต่อไปนี้คือวิธีการโทร ระดับ############################################################################################################### -
'# หมายเหตุ: หากระบบไม่รองรับการสร้างสคริปต์วัตถุ FilesYstemObject จะไม่ใช้ฟังก์ชั่นการบีบอัดฐานข้อมูล
'# การเข้าถึงคลาสฐานข้อมูล
'# createBfile สร้างไฟล์ฐานข้อมูลการเข้าถึง
'# CompactDatabase บีบอัดไฟล์ฐานข้อมูลการเข้าถึง
'# สร้างวิธีวัตถุ:
'# set a = databasetools ใหม่
'# โดย (Xiao Hanxue) SF
-
Databasetools คลาส
ฟังก์ชั่นสาธารณะที่สร้างขึ้น bfile (byval dbfilename, byval dbver, byval savepath)
'สร้างไฟล์ฐานข้อมูล
'ถ้า dbver เป็น 0 แล้วสร้าง access97 dbfile
'ถ้า dbver เป็น 1 ให้สร้าง access2000 dbfile
เมื่อเกิดข้อผิดพลาดต่อไป
ถ้าถูกต้อง (savepath, 1) <> "/" หรือขวา (savepath, 1) <> "/" จากนั้น savepath = trim (savepath) & "/"
ถ้าซ้าย (dbfilename, 1) = "/" หรือซ้าย (dbfilename, 1) = "/" จากนั้น dbfilename = trim (mid (dbfilename, 2, len (dbfilename))))))))))))))))
ถ้า dbexists (savepath & dbfilename) แล้ว
Response.write ("ขออภัยฐานข้อมูลนี้มีอยู่แล้ว!")
createBfile = false
อื่น
Dim CA
ตั้งค่า ca = server.createObject ("adox.catalog")
ถ้า err.number <> 0 แล้ว
Response.write ("ไม่สามารถจัดตั้งได้โปรดตรวจสอบข้อความแสดงข้อผิดพลาด
"& err.number &"
"& err.description)
err.lear
ฟังก์ชั่นออก
สิ้นสุดถ้า
ถ้า dbver = 0 แล้ว
โทร ca.create ("ผู้ให้บริการ = microsoft.jet.oledb.3.51; แหล่งข้อมูล =" & savepath & dbfilename)
อื่น
โทร ca.create ("ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & savepath & dbfilename)
สิ้นสุดถ้า
ตั้งค่า ca = ไม่มีอะไร
createBfile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นสาธารณะ compactDatabase (byval dbfilename, byval dbver, byval savepath)
'ไฟล์ฐานข้อมูลบีบอัด
'0 สำหรับการเข้าถึง 97
'1 สำหรับ Access 2000
เมื่อเกิดข้อผิดพลาดต่อไป
ถ้าถูกต้อง (savepath, 1) <> "/" หรือขวา (savepath, 1) <> "/" จากนั้น savepath = trim (savepath) & "/"
ถ้าซ้าย (dbfilename, 1) = "/" หรือซ้าย (dbfilename, 1) = "/" จากนั้น dbfilename = trim (mid (dbfilename, 2, len (dbfilename))))))))))))))))
ถ้า dbexists (savepath & dbfilename) แล้ว
Response.write ("ขออภัยฐานข้อมูลนี้มีอยู่แล้ว!")
compactDatabase = false
อื่น
ซีดีสลัว
ตั้งค่า cd = server.createObject ("jro.jetengine")
ถ้า err.number <> 0 แล้ว
Response.write ("ไม่สามารถบีบอัดได้โปรดตรวจสอบข้อความแสดงข้อผิดพลาด
"& err.number &"
"& err.description)
err.lear
ฟังก์ชั่นออก
สิ้นสุดถ้า
ถ้า dbver = 0 แล้ว
โทร CD.CompactDatabase ("ผู้ให้บริการ = microsoft.jet.oLedB.3.51; แหล่งข้อมูล =" & savepath & dbfilename, "ผู้ให้บริการ = microsoft.jet.oLedb.3.51; ข้อมูล
source = "& savepath & dbfilename &" .bak.mdb; Jet OLEDB; ENCRYPT DATABASE = TRUE ")
อื่น
โทร CD.CompactDatabase ("ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" &
SavePath & dbfilename, "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" &
SavePath & dbfilename & ".bak.mdb; Jet OLEDB; ENCRYPT DATABASE = TRUE")
สิ้นสุดถ้า
'ลบไฟล์ฐานข้อมูลเก่า
โทร DELETEFILE (SAVEPATH & DBFILENAME)
'กู้คืนไฟล์ฐานข้อมูลที่บีบอัด