المشاركات : 304
المواضيع 58
الإنتساب : Sep 2012
السمعة :
9
الشكر: 1722
تم شكره 599 مرات في 61 مشاركات
06-04-18, 10:25 AM
(آخر تعديل لهذه المشاركة : 13-04-18, 09:38 AM {2} بواسطة Ahmed_Mansoor.
تعديل السبب: تعديل العنوان
)
ياشباب عندي برنامج مثبت في جهاز رئيسي
وعندي جهاز ثاني مشغل عليه البرنامج عن طريق الشبكة
المشكلة ان الجهاز الرئيسي اذا فصلت الشبكة منه او فصل كهرباء اكيد انه تطلع رسالة فيها فشل الاتصال
الي احتاجه كيف اقدر اتجاوز هذي الرسالة ويكون في حالة فقدان الاتصال بالجهاز الرئيسي اجعل البرنامج يعيد الاتصال تلقائيا
المشاركات : 2,469
المواضيع 2
الإنتساب : Nov 2014
السمعة :
602
الشكر: 17073
تم شكره 15267 مرات في 2998 مشاركات
لن يعيد الاتصال مجددا حين انقطاع التيار الكهربائي
تعتمد جميع الاجهزة المتصلة بقاعدة البيانات ؛
على الآيبي الخاص في الجهاز الرئيسي
لذلك سننتظر حتى نتأكد بان الجهاز الرئيسي قد وصل الى حال جيد
يمكنك التغلب على ذلك باحدى الخيارات التالية :
الاعتماد على IP Static لحل مشكلة انقطاع الاتصال المتكرر ...
لا اذكر اذا كانت هناك خيارات افضل من ذلك ...
على الرحب و السعة
المشاركات : 304
المواضيع 58
الإنتساب : Sep 2012
السمعة :
9
الشكر: 1722
تم شكره 599 مرات في 61 مشاركات
نعم اخي الكريم انا استخدم ايبي ثابت Static IP
ولاكن كل الي احتاجه كيف اجعل البرنامج يعيد الاتصال باستخدام الكود لان الان حاليا لابد ان يقوم المستخدم
باعادة تشغيل البرنامج انا احتاج اعادة الاتصال تلقائيا
المشاركات : 2,469
المواضيع 2
الإنتساب : Nov 2014
السمعة :
602
الشكر: 17073
تم شكره 15267 مرات في 2998 مشاركات
لن تحتاج الى اعادة تشغيل البرنامج
كل ما عليك فعله ان تكتب فنكشين يقوم بمهمة التحقق من الاتصال
لاحظ معي ما اعنيه ..
حينما يعود الجهاز الرئيسي الى حالته الطبيعة تبقى الاتصالات على الاجهزة المتبقية معلقة ..
الان يأتي دور الفنكشين " و هو ان يقوم بالتأكد من عودة الاتصال " ؛
قم بتوزيع هذه المهمة على بقية النسخ .
المشاركات : 304
المواضيع 58
الإنتساب : Sep 2012
السمعة :
9
الشكر: 1722
تم شكره 599 مرات في 61 مشاركات
والله يا اخي الكريم اتمنى لو تعطيني طريقة الفنكشن هذي اكون شاكر لك
يعني مثلا جملة الاتصال لدي كالتالي :
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()
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
10-04-18, 02:05 PM
(آخر تعديل لهذه المشاركة : 10-04-18, 02:18 PM {2} بواسطة sendbad100.)
السلام عليكم
مرحبا اخي VB.NET اتمنى انك بالف خير
شكرا لاخي / امير على كل ما يقدم
انا لا اعلم هل يمكن معاودة الاتصال بالسيرفر تلقائيا بعد اعادة تشغيلة
طيب ماذا اذا كنت اعمل على فاتورة من جهاز فرعي وعند الحفظ كان السيرفر قد اقفل قد تواجة مشاكل.
من وجهة نظري المتواضعة نجرب :-
اقترح ان تقوم بعملية اتصال عند كل كود يحوي استعلام وليس في اللود
يبدا كود البحث ب ConnectDB()
ويبدا كود الحفظ ب ConnectDB()
ويبدا كود الحذف ب ConnectDB()
وهكذا تستمر
ولست متاكد من النتيجة يجب ان تجرب