اذهب الي المحتوي
أوفيسنا

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


alsihran
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

السلام عليكم 

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

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

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

 

 

 

AooReport.rar

رابط هذا التعليق
شارك

عليكم السلام

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

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

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

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

 

 

 

  • Like 1
رابط هذا التعليق
شارك

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

عليكم السلام

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

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

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

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

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

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

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

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

شكرا لك

 

تم تعديل بواسطه 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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information