حذف بيانات جداول قاعدة بيانات خارجيه

[N_ELMASRY]

الأخوة الأفاضل 

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

بحثت فى المنتدى عن طريقة ترحيل بيانات من قاعدة بيانات حاليه لأخرى خارجيه ووجدت والحمد لله مثال ممتاز للأخت زهره لحل هذه المشكلة (ومرفق الملف الخاص بها) وتم تنفيذه بنجاح. 

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

فأرجو المساعدة فى تنفيذ هذه الخطوة 

ولكم جزيل الشكر والتقدير

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

za_Transfering_data.rar

[N_ELMASRY]

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

وهذا نموذج للأمثلة التى وجدتها:

https://www.pcreview.co.uk/threads/delete-tables-in-another-database-via-vba.3795866/

[jjafferr]

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

 

هذا الكود سيحذف البيانات من الجدول clients من قاعدة البيانات الاخرى:

السر في الطريقة الاولى في الامر IN

'1
    mySQL = "Delete * From clients IN " & "'" & Me.txtPath & "'"
    CurrentDb.Execute (mySQL)

او

'2
    Dim db As DAO.Database
    Set db = OpenDatabase(Me.txtPath)
    mySQL = "Delete * From clients"
    db.Execute (mySQL)
    'DoCmd.SetWarnings False
    'DoCmd.RunSQL (mySQL)
    'DoCmd.SetWarnings True
    

 

جعفر

[N_ELMASRY]

جزاك الله خيرًا 

ونفع الله بك وبعلمك

تمت المهمه باستخدام الطريقة الاولى