+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24442)
إعادة الاتصال تلقائيا في حالة فقدان الاتصال بالجهاز الرئيسي في الشبكة - VB.NET - 06-04-18
ياشباب عندي برنامج مثبت في جهاز رئيسي
وعندي جهاز ثاني مشغل عليه البرنامج عن طريق الشبكة
المشكلة ان الجهاز الرئيسي اذا فصلت الشبكة منه او فصل كهرباء اكيد انه تطلع رسالة فيها فشل الاتصال
الي احتاجه كيف اقدر اتجاوز هذي الرسالة ويكون في حالة فقدان الاتصال بالجهاز الرئيسي اجعل البرنامج يعيد الاتصال تلقائيا
RE: ارجو المساعدة - VB.NET - 08-04-18
نعم اخي الكريم انا استخدم ايبي ثابت Static IP
ولاكن كل الي احتاجه كيف اجعل البرنامج يعيد الاتصال باستخدام الكود لان الان حاليا لابد ان يقوم المستخدم
باعادة تشغيل البرنامج انا احتاج اعادة الاتصال تلقائيا
RE: ارجو المساعدة - VB.NET - 08-04-18
والله يا اخي الكريم اتمنى لو تعطيني طريقة الفنكشن هذي اكون شاكر لك
يعني مثلا جملة الاتصال لدي كالتالي :
Public Sub ConnectDB()
If MyConnObj.State = 1 Then MyConnObj.Close
Dim sqlStr As String ' String variable to store sql command
MyConnObj.Open _
"Provider = sqloledb ;" & _
"Data Source=10.19.20.76;" & _
"Initial Catalog=Data;" & _
"User ID=PC3;" & _
"Password=PC31984;"
End Sub
وفي حدث اللود فورم استدعي كود الاتصال :
ConnectDB()
RE: ارجو المساعدة - sendbad100 - 10-04-18
السلام عليكم
مرحبا اخي VB.NET اتمنى انك بالف خير
شكرا لاخي / امير على كل ما يقدم
انا لا اعلم هل يمكن معاودة الاتصال بالسيرفر تلقائيا بعد اعادة تشغيلة
طيب ماذا اذا كنت اعمل على فاتورة من جهاز فرعي وعند الحفظ كان السيرفر قد اقفل قد تواجة مشاكل.
من وجهة نظري المتواضعة نجرب :-
اقترح ان تقوم بعملية اتصال عند كل كود يحوي استعلام وليس في اللود
يبدا كود البحث ب ConnectDB()
ويبدا كود الحفظ ب ConnectDB()
ويبدا كود الحذف ب ConnectDB()
وهكذا تستمر
ولست متاكد من النتيجة يجب ان تجرب