الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

وظيفة ASP المخصصة، تقليد وظيفة المجال DLookup في VBA

الكاتب：Eve Cole وقت التحديث：2009-06-24 16:47:28
دالة dlookup (strFieldName، strTableName، strWhere، objConn)
قم بتنزيل Access VBA باستخدام Dlookup
لقد قمت بإنشاء موقع ويب لـ ObjConn، وقمت بزيارة Adodb.connection.
خافت strsql
خافت روبية
تعيين rs = server.CreateObject("adodb.recordset")
'قم بإنشاء قاعدة بيانات للتحقق من قاعدة بيانات checksql ()
strFieldName = checksql(strFieldName)
إذا strWhere <> "" ثم
strWhere = "حيث" & strWhere
نهاية إذا
strsql="select "&strfieldname&" من "&strtablename&" " & strwhere
'debugstop strsql
على خطأ استئناف التالي
rs.Open strsql، objConn، 1، 1
إذا أخطأ <> 0 ثم
الاستجابة.كتابة خطأ.الوصف
استجابة. النهاية ()
نهاية إذا

إذا rs.EOF وrs.BOF ثم
دلوك اب = ""
آخر
'要用一个自定义函数 NZ
'مزيد من المعلومات حول ACCESS VBA
dlookup = Nz(rs(strFieldName), "")
نهاية إذا
إغلاق
وظيفة النهاية
مقالات ذات صلة