كيف استورد من البيانات من أجهزة بعيدة ؟

[أمونة]

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

أنا قمت بعمل منظومة مدرسة وتم توزيع هذه المنظومة على معظم المدارس أي أصبح لدينا بيانات جميع المدارس في منطقتنا أي في مدينتنا

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

وهي منظومة عرض للبيانات هذه المدارس ولنسمي هذه المنظومة " منظومة الأم " لانها تحوي على جميع بيانات المدارس في مدينتنا

وتوقفت عند مشكله مهمة وهي كيف يمكنني استيراد بيانات تلك المدارس التي ملئت بالبيانات

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

ياريت يتم شرح معني الكائنات التي من خلالها يتم معرفة أي من الكائنات خاصة بالقاعدة الحالية والخارجية

انا اريد استيراد البيانات من منظومة المدارس الى منظومة الأم لكن المشكلة أريد

أولا : - فحص إذا تم استراد هذه الجدول مسبقا اذا كان نعم يجب حذفة تم اضافة الجدول الذي انا اريد اضافتة كذلك عندما حاولت الاضافة تظهر لي مشكله الترقيم التلقائي يعني فتح الجدول بالطريقة العادية لما تكون داخل القاعدة نفسها تم قمت بتفريغ القيم والترقيم هنا اقصد ان من خصائص الحقل انه ليس نص لكن ترقيم تلقائي.

المشكله انا اقوم بإرفاق البيانات بالقاعدة الحالية وليس بتخصيص قاعدة خاصة بالاستيراد

الشكر والتقدير للأعضاء المنتدى الذي يعتبر من أروع المنتديات في نظري

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

استيراد البيانات من الخارجية الى الداخلية اريد للأعضاء ان يساعدوني في حل هذه المشكله لو كان ممكن اريد الخطوات الأتية .

أولا : - تفحص هل تم استيراد هذا الجدول مسبقا الى القاعدة أم لا.

ثانياً : - يتم استيراد البيانات الى القاعدة وإضافتها الى الجداول كل حسب مكانه يعني جدول 1 الجدول 1 .وهكذا يعني نسخ البيانات من جدول المستود الى الحالي وقبل هذا يتم حذف البيانات السابقة التي في الجدول والتي تحذف على حسب شروط معينة . مكانه

ثالثا : - اريد الاستيراد يتم عندما اريد الاستيراد فقط

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

وأنا اعرف من خلال تجولي في هذا المنتدى الرائع جداً انكم لن تقفوا مكتفي الايدى اذا كان عندكم حلا لمشكلتي ولكم من جزيل الشكر .

:')

[أبو آدم]

السلام عليكم

تداول المعلومات هل يتم عبر الانترنت

[sas_kik]

السلام عليكم

اعتقد حسب التالي :-

لنفرض بان فاعدة البيانات موجودة على الجهاز( س ) نجعلها قابلة للمشاركة ونقوم نقوم بعمل نسخة منها على الجهاز ( ص ) ثم نفتح النسخة المنقولة بالجهاز ( ص ) ونحذف منها الجداول

بعد ذلك نذهب الى قائمة ملف ونختار منها ( احضار بيانات خارجية ) ثم ربط جداول ونحدد مكان القاعدة الاصلية بالجهاز ( س ) فتظهر امامي جداول القاعدة فنختار الجداول المطلوبة ثم موافق

اتمنى لك التوفيق

[أمونة]

السلام عليكم

تداول المعلومات هل يتم عبر الانترنت

<{POST_SNAPBACK}>

لا يتم ذالك عبر الشبكة

اريد ان اوضح الصوره وهو انه :

القاعدة الأوله هي لمدرسة فقط يعني ما يخص بيانات المدرسة.

اما القاعدة الثانيه فهي لجميع المدارس يعني في زيادة بيانات .

كثلا يتم اضافة اسم المدرسة المراد ادراج بياناتها ومن تم ادراج البيانات .

[خالد عبد المنعم]

السلام عليكم

ادخلى على قاعدة البيانات و اضغطى كليك يمين ثم اختارى استرداد ثم اختارى قاعدة البيانات التى تريدى ان تستردى منها

و استردى ما تشاء

[مهند عبادي]

الحل هو تنفيذ استعلامين SQL ..

الاستعلام الأول يحدث جميع السجلات الموجودة في الجدولين

الاستعلام الثاني إلحاق السجلات الجديدة من الجدول الثاني إلى الجدول الأول

طبعاً من أجل التعامل مع جدول موجود في قاعدة بيانات خارجية يجب وضع مسار واسم قاعدة البيانات بعد اسم الجدول باستخدام كلمة in .. مثال :

select * from myschool IN 'I:\Schools.mdb' ;

فنستطيع بنفس الاسلوب بناء أي استعلامات نحتاجها

[أمونة]

الحل هو تنفيذ استعلامين SQL ..

الاستعلام الأول يحدث جميع السجلات الموجودة في الجدولين

الاستعلام الثاني إلحاق السجلات الجديدة من الجدول الثاني إلى الجدول الأول

طبعاً من أجل التعامل مع جدول موجود في قاعدة بيانات خارجية يجب وضع مسار واسم قاعدة البيانات بعد اسم الجدول باستخدام كلمة in .. مثال :

