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

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

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

.....

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

.....

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

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

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

.....

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

.....

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

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

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

vbnet

aftfm

vbnet

aftfm

aftfm

aftfm

aftfm

ahmed saba