أداة إرفاق البيانات من قاعدة إلى قاعدة

بارك الله فيك أخي العزيز/ أحمد

على ما تقدمه من خير

المثال لا يعمل ويتوقف عند السطر الثاني من الكود التالي :

Private Sub cmdFrom_Click()
Me.DataBaseFromPath = ""
Me.DataBaseFromPath = Trim(FunPathDataBase)

If Not IsNull(Me.DataBaseFromPath) Then
    allTablesInDataBaseFrom (Me.DataBaseFromPath)
End If

فهل من حل لكي يمكن تجربته بسهوله ؟

أخي العزيز ابن مسقط

لا يظهر لدي الخطأ الذي ذكرته ..

علماً بأن المثال على آكسس2000

لكن أزل الدالة Trim بقوسيها .. فربما تنجح

أولاً ألف شكر على هذه الخطوة البناءة في عالم الأكسس

لكن الأداة مثل ماقال الأخ إبن مسقط تطالع غلط عند دالة trim

ياليت استاذنا احمد ان يصحح الكود ومشكور على هذا العمل والله اني محتاجه جدا تحياتي لك

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

إرفاق2.rar

أرفق الملف بعد أن قمت بالتعديل عليه وأصبح يعمل ولله الحمد والشكر موصول للأستاذ/ أحمد الحربي .

حيث أزلت الأداة Trim من الكود التالي :

Private Sub cmdFrom_Click()
Me.DataBaseFromPath = ""
Me.DataBaseFromPath = (FunPathDataBase)

If Not IsNull(Me.DataBaseFromPath) Then
    allTablesInDataBaseFrom (Me.DataBaseFromPath)
End If
End Sub

وقمت كذلك بإضافة المرجع التالي إلى قائمة المراجع :

Microsoft ADO Ext. 2.7 for DDL And Security

وحذفت المرجع السابق : Microsoft ADO Ext. 2.8 for DDL And Security

مع الإحاطة أن الجداول يجب أن يكون أسمها بالحروف الإنجليزية ، حيث لم تعمل معي الجداول التي تم تسميتها بالعربي.

والله الموفق.

إرفاق3.rar

بارك الله فيك أخي ا بن مسقط .. لا عدمناك

أضيف .. أو إي إصدار للأداة Microsoft ADO Ext. 2.7 for DDL And Security

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

sqAdd = "INSERT INTO [" & Me.Totable & "]"
sqAdd = sqAdd & " IN " & "'" & aaa & "'"
sqAdd = sqAdd & " select * From [" & Me.Fromtable & "]"
sqAdd = sqAdd & " IN " & "'" & bbb & "';"