alsihran قام بنشر مايو 6, 2022 مشاركة قام بنشر مايو 6, 2022 السلام عليكم المطلوب بالمرفق فتح التقرير وإظهار جميع السجلات ايضا توجد مشكلة عند فتح التقرير في طريقة عرض معاينة قبل الطباعة شاكرومقدر سلفا AooReport.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 7, 2022 مشاركة قام بنشر مايو 7, 2022 عليكم السلام حسب ما مر علي من عمليات الاتصال بقواعد البيانات يوجد طريقتين لتسهيل عمليات العرض واحدة هي استخدام الجداول المرتبطة بقاعدة البيانات البعيدة ( السيرفر ) الثانية هي استخدام جداول مؤقته يتم انشاؤها عند الحاجة واعذرني عن المتابعة فقط عليك البحث والعمل على تطبيق الفكرة .. والمسألة يسيرة ستتمكن باذن الله من تحقيقها 1 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 (معدل) 2 ساعات مضت, ابوخليل said: عليكم السلام حسب ما مر علي من عمليات الاتصال بقواعد البيانات يوجد طريقتين لتسهيل عمليات العرض واحدة هي استخدام الجداول المرتبطة بقاعدة البيانات البعيدة ( السيرفر ) الثانية هي استخدام جداول مؤقته يتم انشاؤها عند الحاجة واعذرني عن المتابعة فقط عليك البحث والعمل على تطبيق الفكرة .. والمسألة يسيرة ستتمكن باذن الله من تحقيقها الله يعطيك العافية استاذ ابو خليل انا فعلا بحثت وما حصلت مواضيع تتكلم عن عرض التقارير عن طريق الاتصال AdoRecordset بالنسبة بالنسبة للجداول المؤقته حاولت انفذها لكن استصعبت علي ان شاء الله احد الاخوة في المنتدى يقدر ينفذها على المرفق شكرا لك تم تعديل مايو 7, 2022 بواسطه alsihran رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 بحث في المواقع الاجنبية وحصلت هذا الكود ياخذ البيانات من الجدول في قاعدة البيانات الخارجية ويتم الحاقها في جدول أخر في نفس قاعدة البيانات الخارجية اتمنى المساعده في تعديل الكود ليلحق البيانات الى الجدول في نفس القاعدة الحالية Function example() Dim dB_External As String Dim db_Local As String Dim cnLocal As ADODB.Connection Dim cnExternal As ADODB.Connection Set cnLocal = CurrentProject.Connection Set cnExternal = New ADODB.Connection cnExternal.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\sehran\Desktop\Ado\AooReport\Adb_Dat.accdb;Persist Security Info=False;" dB_External = "SELECT EName,E_city FROM tbl_Employ;" db_Local = "SELECT MyTempGetBOM.EName, MyTempGetBOM.E_city FROM MyTempGetBOM" 'example A: strSQL = "INSERT INTO[MyTempGetBOM](EName, E_city,)" strSQL = strSQL & "SELECT EName, E_city" strSQL = strSQL & " FROM tbl_Employ '" & dB_External & "'" cnExternal.Execute (strSQL) End Function رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر مايو 7, 2022 أفضل إجابة مشاركة قام بنشر مايو 7, 2022 ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول وانما يتم حذف البيانات حسب الضرورة والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر وتسميها بنفس الاسم او غيره لا فرق تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة انتبه لموقع قاعدة الجداول Adb_Dat.rar 1 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر مايو 8, 2022 الكاتب مشاركة قام بنشر مايو 8, 2022 13 ساعات مضت, ابوخليل said: ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول وانما يتم حذف البيانات حسب الضرورة والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر وتسميها بنفس الاسم او غيره لا فرق تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة انتبه لموقع قاعدة الجداول الله يعطيك العافية إن شاء الله يعمل مع الاتصال بالسيرفر البعيد شاكرومقدر جهدك معي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.