تقييم الموضوع :
  • 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 واكيد ماكو فرق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة في تحويل اكواد bidaya 7 102 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [vb6.0] ارجو التعديل amer2000 2 134 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 185 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 141 10-07-16, 12:26 PM
آخر رد: عمور2016
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 788 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  حماية البرنامج برقم الهاردسك layan2000 5 1,505 21-02-16, 09:46 PM
آخر رد: layan2000
  تشغيل البرنامج دون تسطيب الفيجوال mmali127 2 670 27-12-15, 03:50 AM
آخر رد: awidan76
  شرح احترافي لتحديث البرنامج من الإنترنت السندبااد 2 852 29-01-15, 12:14 PM
آخر رد: abulayth
  [سؤال] بعد عمل الحزمة ﻻ يعمل البرنامج على ويندوز 7 amrelgadaa 2 741 13-11-14, 11:14 AM
آخر رد: amrelgadaa
  ممكن المساعده في vb كود alhadie87 1 303 26-10-14, 12:08 AM
آخر رد: تركي الحلواني

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


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