منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعده في كود الخروج من البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ارجو المساعده في كود الخروج من البرنامج (/showthread.php?tid=9924)

الصفحات: 1 2

ارجو المساعده في كود الخروج من البرنامج - علوش - 04-08-13

اخواني عند الخروج من البرنامج بأستخدام END تكون قاعدة البيانات مفتوحة وتظهر بالشكل التالي
data.mdb
data.ldb
وايضا البرنامج في ادارة المهام موجود
ماهو الكود الذي يغلق قاعدة البيانات ويقوم بعمل انهاء البرنامج من ادارة المهام

ارجو المساعده في كود الخروج من البرنامج - VB_Coder - 04-08-13

السلام عليكم

- إذا كنت مثلاً تستخدم مكتبة ال ADO في الإتصال بقاعدة البيانات ، ولفترض إن إسم متغير الكائن الذي يتعامل مع قاعدة البيانات هو DB وإسم المتغير الذي يتعامل مع الجدول هو RS ، إذاً لابد لك أن تغلق جميع الإتصالات بالجداول ثم الإتصال بقاعدة البيانات ، وذلك بالأمر DB.Close ونفس الشئ مع متغير الجدول ، ثم بعد ذلك قم بتحرير الذاكرة من الكائنات المحمله سواءً ال DB أو متغيرات الجداول ال RS وغيرها إن وجد وذلك بالأمر Set DB = Nothing , ثم بعد ذلك أغلق جميع الفورمات ثم في الأخير إستخدم الأمر End .

- تحياتي .

ارجو المساعده في كود الخروج من البرنامج - علوش - 04-08-13

يعني يا اخي VB_Coder
يعني يتم استخدام db.close
قبل الامر END

ارجو المساعده في كود الخروج من البرنامج - VB_Coder - 04-08-13

نعم أخي الكريم وكذلك إلغاء تحميل الفورمات بالأمر Unload كلها قبل ال End .

ارجو المساعده في كود الخروج من البرنامج - علوش - 04-08-13

الاتصال بقاعدة البيانات والجداول
db.close
rb.close
rs.close
mosh.close
end
هكذا يتم الكود ارجو التوضيح

ارجو المساعده في كود الخروج من البرنامج - VB_Coder - 04-08-13

السلام عليكم

- لفترض أن إسم الفورم الأول أو الرئيسي في البرنامج هو Form1 فسيكون كود إغلاق الفورمات كالتالي :

كود :
Dim Frm As Form

For Each Frm in Forms
IF Frm.Name <> "Form1" Then
Unload Frm
End IF
Next

- وكود إغلاق الكائنات إن كانت مفتوحة كالتالي :
- لا أعلم أي من هذه تكون كائنات قاعدة البيانات وأيها للجدوال ، لابد أن تغلق كائنات الجداول أولاً ثم كائنات قاعدة البيانات :

كود :
IF rs.State = 1 Then rs.close
IF db.State = 1 Then db.close
IF rb.State = 1 Then rb.close
IF mosh.State = 1 Then mosh.close

Set rs = Nothing
Set db = Nothing
Set rb = Nothing
Set mosh = Nothing

end

- تحياتي .

ارجو المساعده في كود الخروج من البرنامج - علوش - 04-08-13

الله يبارك فيك وشكرا جزيل لك على ما قدمته من مساعدات

ارجو المساعده في كود الخروج من البرنامج - ahmed3d - 19-08-13

اسهل كود و هو end

ارجو المساعده في كود الخروج من البرنامج - ahmed3d - 19-08-13

هههه والله ما انتبهت على كتابتك دخلت و رديت بسرعة ما اعرف والله انا لسا مبتدء

ارجو المساعده في كود الخروج من البرنامج - 3booody - 19-08-13

ahmed3d كتب :اسهل كود و هو end

صح لكن End تقوم بإجبار الانهاء بغض النظر عن الاكواد التي تعمل حتى اذا تستخدمها ما راح يتم اقتناص الحدث Form_Closing لذلك الافضل استخدام
Me.Close()
طبعآ مقصد كلامي VB.net واكيد ماكو فرق