-
-
'คลาสการดำเนินการฐานข้อมูล
-
'ชื่อ: Class_DBPerate
'เวอร์ชัน: 0.2
'ผู้เขียน: ชีหังเน็ต
'อัปเดต: 14 มิถุนายน 2548
'ฟังก์ชัน: ลดความซับซ้อนของกระบวนการดำเนินการฐานข้อมูล
'การอนุญาต: ใช้งานฟรี'
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
คลาส Class_DBOperate
'********** * **************************
'คำจำกัดความของตัวแปร
-
'Conn ---------- วัตถุการเชื่อมต่อฐานข้อมูล
'Conn_Str ------ สตริงการเชื่อมต่อฐานข้อมูล
Conn ส่วนตัว Conn_Str
'************************************ ** ***
'การเริ่มต้น/การยกเลิกอินสแตนซ์
'************************************
Class_Initialize ส่วนตัวย่อย ()
ตั้งค่า Conn = Server.CreateObject("ADODB.Connection")
สิ้นสุด
ย่อยส่วนตัวย่อย Class_Terminate()
SetConn=ไม่มีอะไร
จบซับ
'************************************
'คุณสมบัติ
'************************************
'ส่งออกสตริงการเชื่อมต่อฐานข้อมูล
'ชนิดของค่าที่ส่งคืน: คุณสมบัติสตริง
รับ ConnectString
ConnectString = Conn_Str
คุณสมบัติสิ้นสุด
'ตั้งค่าสตริงการเชื่อมต่อฐานข้อมูล (สตริงการเชื่อมต่อฐานข้อมูล)
' พารามิเตอร์: str ---
คุณสมบัติสตริง ให้ ConnectString(str)
Conn_Str = STR
ทรัพย์สินสุดท้าย
'************************************
'เหตุการณ์
'************************************
'ฐานข้อมูลเปิดขึ้น
สาธารณะย่อย DB_Open() .
Conn.ConnectionString = Conn_Str
คอน.เปิด
สิ้นสุดฐานข้อมูลย่อย
'ถูกปิด
สาธารณะย่อย DB_Close()
คอน.ปิด
จบซับ
'************************************
'วิธี
'************************************
'แบบสอบถามฐานข้อมูล (คำสั่ง sql)
'พารามิเตอร์และหมวดหมู่: sql ---- string'
'ชนิดของค่าตอบแทน: ชุดระเบียน
' วิชาบังคับก่อน: สถานะฐานข้อมูลเปิด
Public Function DB_Select(sql)
ตั้งค่า DB_Select = Conn.Execute(sql)
ฟังก์ชันสิ้นสุด
'การดำเนินการฐานข้อมูล (คำสั่ง SQL)
'พารามิเตอร์และหมวดหมู่: sql ---- string'
'ประเภทค่าตอบแทน: จำนวนเต็ม
'ความหมายของค่าส่งคืน: จำนวนแถวที่ได้รับผลกระทบ
' วิชาบังคับก่อน: สถานะฐานข้อมูลเปิด
Public Function DB_Excute(sql)
rs_affected จางลง
Conn.Execute sql, rs_affected
DB_Excute = rs_affected
ฟังก์ชันสิ้นสุด
คลาสสิ้นสุด
-