منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اقوم بتشغيل استعلام من نوع تحديث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيف اقوم بتشغيل استعلام من نوع تحديث (/showthread.php?tid=10445)

كيف اقوم بتشغيل استعلام من نوع تحديث - aftfm - 21-10-14

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

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

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - vbnet - 22-10-14

.....

توجد طريقة لمراقبة التحديث التي تتم على قاعدة بيانات أكسس أفضل من استخدام التايمر
وهي مراقبة الأحداث التي تجري على الملف باستخدام 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

.....

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - aftfm - 22-10-14

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

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


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

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - vbnet - 22-10-14

.....

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

.....

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - aftfm - 22-10-14

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

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - aftfm - 25-10-14

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


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

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - aftfm - 28-10-14

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

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - aftfm - 29-10-14

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

RE: كيف اقوم بتشغيل استعلام من نوع تحديث - ahmed saba - 06-02-15

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