+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : أريد كود قطع الإتصال بقاعدة البيانات (/showthread.php?tid=13256)
طلب : أريد كود قطع الإتصال بقاعدة البيانات - hamada salah90 - 17-09-15
اريد قطع الإتصالات الآتية بواسطة الكود وذلك عندما كتبت كود هكذا
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
RE: طلب : أريد كود قطع الإتصال بقاعدة البيانات - أبو عمر - 17-09-15
اذا كنت تقصد قطع الاتصال بالقاعدة فيكون
db.close
اذا الاتصال بالجدول للانتقال لجدول اخر
rs.close
RE: طلب : أريد كود قطع الإتصال بقاعدة البيانات - hamada salah90 - 18-09-15
(17-09-15, 02:43 AM)أبو عمر كتب : اذا كنت تقصد قطع الاتصال بالقاعدة فيكون
db.close
اذا الاتصال بالجدول للانتقال لجدول اخر
rs.close
شكرا يا غالي
RE: طلب : أريد كود قطع الإتصال بقاعدة البيانات - starwarr2005 - 18-09-15
مثلما جاوبك سابقا ابو عمر
اذا كنت معرف قاعدة البيانات على اسمها DB
فكود قطع الاتصال يكون db.close