تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده في كود الخروج من البرنامج
#1
اخواني عند الخروج من البرنامج بأستخدام END تكون قاعدة البيانات مفتوحة وتظهر بالشكل التالي
data.mdb
data.ldb
وايضا البرنامج في ادارة المهام موجود
ماهو الكود الذي يغلق قاعدة البيانات ويقوم بعمل انهاء البرنامج من ادارة المهام
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
يعني يا اخي VB_Coder
يعني يتم استخدام db.close
قبل الامر END
الرد }}}
تم الشكر بواسطة:
#4
نعم أخي الكريم وكذلك إلغاء تحميل الفورمات بالأمر Unload كلها قبل ال End .
الرد }}}
تم الشكر بواسطة:
#5
الاتصال بقاعدة البيانات والجداول
db.close
rb.close
rs.close
mosh.close
end
هكذا يتم الكود ارجو التوضيح
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

- لفترض أن إسم الفورم الأول أو الرئيسي في البرنامج هو 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

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#7
الله يبارك فيك وشكرا جزيل لك على ما قدمته من مساعدات
الرد }}}
تم الشكر بواسطة:
#8
اسهل كود و هو end
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#9
هههه والله ما انتبهت على كتابتك دخلت و رديت بسرعة ما اعرف والله انا لسا مبتدء
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#10
ahmed3d كتب :اسهل كود و هو end

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,405 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
Smile [كود] كود تشغيل البرنامج عمور2016 5 2,306 04-07-20, 04:25 PM
آخر رد: عمور2016
  مساج خطأ عند تحزيم البرنامج في ويندوز 10 amazonette 2 2,255 16-05-20, 04:33 AM
آخر رد: Amir_Alzubidy
  حماية البرنامج برقم الهاردسك layan2000 7 7,578 18-06-19, 08:42 AM
آخر رد: layan2000
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,824 10-05-18, 04:44 AM
آخر رد: حامد محمد
  حفظ الصورة في نفس مجلد البرنامج alfakeehy 2 2,250 22-03-18, 10:02 PM
آخر رد: سامى
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 2,508 23-02-18, 11:44 PM
آخر رد: awidan76
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 8 4,611 14-01-18, 07:41 PM
آخر رد: awidan76
  كود ينقلك من البرنامج الى منتدى الحلوانى 2 2,218 11-09-17, 03:40 PM
آخر رد: الحلوانى
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 3,295 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم