منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ياشباب عندي برنامج مثبت في جهاز رئيسي 

وعندي جهاز ثاني مشغل عليه البرنامج عن طريق الشبكة 
المشكلة ان الجهاز الرئيسي اذا فصلت الشبكة منه او فصل كهرباء اكيد انه تطلع رسالة فيها فشل الاتصال 

الي احتاجه كيف اقدر اتجاوز هذي الرسالة ويكون في حالة فقدان الاتصال بالجهاز الرئيسي اجعل البرنامج يعيد الاتصال تلقائيا

نعم اخي الكريم انا استخدم ايبي ثابت Static IP
ولاكن كل الي احتاجه كيف اجعل البرنامج يعيد الاتصال باستخدام الكود لان الان حاليا لابد ان يقوم المستخدم
باعادة تشغيل البرنامج انا احتاج اعادة الاتصال تلقائيا

والله يا اخي الكريم اتمنى لو تعطيني طريقة الفنكشن هذي اكون شاكر لك

يعني مثلا جملة الاتصال لدي كالتالي :


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()

السلام عليكم 

مرحبا اخي  VB.NET    اتمنى انك بالف خير

شكرا لاخي / امير على كل ما يقدم 

انا لا اعلم هل يمكن معاودة الاتصال بالسيرفر  تلقائيا بعد اعادة تشغيلة 

طيب ماذا اذا كنت اعمل على فاتورة  من جهاز فرعي  وعند الحفظ كان السيرفر  قد اقفل قد تواجة مشاكل.


من وجهة نظري المتواضعة  نجرب :- 
اقترح ان تقوم بعملية اتصال عند  كل كود  يحوي استعلام  وليس في اللود

يبدا كود   البحث  ب ConnectDB()
ويبدا كود الحفظ ب ConnectDB()
ويبدا كود الحذف  ب  ConnectDB()

وهكذا  تستمر 

ولست متاكد من النتيجة   يجب ان تجرب