كيف يتم التأكد من أن قاعدة البيانات في وضع

يا أخوان هذا مثل للاخ / محمد أبو سلو

يوضح طريقة هل يوجد form مفتوح ليغلقة

For Each s As Form In My.Application.OpenForms
						   s.Close()
				   Next

أريد نفس المثال ولكن يكون على كائن الاتصال SqlConnection ؟

msgbox(SqlConnection.status.tostring)

شكرا لك

ولكن يوجد خطا في هذا المسج

msgbox(SqlConnection.status.tostring)

الغاية من سوالي هي التئكد من أن لا يوجد أي أتصال مع قاعة البيانات وأذا وجد أتصال يقوم بأغلاقة لاني أريد أجرا عملية نسخ لقاعة البيانات في حالة خروج المستخدم من البرنامج فوراً ..

ولك جزيل الشكر ..

يأ أخوان هل يوجد كود معين يقوم بأغلق جيع الاتصالات بقاعدة البيانات

الاخ ROMANTIC

وضع مثال يقوم بالتحقق من وضع كائنن واحد وهو

MsgBox(con.State.ToString())

ولكن هل يوجد مثال يقوم بأغلاق جميع الكائنات المتصلة بقاعدة البينات سواء كانت في ال FORM1 أو FORM2 ....

شكرا

لقد وجد الحل وهو متواضع وأن وجد أحد أفضل منة فل يقدمة مشكورا ..

الحل هو عبارة عن كود يتم التئكد منه من وضع التطبيق هل هو في وضع تشغيل أم لا . لان قاعد البيانات تكون مفتوحة في حالة طلب أول أتصال من التطبيق ولا يتم أغلاقها ألا بعد أغلاق التطبيق .

وفي هذا المثال يتم التئكد من حالة البرنامج أذا كان في حالة أيقاف يقوم بنسخ قاعدة البيانات .

ضع هذا الكود في أي حدث يروق لك

  Dim prc() As Process
		Try
			prc = Process.GetProcessesByName("أسم البرنامج")
			If prc.Length = 0 Then
				MsgBox("أكمل عملية النسخ البرنامج في حالة أغلاق")
			Else
				MsgBox("لا يمكن أكمل عملية النسخ البرنامج في حالة تشغيل")
			End If
		Catch ex As Exception

		End Try

وأشكر كل من تكرم علينا بأي معلومة وأقول له بارك الله فيك وجزاك بالجنة

يا اخوان الكود الخاص باغلاق اي فورم مفتوح

For Each s As Form In My.Application.OpenForms

s.Close()

Next

مش شغال ياريت تجربوه وتفودوني بالكود الصحيح

ضع هذا الكود في حدث Button_Click

 
   Dim a As Int16 = My.Application.OpenForms.Count  ' عداد نضع فيه عدد الفورم المفتوحة

		Do While a
			' تكرار العملية حتى يتم أغلاق جميع الفورمات المفتوحة
			Try
				For Each form As Form In My.Application.OpenForms
					If form.Name <> Me.Name Then
						form.Close()
					End If
				Next
			Catch ex As Exception

			End Try
			If a = 0 Then
				Exit Do
			End If
			a = a - 1 ' نقوم بأنقاص عدد العداد بواحد حتى نصل الى نقطة الخروج من جملة التكرار
		Loop