جلب التاريخ من السيرفر وليس من جهاز المستخدم

[سلمان الشهراني]

اسعد الله اوقاتكم
هل من طريقه لاخذ تاريخ  السيرفر وليس من جهاز المستخدم

بحثت ولكن لم اجد مثال على ذالك
وشاكر للجميع
 

[jjafferr]

وعليكم السلام اخوي سلمان 🙂

 

لقيت لك هذا الكود ، بس ما عندي الشبكة علشان اجرب 🙂

http://visualbasic.happycodings.com/date-time/code3.html

 

جربه واخبرنا النتيجة لوسمحت 🙂

 

جعفر

[سلمان الشهراني]

ابشر بسس ممكن مساعدتك

وين يوضع الكود

هل عند تحميل النموذج الرئيسي

والف شكر لك

تم تعديل مارس 5, 2020 بواسطه سلمان الشهراني

[jjafferr]

تفضل يا سيدي 🙂

 

جعفر

1176.Network_PC_Time.mdb.zip

[سلمان الشهراني]

الله يسعدك ويعطيك الف عافيه 
مبدع كالعاده ماشالله تبارك الله
طبعا نزلته وجربته على جهازين موصل بينهم شبكه
الجهاز الرئيسي SALMAN1
الجهاز الفرعي SALMAN2
 
لمى اختار ادخل اسم السيرفر تظهر لي الرساله الموجوده بالمرفق 
على انه طلب الاذن مرفوض

لمى اغيره الى SALMAN1
يعمل صحيح

[jjafferr]

9 ساعات مضت, سلمان الشهراني said:

جربته على جهازين موصل بينهم شبكه

 

سؤالك كان عن جلب التاريخ من السيرفر 🙂

 

جعفر

 

 

[سلمان الشهراني]

صحيح

بس السيرفر عند البعض جهاز عادي يخصص كسيرفر

[jjafferr]

هذا بيخلينا نفكر في طريق آخر 🙂

هل جداول قاعدة البيانات موجودة على هذا الجهاز ؟

 

جعفر

[jjafferr]

السلام عليكم 🙂

 

الفكرة هي ، انه الجداول موجودة في الواجهة الخلفية BE ، واللي موجودة على السيرفر ، واللي نريد نحصل على وقته ،

نضع هذه الوحدة النمطية فيه:

Public Function Server_Date_Time() As Date

    Server_Date_Time = Now()
End Function

.

 

ثم في برنامج الواجهة FE نضع هذه الوحدة النمطية :

Public Function Call_Server_F()

    Dim apAccess As New Access.Application
     
    apAccess.OpenCurrentDatabase (DLookup("[Database]", "MSysObjects", "[Flags]=2097152"))
    Call_Server_F = apAccess.Run("Server_Date_Time")
    
End Function

 

ثم من النموذج ننادي هذه الوحدة النمطية :

me.Server_Time = Call_Server_F

 

جرب المرفق:

ضع BE على السيرفر ، والـ FE على كمبيوتر آخر ، ثم شغّل FE 🙂

 

جعفر

 

Server Time.mdb.zip

[سلمان الشهراني]

الله يعطيك الف عافيه

اعتذر عن التاخير في الرد لكوني مسافر

وباذن الله راح ارجع واجرب 

فالف شكر لك

[سلمان الشهراني]

تم التجربه ولازال ياخذ اسم الجهاز الفرعي ووقت وتاريخ الجهاز الفرعي

[jjafferr]

وعليكم السلام 🙂

 

الطريقة الجديدة اللي توصلت لها هي عمل وحدة نمطية ، في برنامج الواجهة (ليس على السيرفر) تقوم بالتالي:

- عمل ملف txt صغير على جهاز السيرفر،

- قراءة الوقت الذي تم فيه عمل الملف (من اعدادات الملف) ، وهو الوقت الذي نريده ،

-حذف الملف

Public Function Make_File()

    Dim BE_Path, PauseTime, Start
    
    'get the server path
    BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152")   'Path and BE name
    BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\"))
    BE_Path = BE_Path & "dummy.txt"
    
    'make the dummy txt file
    Open BE_Path For Output As #1
        Print #1, "No text required"
    Close #1
    
    'pasue for a second, until file is recognized, for slow networks
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    
    'get the date created
    Make_File = FileDateTime(BE_Path)
    
    'clean up, delete the file
    Kill BE_Path

End Function

.

وننادي هذه الوحدة النمطية هكذا:

Me.srver_Time = Make_File()

.

وبما ان ملف الجداول يكون في مجلد يسمح فيه بإنشاء/تعديل/حذف ملف ، فهذه الطريقة المفروض انها تشتغل 🙂

 

طريقة العمل هي ان تضع ملف my_BE.mdb على السيرفر ، وملف my_FE.mdb على كمبيوترك ، ثم تربط جدول الواجهة مع جدول الخلفية (سيسألك البرنامج عن فتحه) 🙂

 

جعفر

Server Time.zip

[سلمان الشهراني]

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

[سلمان الشهراني]

استاذي

هل ممكن اضافة 

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

اذا وجد اختلاف يظهر رساله تنبيه

طبعا التاريخ فقط دون الوقت

[jjafferr]

يمكنك استخدام مثل هذا الكود :

    Me.srver_Time = Make_File()

    if format(Make_File(),"dd-mm-yyyy") <> format(date(),"dd-mm-yyyy") then
        msgbox "تاريخ السيرفر غير عن تاريخ الجهاز"
    end if

.

جعفر

[سلمان الشهراني]

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

[أبوبسمله]

7 دقائق مضت, سلمان الشهراني said:

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

اللهم آمين

[jjafferr]

🙂

[سلمان الشهراني]

استاذ جعفر

صحيح عمل الكود ولكن عند اغلاق البرنامج وتغيير امتداده الى assde

لا تعمل 

[سلمان الشهراني]

حبيبنا واستاذنا خلاص عرفت المشكله 
وهي بعد اخفاء الجداول المرتبطه في الواجهه الكود لايعمل

 

[jjafferr]

سهله 🙂

 

بدل ما نأخذ اسم ملف الجداول ومساره من
BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152")   'Path and BE name
  
انت اكتبه يدويا، هكذا
BE_Path = "D:\myDB\my_BE.mdb"   'Path and BE name  
  
	او

BE_Path = application.currentdb.path & "\myDB\my_BE.mdb"   'Path and BE name    

 

جعفر

[سلمان الشهراني]

الله يسعدك دنيا واخره

جاري التجربه

[سلمان الشهراني]

شغال 100% الف شكر لك

[jjafferr]

السلام عليكم اخوي سلمان 🙂

الحمدلله 🙂
بس الآن خلينا نجرب نعمل الكود تلقائي ،
لوسمحت تجرب هذا الكود في البيئة اللي عندك ، علشان يكون مرجع لبقية الاعضاء 🙂

 

ضع هذا الكود في وحدة نمطية :

Public Function Get_DB_Path_2()

    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("SELECT Database FROM MSysObjects WHERE (MSysObjects.Database) Is Not Null")
    Get_DB_Path_2 = rst(0)
    
    rst.Close: Set rst = Nothing
End Function

.

وبعدين في النافذة اللي تحت (immediate)  اكتب التالي (تأكد ان الكيبورد انجليزي ، وعلامة الاستفهام بالانجليزي) ، وارفق لنا صورة بالنتيجة :

?Get_DB_Path_2

.

هذه نتيجة العمل على كمبيوتري :

.

جعفر

[سلمان الشهراني]

ابشر

تم تعديل مارس 22, 2020 بواسطه سلمان الشهراني