تصدير الى Access

[مهند الزيدي]

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

الكود التالي يقوم بتصدير البيانات الموجودة في ورقة الاكسل الى جدول في اكسس..

Sub Expert_to_Access()

ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\export.accdb ;Persist Security Info=True"
Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open
sSQL = "delete from t ;"
oCn.Execute sSQL
sSQL = " INSERT INTO t SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "].[Data$a:e] ;"
oCn.Execute sSQL

End Sub

ولكن عند تنفيذ الكود تظهر رسالة الخطأ عند السطر 

Set oCn = New ADODB.Connection

وتظهر الرسالة التالية ...المرفقة في الصورة المرفقة 

الرجاء الحل وفقكم الله لكل خير

export to access.rar

تم تعديل أكتوبر 14, 2016 بواسطه مهند الزيدي

[مهند الزيدي]

للرفع

[ياسر خليل أبو البراء]

جرب الصورة التالية

[مهند الزيدي]

شكرا لك أخي العزيز ياسر ...وفقك الله لكل خير .. يكفيني شكرا وامتناناً مجرد النظر لمشاركتي ..فما بالك بالرد عليها دائما ماكنت خير سند لكل من في المنتدى بما فيهم أخيك المتواضع ... زادك الله علما وعملا ومعرفة وصحة دائمة

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم مهند وجزيت خيراً على كلماتك الرقيقة وردك الطيب

والحمد لله أن تم المطلوب على خير ..

تقبل وافر تقديري واحترامي

[مهند الزيدي]

أخي العزيز ياسر .. هذا أقل من ما تستحق من الثناء لجهودك ..وفقنا الله واياك لكل خير ...

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

[ياسر خليل أبو البراء]

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