عندما نستخدم مكون ADO المدمج في ASP لبرمجة قاعدة البيانات، فإننا عادةً ما نفتح اتصالاً في بداية البرنامج النصي ونغلقه في نهاية البرنامج النصي، ومع ذلك، بالنسبة للبرامج النصية الأكبر حجمًا، يكون وقت فتح الاتصال أطول في معظم الحالات يستغرق فتحه وقتًا أطول بكثير. لذلك، من أجل حفظ موارد الخادم، يجب إغلاق الاتصال قدر الإمكان لتحرير الموارد التي يشغلها الاتصال. وتسمى هذه التقنية لإغلاق اتصال مجموعة السجلات دون إغلاق مجموعة السجلات بمجموعة سجلات غير متصلة، و مجموعة السجلات نفسها تسمى مجموعة السجلات غير المتصلة.
سنستخدم أدناه مثالًا لتوضيح استخدام هذه التقنية (NorthWind.mdb هي قاعدة بيانات تأتي مع Microsoft Access97، ويمكن العثور على الملف adovbs.inc ضمن C:Program FilesCommon FilesSystemADO):
＜ % @LANGUAGE= VBScript %＞
＜!--#includefile="adovbs.inc"--＞
＜%
Response.Expires = 0
Dim Cnn,objRS, strOut, strQ, strC
StrC= "Driver={Microsoft Access Driver ( * .mdb)}; DBQ=" & Server.MapPath("asp24") & "NorthWind.mdb;"
'إنشاء اتصال
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open StrC
'إنشاء
مجموعةكائنات السجلات
objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = "حدد معرف الناقل، اسم الشركة، الهاتف من الناقل"
objRS.Open strQ ، Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'افصل مجموعة السجلات
Cnn.Close' أغلق الاتصال
Set Cnn = Nothing
Response.Write "＜HTML＞＜BODY＞"
'استخدم مجموعة السجلات المنفصلة
Do while (NotobjRS .EOF) )
strOut = objRS("معرف الشاحن") & ", " & objRS("اسم الشركة") & ", " & objRS("الهاتف")
Response.Write Server.HTMLEncode(strOut) & "＜BR ＞"
objRS. MoveNext
Loop
Response.Write "＜BR＞ الاستعداد لإضافة السجلات أو إدراجها: "
'إذا كنت بحاجة إلى تحديث قاعدة البيانات، أعد تأسيس الاتصال
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open strC
Set objRS .ActiveConnection = Cnn
objRS.Filter = "اسم الشركة = 'Wu Feng'"
إذا كان objRS.EOF ثم
objRS.AddNew
objRS("اسم الشركة") = "Wu Feng"
objRS("الهاتف") = "571-7227298"
objRS .تحديث
Response.Write "إذا كان السجل الذي يلبي الشرط غير موجود، فقم بإضافته. <BR>"
Else
objRS("Telephone") = "571-7227071"
Response.Write "إذا كان السجل الذي يلبي الشرط موجودًا ، ثم تحديث ＜BR＞"
objRS.Update
End If
Set objRS.ActiveConnection = Nothing
Cnn. Close
Set Cnn = Nothing
objRS.Close
Set objRS = Nothing
Response.Write "＜/BODY＞＜/HTML＞"
%＞