معرفة وضع الشبكة للتحكم بتخزين السجلات

ارجوا ان يكون في الملف المرفق الرد على استفسارك او جزء منة

بالتاكيد يحتاج الى بعض التعديلات واترك ذلك لك او لاخواني الاعضاء او المشرفين

Link.rar

بسم الله الرحمن الرحيم

جزاك الله خيرا

سوف أجرب غدا باذن الله على الشبكة في مقر العمل و أوافيك بالنتائج .

===

بسم الله الرحمن الرحيم

للأسف لم يعمل البرنامج

===

عذرا على التاخير

جرب الان

كما اطلب من باقي الاخوة الاعضاء والمشرفين المشاركة معي في حال وجود ملاحظات من اجل الوصول الى افضل النتائج

علما اني توصلت للكود الموجود هنا من هذة المشاركة

http://www.arabmoheet.net/forum/default.as...;topic_no=13534

Link1.rar

اقتباس

بسم الله الرحمن الرحيم

للأسف لم يعمل البرنامج

هل الملف الجديد يعمل او هناك مشكلة ( اثبت وجودك لا تقرأ وترحل )

أخي الكريم Enjoy ممكن إعادة رفع الملف الذي وضعته انت لإجراءالاختبار عليه لو سمحت

لا يأس مع الحياه

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

ولكن معك جاء الامل

لقد تم تحميل الملف الاول 40 مرة

والثاني 28 مرة

والثالث ؟؟؟ الله اعلم

دون اي تعليق

Link1.rar

بسم الله الرحمن الرحيم

أشكرك على مثابرتك

سوف أجرب غدا من جديد على الشبكة

==

أخي الكريم Enjoy تحية طيبة لك وبعد ...

شكراً لك على إهتمامك بهاذ الموضوع الجميل وإن شاء الله سأقوم بتجربته غداً وسأخبرك بالنتيجة

أخوك بالله SANDANET

بسم الله الرحمن الرحيم

تمت التجربه وفي حالة أن الشبكة تعمل فإن البرنامج يعمل بشكل جيد

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

===

اخي الفاضل فيصل

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

Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Form_Load()
Dim Ret As Long
If IsNetworkAlive(Ret) = 0 Then
MsgBox "The local system is not connected to a network!"
Else
MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
 End If
End Sub

في حدث الحالي للنموذج

Private Sub Form_Current()
Dim Ret As Long
If IsNetworkAlive(Ret) = 0 Then
MsgBox "The local system is not connected to a network!"
Else
MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
 End If
Me.Refresh
End Sub

في الوقت المناسب

انا قلت ماينقذني من هذا الموضوع غيرك

سؤالي : لاني لم اطبق الكود ولكني فهمت من تلقاء نفسي / هل هذا الكود يخبرني بان الشبكة لا تعمل ومن ثم تاتي مهمة الكود في الملف المرفق الاخير لتغيير مسار البيانات ؟

او هل هذا الكود كافي للقيام بجميع المهام (الكشف عن المسار ومن ثم تحويل البيانات ايضا)

فاذا كان توقعي صحيح . ياليت ماتبخلين علينا بربط جميع الاكواد في ملف يتم ادراجة منك

وتقبلي مني فائق التحية والتقدير

بارك الله فيك اخي ابو عبدالله

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

وكان هذا اجابة على سؤال استاذنا ومعلمنا الأخ فيصل عندما قال انه قام بنزع كيبل السيرفر وتم قطع الإتصال .

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

ربنا ما يحرمنا منك ولا من علمك يا استاذه

واضح جدا جدا وشكرا لك استاذتنا

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

موضوع جميل ومميز وجديد