مهند الزيدي قام بنشر أكتوبر 14, 2016 قام بنشر أكتوبر 14, 2016 (معدل) السلام عليكم ورحمة الله وبركاته .. الكود التالي يقوم بتصدير البيانات الموجودة في ورقة الاكسل الى جدول في اكسس.. 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 بواسطه مهند الزيدي
مهند الزيدي قام بنشر أكتوبر 14, 2016 الكاتب قام بنشر أكتوبر 14, 2016 شكرا لك أخي العزيز ياسر ...وفقك الله لكل خير .. يكفيني شكرا وامتناناً مجرد النظر لمشاركتي ..فما بالك بالرد عليها دائما ماكنت خير سند لكل من في المنتدى بما فيهم أخيك المتواضع ... زادك الله علما وعملا ومعرفة وصحة دائمة 1
ياسر خليل أبو البراء قام بنشر أكتوبر 14, 2016 قام بنشر أكتوبر 14, 2016 بارك الله فيك أخي الكريم مهند وجزيت خيراً على كلماتك الرقيقة وردك الطيب والحمد لله أن تم المطلوب على خير .. تقبل وافر تقديري واحترامي 1
مهند الزيدي قام بنشر أكتوبر 14, 2016 الكاتب قام بنشر أكتوبر 14, 2016 أخي العزيز ياسر .. هذا أقل من ما تستحق من الثناء لجهودك ..وفقنا الله واياك لكل خير ... لقد بحثت في المنتدى الرائع عن مشاريع مشتركة أو دروس بربط الاكسل بالأكسس برمجيا ولكن لم اجد ماينفعني .. أرجو منك تكرما .. ومساعدة الاخوة المشرفين في منتدى الأكسس عمل مواضيع بربط الأكس والأكسس بصورة مفصلة .. وجزاكم والله خيراً
ياسر خليل أبو البراء قام بنشر أكتوبر 14, 2016 قام بنشر أكتوبر 14, 2016 في الحقيقة لست متمكن في الربط بين الإكسيل والأكسس وأعتقد أن موضوع الأخ الغالي عبد الله باقشير في هذا الخصوص يفي بالغرض إن شاء الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.