شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

[scince]

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

اللهم تقبل اعمالنا لوجهك الكريم

اول مشاركة لي بعد تحرير مدينتا عدن من المعتدين

المثال عبارة عن شاشة ديفلوبر تقوم بالقراءة من ملف اكسل الى إتجاهين الاتجاه الاول تقوم بقراءة البيانات من ملف اكسل الى جدول قاعدة بيانات والاتجاه الثاني تقوم بقراءة بيانات اكسل إلى بلوك في نفس الشاشة دفلوبر 6i لعرضها للمستخدم كما يمكنك إضافة بيانات للشاشة من عدة ملفات وكذا من عدة أوراق عمل لنفس الملف أومن ملفات أخرى

مكونات المثال ملفين اكسل وشاشة دفلوبر 6i

لقراء الى جدول قاعدة البيانات يجب انشاء جدول القراءة حسب الكود التالي

CREATE TABLE EXCEL_TAB (EXCEL_COLM1  VARCHAR2(80),EXCEL_COLM2  VARCHAR2(80),EXCEL_COLM3  VARCHAR2(80));

ملاحظة هامة :

1.ملف الإكسل الذي ستقراء منه لا يجب أن يكون مفتوحا.

2. يجب أن تكتب اسم ورقة العمل الذي ستقراء منها البيانات وعليك معرفة اسم الورقة مسبقا لكتابتها في مربع ورقة العمل في الشاشة

3.إذا كان هناك ملف اكسل مفتوح غير الذي ستختاره وطابق اسم ورقة العمل الاسم للورقة العمل الذي ستكتتبها سيأخذ البيانات من الملف المفتوح.

أترككم مع المثال

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

وهنا بعد تنفيد عرض على الشاشة

أهداء المثال ...

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

شهداء عدن الباسلة وشهداء منطقة المعلا وشهداء كل المناطق الحرة في اليمن

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

اللهم تقبلهم مع الشهداء اللهم امين

Meeh_excel.rar

[scince]

طبعا مكونات المرفقات :

1 . شاشة ديفلوبر 6I اسمها MEEH_EXCEL_TO_TABLE

2.ملفين EXCEL فيهما البانات التي تقرءه الشاشة باصدارين مختلفين اسمهما Meeh_Excel.XLSX باصدار 2007 وملف Aden_Excel.XLS باصدار 97-2003

3. ملف نصي فيه كود انشاء الجدول واسم الملف EXCEL_TAB.TXT

 

[emad.pro11]

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

خالص الشكر والتقدير ومزيدا من التقدم والنجاح الازدهار...
------

وإذا صنعاء تشكونا ** فكل بلادنا يمنٌ

 

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

[ENG_HOSSAM_WALLY]

ماشاء الله دائما متميز  ورائع أخى المهندس ميهال 

[scince]

جزاك الله خير على دعائك أخي

emad.pro11

وشكرا لمرورك الكريم

[scince]

الله يبارك فيك أخي حسام مافي تميز فقط شوية إجتهاد وبحث

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

[ميسم الكرام]

موفق إن شاء الله 

مشاركة مميزة جزاك الله خيراً

[scince]

وفقك الله في ما يحب ويرضاه أختنا  

ميسم الكرام التميز هو اسهامك المستمر في المنتدى الله يعطيك من رزقه

                                        

[scince]

صورة توضح ما هو اسم ورقة العمل في المصنف (ملف اكسل) وانوه انه عملية قراءة البيانات تبداء من الصف الثاني لاني عاملها باللوب وبمكن ان تغيرها كما تريد حسب احتياجك

[اشرف فراج]

ماشاء الله مبدع يا باش مهندس ميهال  ورحم الله شهداء اليمن وشهداء عدن الباسلة وشهداء منطقة المعلا وشهداء كل المناطق الحرة في اليمن

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

اللهم تقبلهم مع الشهداء اللهم امين

[scince]

جزاك الله خير أخي

اشرف فراج

على دعائك ومافي ابداع فقط شوية بحث واجتهاد ليسى الا وشكرا لمرورك الكريم

[Khalid Mansour]

مشكور يا باش مهندس ..

بس يظهرلي خطأ كما هو موضح بالصورة المرفقة

 

[anas.soft]

ماشالله عليك بشمهندس ميهال دئماً مبدع جزاك الله خير وجعلة في ميزان حسناتك 

[scince]

الشكر لله اخي خالد منصور وشكر خاص لاخونا انس
بالنسبة للاخطاء المثال يعمل معي 100 بالمئة وهو على فورم 6i

[scince]

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

[ENG_HOSSAM_WALLY]

منتظرين  فورمه زي  دي بال  10g   منك يابشمهندس  ميهال 

[scince]

ان شاء الله اذا ترتب الظروف نحاول نشوفها على 10g لانه شوية ظغط عليا بالعمل على شبكات wifi هذه الايام وكذلك شغلات اخرى

[sayyad17]

السلام عليكم 

 

هنالك مسج خطأ عن جدول غير موجود 

اسم الجدول temp

 

وقد سأل خالد نفس السؤال

 

الرجاء الاجابة 

[scince]

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

[dahmashi]

أخي المهندس ميهال
جزاك الله خير
تظهر رسالة خطأ temp
وما يتنفذ

[scince]

اعيد رفع المثال ومجرب رغم انه الاول مجرب قلت اعيده مرة ثانية

Meeh_excel.rar

[scince]

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

[المبرمج الصاعد]

مهندسنا المبدع..

 

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

 

المعذرة على الرجوع إلى الخلف قليلا..

 

كنت في حاجة إلى قراء البيانات في البلوك إلى ملف إكسل موجود على الجهاز ...

بحيث الملف الإكسل يحتوى على أعمده بعدد الحقول في البلوك ..

 

وتم إستخدام المرفق وتجربة زر إضافة إلى الموجود...

وتم إدخال بيانات على البلوك ثم الضغظ على الزر .

قبل ما يتم حفظها على الجدول.

لأنه أريد أن انقل الييانات الموجوده إلى ملف الإكسل..

 

وللاسف الشديد لم ينقل البيانات إلى الملف..

 

هل هناك إي إضافة ممكن تفيديني بهذا الموضوع يا مبدع..

 

اخوك

[Esalm Mrwan]

الف شكر يا بش مهندس . دائما مزودنا بخبراتك 

[scince]

العفو اخي الفاضل Esalm Mrwan ولا شكر على واجب وشكرا لمرورك الكريم
بالتسب لاخي الحبيب
المثال One Way اي انه فكرته جاي من الاكسل لشاشة الديفلوبر او الى قاعدة البيانات ومؤشرها ورقة العمل في المصنف اكسل حيث يقوم بعمل بالقراء من ورقة العمل كاملة وزر اضافة المعمول بالمثال هو لجلب لاكثر من ورقة عمل لبيانات موزعة بالنسبة لفكرتك
وهي العكس انه ترسل بيانات الى الاكسل من البلوك حسب ما فهمت با مكانك استخدام طريقة المثال ارسال بيانات الى Ms Word وهي باستخدام Ole وبامكانك تستخدم معاه Vba كما في المثال وتعمل اللي تريد وكنت سابق بدئت اجهز فكرة لهذا النوع من العمل لكن ظروف الحرب منعتنا واتاخرت مايقارب سنة الفكرة للان واذا وجدت الوقت المناسب اسعفناك بمثال فقط اخاف ما القى وقت فقط لكن عندك الاولويات كيف المدخل لها واستعين بالمثال الذي ذكرته لك