تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اقوم بتشغيل استعلام من نوع تحديث
#1
السلام عليكم ورحمة الله وبركاته

اريد كود يقوم بتشغيل استعلام من نوع تحديث بقاعدة ابيانات اكسس
الرد }}}}
تم الشكر بواسطة:
#2
.....

توجد طريقة لمراقبة التحديث التي تتم على قاعدة بيانات أكسس أفضل من استخدام التايمر
وهي مراقبة الأحداث التي تجري على الملف باستخدام 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 , Sajad
#3
إقتباس :  Private Sub fsWatcher_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsWatcher.Changed

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


بخصوص امر او استدعاء التحديث
كيف يتم أو ما هو كود استدعاء التحديث
الرد }}}}
تم الشكر بواسطة:
#4
.....

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

.....
الرد }}}}
تم الشكر بواسطة:
#5
اريد تحديث لاستعلام بقاعدة بيانات اكسس
من نوع تحديث
الرد }}}}
تم الشكر بواسطة:
#6
هذا كود تشغيل استعلام من نوع تحديث بقاعدة البيانات اكسس


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
الرد }}}}
تم الشكر بواسطة:
#7
لم يجيبني احد كيف احدد مسار قاعدة البيانات من البرنامج
الرد }}}}
تم الشكر بواسطة:
#8
لا احد يجيب هل هو مستحيل ام صعب ام لا يحدث نهائياً
الرد }}}}
تم الشكر بواسطة:
#9
تقدر تسويها دون الحاجة لإستعلام
بأستخدام دوارة على الداتا المؤقته وتقوم بعمليات التعديل او الحذف او الاضافة
الموضوع طويل بس اعتقد انه وصلت لك الفكرة
تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] مشكلة في استعلام مابين تاريخين abdallah_alashwal 1 52 09-11-16, 12:04 PM
آخر رد: ممدوح
  كيف اقوم بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 5 217 05-06-16, 07:17 PM
آخر رد: boudyonline
  كيف اقوم بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 4 246 05-06-16, 06:43 AM
آخر رد: ابو ليلى
  كيف اقوم بحفظ محتوى داخل combox اضيف بواسطه textbox داخل قاعدة البيانات المثال مرفق رهف العريفي 4 213 04-06-16, 08:55 AM
آخر رد: رهف العريفي
  استعلام مركب atefkhalf2004 2 207 03-02-16, 04:03 PM
آخر رد: atefkhalf2004
  [VB.NET] تحديث البيانات من قاعده sql الي قاعده اخري Engwaeem22200 3 249 05-12-15, 03:19 AM
آخر رد: حريف برمجة
  طالب منكم المساعدة كيف اقوم بحفظ بيانات في داتا بيز من داتا جيرد فيو اخرى moh61 3 440 21-11-15, 08:50 PM
آخر رد: عدنان الشمري
Question [سؤال] وضع نتيجة استعلام في ملف إكسل دمعة المقهور 2 1,393 25-10-15, 10:55 AM
آخر رد: WAEL ABED
  [VB.NET] كيف يتم تحديث ملف قاعدة بيانات اكسس accdb من ملف اخر midosoft 2 603 01-10-15, 06:17 PM
آخر رد: Adrees
  تحديث وحدات بيع المخزون OMNICEF 10 1,050 18-09-15, 04:04 PM
آخر رد: OMNICEF

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم