منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد قطع الإتصالات الآتية بواسطة الكود وذلك عندما كتبت كود هكذا

dim rs as recordset
dim db as database


Dim db9 As New ADODB.Connection
dim rss as new ADODB.Recordset

في منطقة general

.وفي الفورم لوود

Set db = OpenDatabase("data.mdb")

Set rs = db.OpenRecordset("Safe")

db9.Provider = "Microsoft.JET.OLEDB.4.0;"
db9.Open App.Path & "\data.mdb"
rss.Open "[Orders]", db9, adOpenStatic, adLockReadOnly

اذا كنت تقصد قطع الاتصال بالقاعدة فيكون
db.close
اذا الاتصال بالجدول للانتقال لجدول اخر
rs.close

(17-09-15, 02:43 AM)أبو عمر كتب : [ -> ]اذا كنت تقصد قطع الاتصال بالقاعدة فيكون
db.close
اذا الاتصال بالجدول للانتقال لجدول اخر
rs.close

شكرا يا غالي

مثلما جاوبك سابقا ابو عمر
اذا كنت معرف قاعدة البيانات على اسمها DB
فكود قطع الاتصال يكون db.close