فتح التقرير وعرض جميع السجلات Ado Recordset

[alsihran]

السلام عليكم 

المطلوب بالمرفق  فتح التقرير وإظهار جميع السجلات 

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

 شاكرومقدر سلفا 

 

 

 

AooReport.rar

[ابوخليل]

عليكم السلام

حسب ما مر علي من عمليات الاتصال بقواعد البيانات يوجد طريقتين لتسهيل عمليات العرض  

واحدة هي استخدام الجداول المرتبطة بقاعدة البيانات البعيدة ( السيرفر )

الثانية هي استخدام  جداول مؤقته يتم انشاؤها عند الحاجة

واعذرني عن المتابعة فقط عليك البحث والعمل على تطبيق الفكرة .. والمسألة يسيرة ستتمكن باذن الله من تحقيقها

 

 

 

[alsihran]

2 ساعات مضت, ابوخليل said:

عليكم السلام

حسب ما مر علي من عمليات الاتصال بقواعد البيانات يوجد طريقتين لتسهيل عمليات العرض  

واحدة هي استخدام الجداول المرتبطة بقاعدة البيانات البعيدة ( السيرفر )

الثانية هي استخدام  جداول مؤقته يتم انشاؤها عند الحاجة

واعذرني عن المتابعة فقط عليك البحث والعمل على تطبيق الفكرة .. والمسألة يسيرة ستتمكن باذن الله من تحقيقها

الله  يعطيك العافية استاذ ابو خليل

انا فعلا بحثت وما حصلت مواضيع تتكلم عن عرض التقارير عن طريق الاتصال AdoRecordset

بالنسبة بالنسبة للجداول المؤقته حاولت انفذها لكن استصعبت علي 

ان شاء الله احد الاخوة في المنتدى يقدر ينفذها على المرفق 

شكرا لك

 

تم تعديل مايو 7, 2022 بواسطه alsihran

[alsihran]

بحث في المواقع الاجنبية وحصلت هذا الكود 

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

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

اتمنى المساعده في تعديل الكود ليلحق البيانات الى الجدول في نفس القاعدة  الحالية 

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

 

[ابوخليل]

ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول

وانما يتم حذف البيانات حسب الضرورة

والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر  وتسميها بنفس الاسم او غيره لا فرق

تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة

انتبه لموقع قاعدة الجداول

 

Adb_Dat.rar

[alsihran]

13 ساعات مضت, ابوخليل said:

ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول

وانما يتم حذف البيانات حسب الضرورة

والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر  وتسميها بنفس الاسم او غيره لا فرق

تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة

انتبه لموقع قاعدة الجداول

الله يعطيك العافية 

إن شاء الله يعمل مع الاتصال بالسيرفر البعيد 

شاكرومقدر جهدك معي