select * from myschool IN 'I:\Schools.mdb' ;

فنستطيع بنفس الاسلوب بناء أي استعلامات نحتاجها

<{POST_SNAPBACK}>

انا ليس لي اسم محدد للقاعدة التي اريد استيراد بياناتها وهي ليست قاعدة واحده لكن مجموعة من قواعد بيانات لمجموعه من المدارس يعني غير محددة المسار.

اريد من ينهض بي لتنفيد هذا البرنامج فكل منتدى اشارك فيه يكون من أجل هذه المشكله وهي استيراد الجداول برمجيا ً.

وشكرا للأعضاء المنتدى .

[مهند عبادي]

حتى ولو لم يكن اسمه محدد مسبقاً ليس مشكلة

فيمكنك أن تظهري للمستخدم مربع فتح ليحدد القاعدة التي يريد استيراد الجداول منه ثم تركبي عبارة الـ SQL برمجياً ..

هل وضحت الفكرة ؟؟

[خالد عبد المنعم]

السلام عليكم

هذا كود لاسترداد الجداول برمجيا بمعنى يفتح نافذة الاسترداد لاختيار اى شىء

DoCmd.RunCommand acCmdImport

و هذا الكود جربته و هذه طريقه اخرى توجد فى منتدانا للأخ اسامه اضغطى على هذا الرابط كود استرداد الجداول و هذه طريقه بعد تعديل الكود فى مثال الاخ اسامه و هى تعمل على ما يرام

Dim dbsDB As Database
 Dim tdf As TableDef
 Dim I As Integer, TableNames As String
 Dim strPath As String
 Dim strPassWord As String
 strPath = "ادخل هنا المسار قاعدة البيانات"
 strPassWord = "ادخل باسورد ان وجدت"
  strPassWord = ";pwd=" & strPassWord
  Set dbsDB = OpenDatabase(Name:=strPath, _
                           Options:=True, _
                           ReadOnly:=True, _
                           Connect:=strPassWord)
For Each tdf In dbsDB.TableDefs
   If Left(tdf.Name, 4) <> "MSys" Then
       DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, tdf.Name, tdf.Name, False
       I = I + 1
       TableNames = TableNames & vbCrLf & I & " - " & tdf.Name
   End If
Next
dbsDB.Close
Set dbsDB = Nothing
   MsgBox "تم استيراد عدد " & I & " جدول أسماءها " & TableNames, , ""

   Set dbsDB = Nothing

تم تعديل مايو 4, 2006 بواسطه admiral

[أمونة]

السلام عليكم

هذا كود لاسترداد الجداول برمجيا بمعنى يفتح نافذة الاسترداد لاختيار اى شىء

DoCmd.RunCommand acCmdImport

و هذا الكود جربته و هذه طريقه اخرى توجد فى منتدانا للأخ اسامه اضغطى على هذا الرابط كود استرداد الجداول و هذه طريقه بعد تعديل الكود فى مثال الاخ اسامه و هى تعمل على ما يرام

Dim dbsDB As Database
 Dim tdf As TableDef
 Dim I As Integer, TableNames As String
 Dim strPath As String
 Dim strPassWord As String
 strPath = "ادخل هنا المسار قاعدة البيانات"
 strPassWord = "ادخل باسورد ان وجدت"
  strPassWord = ";pwd=" & strPassWord
  Set dbsDB = OpenDatabase(Name:=strPath, _
                           Options:=True, _
                           ReadOnly:=True, _
                           Connect:=strPassWord)
For Each tdf In dbsDB.TableDefs
   If Left(tdf.Name, 4) <> "MSys" Then
       DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, tdf.Name, tdf.Name, False
       I = I + 1
       TableNames = TableNames & vbCrLf & I & " - " & tdf.Name
   End If
Next
dbsDB.Close
Set dbsDB = Nothing
   MsgBox "تم استيراد عدد " & I & " جدول أسماءها " & TableNames, , ""

   Set dbsDB = Nothing

<{POST_SNAPBACK}>

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

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

وجزاكم الله الف خير وبصراحة فيه تجاوب من قبل الاعضاء وان شاء الله نوصل للحل النهائي لهذه المشكله التي بصراحة عقدتني.

وشكرا خاص لكم جميعا اتمني ان تستمروا معي .......زميلتكم : أمـــــــــــــــــــــونة :(

[مهند عبادي]

الأخت الكريمة

أخبرتك أنه لا داعي للتأكد من استيراد الجدول مسبقاً .

لأن عملية الإضافة تتم السجلات الجديدة غير الموجودة في قاعدة البيانات الأساسية

وبالنسبة لحل مشكلتك نهائياً .. فحبذا ترفقي مثالاً حتى نعدله لك

[خالد عبد المنعم]

اختى امونه

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

او يمكنك الاتصال بى على الايميل لانى قد اغيب عن المنتدى لظروف عملى

تم تعديل مايو 7, 2006 بواسطه admiral

[خالد عبد المنعم]

اختى امونه

لما كل هذا التأخير على ردك اتمنى تكونى قد وفقتى فى عمل الكود و لكن ننتظر منك رد