[aftfm]

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

اريد كود يقوم بتشغيل استعلام من نوع تحديث بقاعدة ابيانات اكسس

[vbnet]

.....

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

تم تطبيق الفكرة على المثال المرفق في موضوعك (رسالة خطاء تظهر عند قراءة ملف نصي)

الإضافة أو التعديل في الموديول Module1

كود :

Module Module1
   '--------------------------------------
   '
   ' الأكواد السابقة التي لديك
   '
   '--------------------------------------

   ' مراقبة الأحداث على ملف قاعدة البيانات بدون تايمر
#Region " Monitor "
   Public WithEvents fsWatcher As New IO.FileSystemWatcher()
   Public Sub startDatabaseMonitor()
       fsWatcher.Path = IO.Path.GetDirectoryName(Con.DataSource) ' مسار الملف
       fsWatcher.Filter = IO.Path.GetFileName(Con.DataSource) ' اسم الملف
       fsWatcher.EnableRaisingEvents = True ' تشغيل المراقبة
   End Sub
   ' حدث تغيير محتويات ملف
   Private Sub fsWatcher_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsWatcher.Changed
       ' هنا أكتب أمر أو استدع التحديث
       MsgBox("حدث تغيير في قاعدة البيانات")
   End Sub
#End Region

End Module

الإضافة أو التعديل في فورم frm_LogIn في حدث الزر btn_Inter_Click

كود :

Private Sub btn_Inter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Inter.Click
   '--------------------------------------
   '
   ' الأكواد السابقة التي لديك
   '
   '--------------------------------------

   startDatabaseMonitor() '<<<<<<<<<< تنفيذ اجراء مراقبة الملف بعد نجاح تسجيل الدخول
   frmMain.Show()
   End If
End Sub

.....

[aftfm]

إقتباس :  Private Sub fsWatcher_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsWatcher.Changed

       ' هنا أكتب أمر أو استدع التحديث
       MsgBox("حدث تغيير في قاعدة البيانات")
   End Sub

بخصوص امر او استدعاء التحديث
كيف يتم أو ما هو كود استدعاء التحديث

[vbnet]

.....

هذا يعتمد على ما هي فكرة التحديث التي تقصدها

.....

[aftfm]

اريد تحديث لاستعلام بقاعدة بيانات اكسس
من نوع تحديث

[aftfm]

هذا كود تشغيل استعلام من نوع تحديث بقاعدة البيانات اكسس

PHP كود :

 Dim accApp As Object
            accApp = GetObject("D:\1436\DataFiles.accdb")
            'this will run the query in the database 
            accApp.docmd.OpenQuery("QueryCDate")
            accApp.Run("QueryCDate") 


لكن اريد تحديد مسار البرنامج حسب مجلد البرنامج بدون تحديد D:\1436\DataFiles.accdb

قمت بكتابة 

PHP كود :

accApp = GetObject(Application.StartupPath & "\DataFiles.accdb") 


ولكنه قام بتشغيل قاعدة البيانات 

كيف ا حدد مسار البرنامج حسب Application.StartupPath

[aftfm]

لم يجيبني احد كيف احدد مسار قاعدة البيانات من البرنامج

[aftfm]

لا احد يجيب هل هو مستحيل ام صعب ام لا يحدث نهائياً

[ahmed saba]

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