รวบรวมรหัสเอฟเฟกต์พิเศษของหน้าเว็บที่ใช้งานได้จริงที่สุด!
ฟังก์ชั่น dlookup (strfieldname, strTableName, strows, objconn)
'ฟังก์ชั่นการอ้างอิง dlookup ในการเข้าถึง VBA
'เนื่องจากสภาพแวดล้อมที่แตกต่างกันจึงมีการเพิ่มพารามิเตอร์ OBJCONN และ ADODB.Connection จะถูกถ่ายโอนโดยตรงใน
สลัว strsql
สลัวอาร์เอส
ตั้งค่า rs = server.createObject ("adoDb.oldset"))
'เรียกฟังก์ชั่นที่กำหนดเองภายนอกตรวจสอบ ()
strfieldName = checksQl (strfieldName)
ถ้า strhere <> "" แล้ว
strows = "Where" & Strong
สิ้นสุดถ้า
strsql = "select" & strfieldname & "จาก" & strTableName & "" & strows
'debugstop strsql
เมื่อเกิดข้อผิดพลาดต่อไป
Rs.oopen strsql, objconn, 1, 1
ถ้า err <> 0 แล้ว
Response.write err.descripting
Response.end ()
สิ้นสุดถ้า
ถ้า RS.EOF และ Rs.Bof แล้ว
dlookup = "" "
อื่น
'เพื่อเรียกฟังก์ชันที่กำหนดเองนิวซีแลนด์
'สำหรับรายละเอียดโปรดดูข้อมูลของความช่วยเหลือการเข้าถึง VBA
dlookup = nz (rs (rs (strfieldname), "")
สิ้นสุดถ้า
Rs.close
ฟังก์ชันสิ้นสุด