نسخة الكود كما يلي:
'**************************************************
فيما يلي وظائف ذات صلة بقواعد البيانات
'**************************************************
'=========================================================
تهيئة كائن اتصال قاعدة البيانات
مبدأ الاستخدام: اتصل بالأحدث ، قم بإصدار الأقرب
'=========================================================
subdbconnbegin ()
إذا كان كائن قاعدة البيانات مفتوحًا بالفعل ، فلا تفتحه مرة أخرى
ifisObject (Oconn) = truethenexitsub
"يمكنك فتح كائن تعيين السجل مباشرة دون فتح كائن اتصال قاعدة البيانات ، ولكن إذا كنت بحاجة إلى فتح كائنات تعيين سجلات متعددة ، فإن الكفاءة غير فعالة للغاية.
"إذا لم تنشئ كائن اتصال قاعدة بيانات ، فسيقوم ADO تلقائيًا بإنشاء كائن اتصال قاعدة بيانات جديد عند فتح كل مجموعة سجلات ، حتى لو كنت تستخدم نفس عبارة SQL.
setoconn = server.createObject ("adodb.connection")
onerrorresumenext
Oconn.Open "Provider = microsoft.jet.oledb.4.0 ؛ datasource =" & server.mappath ("db/lbedit.mdb")
iferr.number> 0then
عرض رسالة الخطأ وأرسل بريدًا إلكترونيًا لإخطار المسؤول
'calldbconnerror (err)
الخروج من البرنامج النصي الجري بالكامل
استجابة
Endif
"إنشاء مجموعة سجلات
setors = server.createObject ("adodb.recordset")
ينتهي